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PREFACE 


This Program Logic Manual (PLM) is a detailed guide to 
the VM/370 control program* It supplements the program 
listings by providing descriptive text, diagrams, and 
flowcharts* It is intended for IBM personnel 
responsible for program maintenance and is to be used 
with the following PLMs for maintaining the System 
Control Program (SCP)• 


IBM Virtual Machine Facility/370: C onversational 

Mo nitor System (CMS) * Progr am Logic, SY20-0881 

IBM Virtual Machine Facilit y /370 2 Service Ro utines 
Program Logic, SY20-0882 

IBM Sy s tem /360 Operating Sy st em: Assembler (F), 

GY26-3700 

IBM CALL/360-QS BASIC System Manual, GY20-0530 

The logic described in this publication is about 
programs that are discussed in the following 
publication 2 

IBM Virtual Machin e Facility/370 : Intr oduction , 

GC20-1800 

IBM Virtual Machine Facility/370 : Planning and System 
Generation Gu ide, GC20-1801 

IBM Virtua l M achine Facility/ 370: O perator 1 s Guide , 
GC20-1806 

IBM Virtual M achi ne Facility/370 : S ystem Messages , 
GC20-1808 

IBM Virtual Machine F acility/370 : Command Language 
Guide for General Users , GC20-1804 

IBM Vi rtual Ma chine Facility/370 : System P rogrammer*s 
GuideT GC20-1807 


Information in this publication (if any) about the 
following is for planning purposes only: 

• IBM System/370 Model 165 II 

In this publication, the term ”3330 series” is used in 
reference to the IBM 3330 Disk Storage, Models 1 and 2 
and the IBM 3333 Disk Storage and Control, Model 1* 


MANUAL ORGANIZATION 


This publication is divided into seven sections: 


• The "Introduction” presents a general discussion 
about the functions and program organization of the 
VM/370 control program. 

• The section "Method of Operation" contains a 
detailed discussion about the functions of the 
control program. 

• "Program Organization" contains the flowcharts. 

• The "Directories" contain an alphabetical list of 
all the CP labels that are discussed within this 
manual. Accompanying the label is a brief 
description of the function or for the subroutines, 
the name of the module that it is in, and 
cross-reference to its location in the PLM. 

• The section "Data Areas" contains a detailed 
description of the control program data areas. 

• "Diagnostic Aids" contains cross-reference 

information about commands, messages, wait codes, 
and ABEND codes. 

• The Appendixes contain coding conventions, system 
eguates, and DASD record formats. 
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Summary of Amendments 
for SY20-0880-1 
VM/370 Release 1 PLC5 


Addition of the Following VM/370 Programming 
Functions 

New Programming Features 

• The Virtual = Real Performance option 

• The Dedicated Channel Performance option 

• The Virtual and Real Channel-to-Channel Adapter 

Support for the Following Devices 

New Hardware Features 

• The IBM 3211 Printer 

• The IBM 3410/3411 Magnetic Tape Subsystem 

• The IBM System/370 Models 155 II and 158 

Recovery Management Support 

Maintenance: Program and Documentation 

The section on Recovery Management Support has been 
rewritten to include the following changes and additions: 

• A revised explanation of the initial state of the re¬ 
covery mode for main storage errors. 

• A revised termination procedure where recovery via 
an automatic restart is attempted before placing the 
system in a disabled wait state. 

• The addition of a Buffer Error Routine as part of 
the Machine Check Handler to perform error re¬ 
covery on those CPUs that have high speed buffers. 

Additional Modules 


Additional and Revised Flowcharts 

Maintenance: Program and Documentation 

The flowcharts and module/entry point directory en¬ 
tries for the following modules have been revised to reflect 
the above-cited new features and support: 


DMKCCH 

DMKDSP 

DMKSPL 

DMKCCW 

DMKFRE 

DMKTAP 

DMKCDS 

DMKGEN 

DMKTDK 

DMKCFG 

DMKIOE 

DMKTRA 

DMKCFM 

DMKIOF 

DMKTRC 

DMKCFP 

DMKIOG 

DMKUSO 

DMKCNS 

DMKIOS 

DMKVAT 

DMKCPB 

DMKLDG 

DMKVCA 

DMKCPI 

DMKMCH 

DMKVCH 

DMKCPV 

DMKNEM 

DMKVCN 

DMKCSO 

DMKPAG 

DMKVDB 

DMKDAS 

DMKPRG 

DMKVDS 

DMKDEF 

DMKPRV 

DMKVIO 

DMKDGD 

DMKPSA 

DMKVMI 

DMKDIA 

DMKRSP 

DMKVSP 

DMKDMP 

DMKSCN 



Error Messages and Codes 

Maintenance: Program and Documentation 
The following Error Messages have been added: 


New: Program and Documentation 

The following modules have been added as part of the 

Control Program: 

• The new module, DMKCPB, now simulates the 
SYSTEM, EXTERNAL, READY, NOTREADY, 
RESET, and REWIND commands for the virtual 
machine. This function has been removed from 
module DMKCFM. 

• The new module, DMKTRC, now contains all the 
TRACE processing routines. The initialization, modi¬ 
fication, and termination pf the TRACE function 
remains in module DMKTRA, 

• The new module, DMKCFG, contains the SAVESYS 
command processing routine. This function was 
removed from module DMKCPV. 


Additional Data Area 

New: Program and Documentation 

The “Extended Outboard Recording Block” (XOBR3211) 
has been added as a continuation of the “I/O Error In¬ 
formation Block” (IOERBLOK). It will hold additional 
sense data for devices that return more than 24 sense bytes. 


DMKCCH605I 
DMKCCH606I 
DMKCFG044E 
DMKCFG170E 
DMKCFG171E 
DMKCFG172E 
DMKCFG173E 
DMKCFG4 35E 
DMKCFP174E 
DMKCPB005E 
DMKCPB006E 
DMKCPB012E 
DMKCPB022E 
DMKCPB026E 
DMKCPB040E 
DMKCPI955W 
DMKCPV144W 
DMKCSO036E 


DMKDAS956A 
DMKDIA011E 
DMKDMP909W 
DMKMCH610I 
DMKMCH61II 
DMKMCH612W 
DMKMCH6141 
DMKMCH6161 
DMKPAG415E 
DMKPRG453W 
DMKSPL50II 
DMKSPL503A 
DMKSPL504A 
DMKSPL529I 
DMKUDR475I 
DMKVDB034E 
DMKWRM911W 


(See Over) 




The following Error Messages have been deleted: 


DMKCFP005E 

DMKCFP006E 

DMKCFP012E 

DMKCFP022E 

DMKCPV044E 

DMKCPV170E 

DMKCPV171E 

DMKCPV172E 

DMKCPV173E 


DMKDIA110E 
DMKMCH61OW 
D MKMCH611H 
DMKMCH612I 
DMKMCH614W 
DMKMCH616W 
DMKMCH620I 
DMKSPL517I 
DMKWRM910W 


The following Wait state codes have been added: 

00D OOF 


The following ABEND codes have been added: 


BLD001 

CFM001 

CNS008 

DSP003 


DSP004 

FRE010 

PTR008 

PTR009 


PTR010 

SCH001 

TRC001 


The following ABEND code has been deleted: 

TRA 001 


Miscellaneous 

Maintenance: Documentation Only 

This edition includes other minor technical and 
typographical changes too numerous to list. 




Summary of Amendments 
for SY20-0880-1 
as updated by TNL SN20-2624 
VM/370 Release 1 PLC 9 


HEW DEVIC E SUPPORT 

New ; Programming Feature 

The IBM System/370 Model 168; the IBM 2860, 2870, 
2880 standalone channels; and the IBM 2305 Fixed 
Head Storage, Model 1, are now supported. 


USER ACCOUNTIN G OPTION 

New : Programming Feature 

It is now possible for a user to charge another user 
or CPU time. A new diagnose code (4C) is provided 
or this function. This option is described under 
••Accounting Card Processing” in the section on the 
••Real Spooling Manager.” The new diagnose code is 
described in the section "Privileged Instructions.” 


VIRTUAL CONSOLE S POOLING 
New: Programming Feature 

The virtual console is now supported for spooling 
operations. Documentation of this support appears in 
the section, "Virtual Spooling Manager.” 


CP INTERN AL TR ACE TABLE IMPLEMENTATION 
New: Programming Feature 

A new CP command, MONITOR, allows the user to stop 
and restart the recording of real machine events in 
the internal trace tabel. Previously, the tracing 
was always active. This feature is described in the 
section, "CP Internal Trace Table.” 


STOP O PERAND AND PARAMETER PASSING FOR THE CP IPL 
COMMAND 

New : Programming Feature 

The STOP operand in the CP IPL command will halt 
execution and allow parameters to be passed 
resulting in the loading of an alternate nucleus. 
This function is described in "LOGON of User" in the 
section "System User Interface.” 


gERFO RM ANCE ENHANCEMEN T 

Maintenance : Program and Documentation 

The Dispatcher/Scheduler routines have been modified 
to improve performance. The section on the 
Dispatcher/Scheduler has been rewritten. 


ADD ITIONAL MODULES 

New : Program and Documentation 

The following modules have been added as part of the 

Control Program: 

• The modules DMKSIX, DMKSEV, and DMKEIG handle the 

channel logout analysis for the 2860, 2870, and 

2880 standalone channels, respectively. 

• The module, DMKGRA, handles VM/370 console 
spooling. 

• The module, DMKLOC, locks and unlocks a system 
resource. This code was previously restricted to 
use in DMKUDR. 

• The module, DMKMCC, handles the new CP command. 




MONITOR 


• The module, DMKRSE, retries and attempts recovery 

for real U/R device I/O errors. This function was ERROR MESSAGES AMD CODES 

originally in module DMKSPL. 

Mainten ance: Program and Documentation 


ADDITIONAL DATA AREAS 

New : Program and Documentation 

ACCTBLOK — User Accounting Block 

New: Documentation Only 

CCHREC — Channel Check Handler Record 
HCHAREA — Machine Check Save Area 
MCRECORD — Machine Check Handler Record 

The above blocks are defined in the "Data Areas — 
Control Blocks" section. 


The following error messages have been added: 


DMKCFP177E 
DMKCPB059E 
DMKMCC002E 
DHKMCC026E 
DMKMCH003E 
DMKMCH026E 
DMKRSE500I 
DMKR SE501A 
DMKRSE501I 
DMKRSE502I 
DMKRSE503A 


DMKRSE503I 
DMKRSE504A 
DMKRSE504I 
DMKRSE505A 
DMKRSE508I 
DMKRSE520A 
DMKRSE520I 
DMKRSE521I 
DMKRSE524I 
DMKRSE525I 
DMKRSE529I 


The following error messages have been deleted: 


ADDITIONAL AND REVISED FLOWCHARTS 


New: Program a"nd Documentation 

DMKEIG DMKMCC DMKSIX 
DMKGRA DMKRSE 
DMKLOC DMKSEV 

Maintenance : Program and Documentation 


DMKACO 

DMKDSO 

DMKSPL 

DMKCCH 

DMKHVC 

DMKTMR 

DMKCDS 

DMKIOE 

DMKUDR 

DMKCFP 

DMKIOG 

DMKUSO 

DMSCFS 

DMKIOS 

DMKVCH 

DMKCKP 

DMKLEK 

DMKVCN 

DMKCPB 

DMKLOG 

DMKVDB 

DMKCPI 

DMKMCH 

DMKVDS 

DMKCPV 

DMKPRG 

DMKVMI 

DMKCSP 

DMKRSP 

DMKVSP 

DMKDEF 

DMKSCH 

DMKWRM 


DMKSPL500I 

DMKSPL501A 

DMKSPL501I 

DMKSPL502D 

DMKSPL503A 

DMKSPL503I 

DMKSPL504A 

DMKSPL504I 


DMKSPL505D 

DMKSPL508I 

DMKSPL520I 

DMKSPL521I 

DMKSPL524I 

DMKSPL525I 

DMKSPL529I 


The following ABEND codes have been added: 

IOSOOI IOS003 

IOS002 0DR001 


MISCELLANEODS 

M aintenance : Documentation Only 

This Technical Newletter contains other minor 
technical and typographical changes, too numerous 
to mention. 
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INTRODUCTION 


The VM/370 Control Program (CP) manages the resources 
of a System/370 in order to provide virtual storage 
support through the implementation of virtual machines. 
This support is implemented in such a way that each 
terminal user appears to have the complete functional 
capabilities of a dedicated System/370 at his disposal, 
even though many other users may be running batch, 
teleprocessing, time sharing testing, or production 
jobs at the same time. 

A user defines the configuration he requires 
input/output (I/O) device addresses, and a storage size 
up to 16 million bytes — regardless of whether they 
match the real machine's configuration. Virtual devices 
must have real counterparts, but not always in a 
one-for-one ratio. For example, many users' readers, 
punches, and printers can be mapped onto common spool 
disks, and their virtual disk devices may be mapped as 
minidisks onto different sections of common disk packs, 
effectively multiplying the number of logical disk 
devices that are available on the real machine. 

Each user's virtual machine comprises 

• An operator's console (his remote terminal) 

• A virtual CPU either with or without the Virtual 
Storage Addressing feature 

• Virtual storage of up to 16 million bytes 

• Virtual I/O devices 

Virtual I/O devices are controlled by the virtual 
machine's operating system, not by the VM/370 control 
program. Thus, the support for the proper number and 
type of I/O devices must be provided by the operating 
system of the virtual machine for proper operation. The 
VM/370 control program monitors, translates, and 
schedules all real I/O operations to provide system 
integrity. It executes all virtual machine operation in 
a problem state by trapping, screening, and processing 
all the interrupts, and passing on the necessary 
information to the appropriate virtual machine. Only 


the VM/370 control program executes in the privileged 
state. 

In order to increase the amount of real main storage 
available to user programs, parts of the VM/370 control 
program that are infrequently used are not required to 
be resident in main storage. Instead, they reside on 
part of the paging auxiliary storage used by the 
system, and are brought into main storage only when 
their functions are required. 

Since the VM/370 Control Program nonresident modules 
are effectively paged into main storage, the control 
program itself must have virtual storage space 
associated with it. This space is anchored at the 
System VMBLOK, which is assembled into the resident 
control program in the module DMKSYS. The VMBLOK has a 
pointer to a segment table, which in turn references a 
set of page and swap tables that describe CP's virtual 
storage space. 

The virtual space is divided into 2 parts; the first 4 
segments (256K) is reserved for executable control 
program code, both resident and pageable; the remaining 
storage (at least another 256K) is dynamically 
allocated for spooling buffers and for user directory 
functions. In order for a routine to be pageable, a 
number of restrictions must be observed. 

When the system is loaded, resolved, and written onto 
the system residence volume, those modules that are to 
be pageable must be loaded at addresses higher in main 
storage than the symbol DMKCPEND, which defines the 
last byte of the resident CP nucleus. This arrangement 
can be accomplished by reordering the LOADLIST EXEC 
used by the VMFLOAD procedure when punching out the 
text decks that will compose the CP system. Any 
pageable modules are listed after the entry for DMKCPE. 
In addition, each pageable module must be preceded by 
the 'SPE' loader control card. This 'Set Page 
Boundary' card forces the loader to start loading the 
succeeding module at the next higher 4k page boundary 
and ensures that the entire module will be resident 
when it is paged in. 
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If several pageable modules perform similar or related 
functions and it is felt that they are likely to be 
resident at the same time, they may be included in the 
same page by omitting the SPB cards that would normally 
have preceded the 2nd and subsequent modules. The 
group of modules to be loaded together must not exceed 
4K as their total storage requirement; if they do, one 
or more must be loaded in separate pages, since no page 
boundary crossover in pageable control program is 
allowed. All currently pageable CP modues punch their 
own SPB card via an assembler PUNCH statement, except 
those that are designed to reside in a page along with 
other modules. 


CP INITIALIZATION 


The function of system initialization (IPL) is to 
prepare VM/370 for operation. Some of the tasks to be 
performed are: 

• Main storage must be initialized 

• Devices must be mounted 

• Warm start records must be read from the warm start 
cylinder 

• Space must be allocated for the system dump file 

• The system operator must be logged on 

In the case of a system restart following a failure, 
active files and the system log message must be written 
to the checkpoint cylinder before the Control Program 
nucleus can be brought into main storage. The user can 
now logon. 


VIRTUAL MACHINE CONTROL 


A virtual machine is created for a user when he logs 
into VM/370, on the basis of information stored in his 
user directory entry. The entry for each user 
identification includes a list of the virtual I/O 
devices associated with the particular virtual machine 
and the real device mappings. 


Additional information about the virtual machine is 
maintained in the directory file. Included are the 
VM/370 command privilege class, accounting data, normal 
and maximum virtual storage sizes, and optional virtual 
machine characteristics such as extended control mode. 

The Control Program supervises the execution of virtual 
machines by (1) permitting only problem state execution 
except in its own routines, and (2) receiving control 
after all real computing system interrupts. CP 
intercepts each privileged instruction and simulates it 
if the current program status word of the issuing 
virtual machine indicates a virtual supervisor state; 
if the virtual machine is executing in virtual problem 
state, the attempt to execute the privileged 
instruction is reflected back to the virtual machine as 
a program interrupt. All virtual machine interrupts 
(including those caused by attempting privileged 
instructions) are first handled by CP, and are 
reflected to the virtual machine if an analogous 
interrupt would have occurred on a real machine. 


Vir tu al Machine Time Management 


The real CPU is time sliced to simulate multiple 
virtual CPUs. Virtual machines that are executing in a 
conversational manner are given access to the real CPU 
more frequently than those that are not; these 
conversational machines are assigned the smaller of two 
possible time slices. CP determines execution 
characteristics of a virtual machine at the end of each 
time slice on the basis of the recent frequency of its 
console requests or terminal interrupts. The virtual 
machine is queued for subsequent CPU utilization 
according to whether it is a conversational or 
nonconversational user of system resources. 

A virtual machine can gain control of the CPU only if 
it is not waiting for some activity or resource. The 
virtual machine itself may enter a virtual wait state 
after an I/O operation has begun. The virtual machine 
cannot gain control of the real CPU if it is waiting 
for a page of storage, if it is waiting for an I/O 
operation to be translated and started, or if it is 
waiting for a CP command to finish execution. 





A virtual machine can be assigned a priority of 
execution. Priority is a parameter affecting the 
execution of a particular virtual machine as compared 
with other virtual machines that have the same general 
execution characteristics. Priority may be assigned by 
the real machine operator, but is more freguently a 
parameter of the virtual machine's directory entry. 


Vir tua l Machin e Storage Managemen t 


The normal and maximum storage sizes of a virtual 
machine are defined as part of the virtual machine 
configuration in the VM/370 directory. The virtual 
storage size can be temporarily redefined to any value 
that is a multiple of 4K and not greater than the 
maximum defined value. VM/370 implements this storage 
as virtual storage. The storage may appear as paged or 
nonpaged to the virtual machine, depending upon whether 
the extended control mode option has been specified for 
that virtual machine. This option is required if 
operating systems that control virtual storage, such as 
0S/VS1 or VM/370, are to be run in the virtual machine. 

Storage in the virtual machine is logically divided 
into 4096 byte areas called pages. A complete set of 
segment and page tables is used to describe the storage 
of each virtual machine. These tables are maintained 
by CP and reflect the allocation of vittual storage 
pages to blocks of real storage. Virtual storage 
addressing is accomplished through use of these tables 
by the System/370 machine. Storage in the real machine 
is logically and physically divided into 4096 byte 
areas called page frames or blocks. 

Only referenced virtual storage pages are kept in real 
storage, thus optimizing real storage utilization. 
Further, a page can be brought into any available page 
frame; the necessary relocation is done during program 
execution by a combination of VM/370 and dynamic 
address translation on the System/370. The active 
pages from all logged-in virtual machines and from the 
pageable routines of CP compete for available page 
frames. When the number of page frames available for 
allocation falls below a threshold value, CP determines 
which virtual storage pages currently allocated to real 
storage are relatively inactive and initiates suitable 
page-out operations for them. 


Inactive pages are maintained on a direct access 
storage device. If an inactive page has been changed at 
some time during virtual machine execution, CP assigns 
it to a paging device, selecting the fastest such 
device with available space. If the page has not 
changed, it remains allocated in its original direct 
access location and is paged into real storage from 
there the next time the virtual machine references that 
page. A virtual machine program can use the DIAGNOSE 
instruction to communicate to CP that the information 
from specific pages of virtual storage is no longer 
needed; CP then releases the areas of the paging 
devices which had been assigned to hold the specified 
pages. 

Paging is done on demand by CP. This means that a page 
of virtual storage is not read (paged) from the paging 
device to a real storage block until it is actually 
needed for virtual machine execution. No attempt is 
made by CP to anticipate what pages might be required 
by a virtual machine. While a paging operation is 
being performed for one virtual machine, another 
virtual machine can be executing. Any paging operation 
initiated by CP is transparent to the virtual machine. 

If the virtual machine is executing in extended control 
mode with translate on, then two additional sets of 
segment and page tables are maintained. The virtual 
machine operating system is responsible for mapping the 
virtual storage created by it to the storage of the 
virtual machine. CP uses this set of tables in 
conjunction with the page and segment tables created 
for the virtual machine at login time to build shadow 
page tables for the virtual machine. These shadow 
tables map the virtual storage created by the virtual 
machine operating system to the storage of the real 
computing system. The tables created by the virtual 
machine operating system may describe any page and 
segment size permissible in the IBM System/370. 

The system operator may assign the reserved page frames 
option to a single virtual machine. This option, 
specified by the SET RESERVE command, assigns a 
specific amount of the storage of the real machine to 
the virtual machine. CP dynamically builds a set of 
reserved real storage page frames for this virtual 
machine during its execution until the maximum number 
"reserved" has been reached. Since other virtual 
machines' pages are not allocated from this reserved 
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set, the effect is that the most active pages of the 
selected virtual machine remains in real storage. 

During the process of CP system generation, the 
installation may specify that a single virtual machine 
is to be given an option called virtual=real. With 
this option, the virtual machine's storage is allocated 
directly from real storage at the time CP is initially 
loaded, and remains so allocated unless released via 
operator command. All pages except page zero are 
allocated to the corresponding real storage locations. 
In order to control the real computing system, real 
page zero must be controlled by CP. Conseguently, the 
real storage size must be large enough to accommodate 
the CP nucleus, the entire Virtual=Real virtual 
machine, and the remaining pageable storage 
reguirements of CP and the other virtual machines. 

The virtual=real option improves performance in the 
selected virtual machine since it removes the need for 
CP to perform paging operations for the selected 
virtual machine. The virtual=real option is necessary 
whenever programs that contain dynamically modified 
channel programs (excepting those of OS ISAM) are to 
execute under control of CP. 


Virtual M achi ne I/ O Management 


A real disk device can be shared among multiple virtual 
machines. Virtual device sharing is specified in the 
directory entry or by a user command. If specified by 
the user an appropriate password must be supplied 
before gaining access to the virtual device. A 
particular virtual machine may be assigned read-only or 
read/write access to a shared disk device. CP verifies 
each virtual machine I/O operation against the 
parameters in the virtual machine configuration to 
ensure device integrity. 

The virtual machine operating system is responsible for 
the operation of all virtual devices associated with 
it. These virtual devices may be defined in the 
directory entry of the virtual machine, or they may be 
attached to (or detached from) the virtual machine's 
configuration while it remains legged on. Virtual 
devices may be dedicated, as when mapped to a fully 


equivalent real device; shared, as when mapped to a 
minidisk or when specified as a shared virtual device; 
or spooled by CP to intermediate direct access storage. 

In a real machine running under control of OS, I/O 
operations are normally initiated when a problem 
program requests OS to issue a START I/O instruction to 
a specific device. Device error recovery is handled by 
the operating system. In a virtual machine, OS can 
perform these same functions, but the device address 
specified and the storage locations referenced are both 
virtual. It is the responsibility of CP to translate 
the virtual specifications to real. 

In addition, the interrupts caused by the I/O operation 
are reflected to the virtual machine for its 
interpretation and processing. If I/O errors occur, CP 
records them but does not initiate error recovery 
operations. These are the responsibility of the 
virtual machine operating system. 

I/O operations initiated by CP for its own purposes 
(paging and spooling), are performed directly and are 
not subject to translation. 


Spooling 


A virtual unit record device, which is mapped directly 
to a real unit record device, is said to be dedicated. 
The real device is then controlled completely by the 
virtual machine's operating system. 

CP facilities allow multiple virtual machines to share 
unit record devices. Since virtual machines controlled 
by CMS ordinarily have modest reguirements for unit 
record I/O, such device sharing is quite advantageous, 
and it is the standard mode of system operation. 

Spooling operations cease if the direct access storage 
space assigned to spooling has been exhausted, and the 
virtual unit record devices appear in a not ready 
status. The system operator may make additional 
spooling space available by purging existing spool 
files or by assigning additional direct access storage 
space to the spooling function. 
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Specific files can be transferred from the spooled card 
punch or printer of a virtual machine to the card 
reader of the same or another virtual machine. Files 
transferred between virtual unit record devices by the 
spooling routines are not physically punched or 
printed. With this method, files can be made available 
to multiple virtual machines, or to different operating 
systems executing at different times in the same 
virtual machine, 

CP spooling includes many desirable options for the 
virtual machine user and the real machine operator. 
These options include printing multiple copies of a 
single spool file, backspacing any number of printer 
pages, and defining spooling classes for the scheduling 
of real output. 


Console Functions 


The CP console functions allow the user to control the 
virtual machine from the terminal, much as an operator 
controls a real machine. Virtual machine execution can 
be stopped at any time by use of the terminal's 
attention key; it can be restarted by typing in the 
appropriate CP command. External, attention, and device 
ready interrupts can be simulated on the virtual 
machine. Virtual storage and virtual machine registers 
can be inspected and modified, as can status words such 
as the PSW and the CSW. Extensive trace facilities are 
provided for the virtual machine, as well as a 
single-instruction mode. Commands are available to 
invoke the spooling and disk sharing functions of CP. 

Console functions are divided into privilege classes. 
The directory entry for each user assigns one or more 
privilege classes. The classes are: 

• System operator 

• Operator 

• System programmer 

• Spooling operator 

• Systems analysts 


• Customer engineering 

• General users 

Commands in the system analysts class may be used to 
inspect real storage locations, but may not be used to 
make modifications to real storage. Commands in the 
operator class provide real resource control 
capabilities. System operator commands include all 
those relating to virtual machine performance options, 
such as assigning a set of reserved page frames to a 
selected virtual machine. See the "CP Commands" 
sections of this chapter for more information. 


PROGRAM STATES 


When instructions in the Control Program are being 
executed, the real computer is in the supervisor state; 
at all other times, when running virtual machines, it 
is in the problem state. Therefore, privileged 
instructions can only be executed by the Control 
Program. Programs running on a virtual computer can 
issue privileged instructions; such an instruction 
causes an interruption that is handled by the Control 
Program. CP examines the operating status of the 
virtual machine PSW. If the virtual machine indicates 
that it is functioning in supervisor mode, then the 
privileged instruction is simulated according to its 
type. If the virtual machine is in problem mode, then 
the privileged interrupt is reflected to the virtual 
machine. 

Only the Control Program may operate in the supervisor 
state on the real machine. All programs other than CP 
operate in the problem state on the real machine. All 
user interrupts, including those caused by attempted 
privileged operations, are handled by CP, which then 
reflects to the user program only those interrupts that 
the user program would expect from a real machine. A 
problem program executes on the virtual machine in a 
manner identical to its execution on a real System/370 
CPU, as long as it does not violate the CP 
restrictions. 
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PREFERRED VIRTUAL MACHINE 


CP supports four special virtual machine operating 
environment functions. Each function can be applied to 
one virtual machine at a time. Although each ‘function 
could be applied to a different virtual machine, 
optimum performance would not be achieved. Each 
function is discussed separately following. 


FAVORED EXECUTION 


CP attempts to provide a specified percentage of CPU 
time to a particular virtual machine. CP attempts to 
provide up to the specified percentage of CPU time to a 
particular virtual machine, provided that the virtual 
machine is functioning so that it can fully utilize the 
CPU time. At regular time intervals the CP dispatcher 
checks the CPU time used by the particular virtual 
machine. If the specified percentage is exceeded, the 
machine becomes the lowest priority user in the system. 
If the percentage used is lower than that specified, 
the virtual machine has highest priority execution for 
the remainder of the interval. The percentage of CPU 
time assured is specified in the privileged class 
command that invokes the function. 

CP can also assure that a designated user will never be 
dropped from the active (in gueue) subset by the 
scheduler. When the user is runnable, he is placed in 
the dispatchable list at his normal priority. 


RESERVED PAGE FRAMES 


CP uses chained lists of table entries for available 
and pageable pages. Pages for users are assigned from 
the available lists which is replenished from the 
pageable list. 

Pages which are temporarily locked in real storage are 
not available or pageable. Paging proceeds using 
demand paging with a "reference bit" algorithm to 
select the best page for swapping. The reserved page 
frames option gives a particular virtual machine an 
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essentially "private" set of pages. The pages are not 
locked, that is, they can be swapped, but usually only 
for the specified virtual machine. The number of 
reserved pages for the victual machine are specified as 
a maximum. The page selection routine will select an 
available page for a reserved user and mark that page 
"reserved" if the maximum specified for the user has 
net been reached. If an available, unreferenced 
"reserved" page is .encountered during page 
replenishment for tl^e reserved user, it is used whether 
or not the maximum has been reached. If the page 
selection routine cannot locate an available page for 
other users because they are all "reserved", the 
routine may have to steal the reserved pages. 


DEDICATED CHANNELS 


Since the devices on a channel are often shared between 
virtual machines (minidisks and dedicated devices) and 
shared with system functions (paging and spooling), CP 
schedules all the I/O requests to achieve a balance 
between machines. In addition, CP simulates the 
reflection of the subsequent I/O interrupts to the 
virtual machines. By specifying a dedicated channel (s) 
for a virtual machine, the CP channel scheduling 
function is bypassed. The virtual device addresses on 
the dedicated channel must match the real device 
addresses. Since the channels are dedicated, CP uses 
the virtual machine masking to control the real channel 
masking. I/O interrupts from the dedicated channel are 
presented in the order of occurrence using a single 
element stack and the real channel masking. 

A single virtual machine may have multiple dedicated 
channels. Also, multiple virtual machines may each have 
a separate dedicated channel. 


VIRTUAL=REAL 


This feature requires that the CP nucleus be 
reorganized to provide a "hole" in real storage large 
enough to contain the entire storage area of the 
virtual machine. For the virtual machine, each page 
from page 1 to the last page (n) is in its true real 
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storage location; only page zero is relocated. The 
virtual machine is still run in relocate mode, but 
since the virtual page address is the same as the real 
page address, no CCW translation is required for the 
virtual machine. Since no CCW translation is performed, 
no check is made of the I/O data addresses. The 
virtual machine must ensure that no I/O data transfer 
is specified into page zero or into any page not in the 
virtual machined domain. 

There are several considerations for the virtual=real 
option of preferred machine support that affect overall 
system operation: 

• The area of contiguous storage built for the 
virtual=real machine must be large enough to contain 
the entire addressing space of that machine. 


Only the virtual=real virtual machine can issue the 
command. A message is issued if normal translation 
mode is entered. 


CP INTERRUPTION HA NDLING 

I/O INTERRUPT 


I/O interrupts from completed I/O 
various completion routines and 
further I/O requests. The I/O 


operations initiate 
the scheduling of 
interrupt handling 


routine also gathers device sense information. 


• While allocated as such, the storage reserved for 
the virtual=real machine can only be used by a 
virtual machine with that option. It is not 
available to other users for paging space nor for 
VM/370 usage, even when the virtual=real machine is 
not logged on. For this reason, it is expected that 
the virtual=real machine will be a high 
availability, high throughput machine. 

The virtual=real storage can be released by the 
operator. That storage is then available for paging. 
Once virtual=real storage space is released by the 
operator, a VM/370 IPL is necessary to again 
allocate that storage to that virtual=real machine. 

• The virtual machine with the virtual=real option 
operates in the pre-allocated storage area with 
normal CCW translation in effect until the execution 
of the SET NOTRANS ON command. At that time, all 
subsequent I/O operations are performed from the 
virtual CCWs in the virtual=real space without 
translation. In this mode, the virtual machine must 
not perform I/O operations into page zero nor beyond 
its addressable limit. Violation of this requirement 
causes destruction of the VM/370 system and/or other 
virtual machines. 


• If the virtual=real machine performs a virtual reset 
or IPL, then the normal CCW translation is performed 
until the issuance of the SET NOTRANS ON command. 


PROGRAM INTERRUPT 


Program interrupts can occur in two states. If the CPU 
is in supervisor state, the interrupt indicates a 
system failure in the CP nucleus and causes a system 
abend. If the CPU is in problem state, then a virtual 
machine is executing. If the program interrupt 
indicates that the Dynamic Address Translation (DAT) 
feature has an exception, a virtual machine issued a 
privileged instruction, or a protection exception 
occurred for a shared segment system, then CP takes 
control to perform any required processing to satisfy 
the exception. Usually, the interrupt is transparent 
to the virtual machine execution. Most other program 
interrupts result from virtual machine processing and 
are reflected to the machine for handling. For a 
complete discussion of this subject, see the 
appropriate explanation in the section "Method of 
Operation". 


MACHINE CHECK INTERRUPT 


When a machine check occurs, the CP Recovery Management 
Support (RMS) gains control to save data associated 
with the failure for FE maintenance. RMS analyzes the 
failure to determine the extent of damage. 
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Damage assessment results in one of the following 
actions being taken: 

• System Termination 

• Selective Virtual User Termination 

• Refreshing of damaged information with no affect on 
system configuration 

• Refreshing of damaged information with the defective 
storage page removed from further systems use 

• Error recording only for certain soft machine checks 


The system operator is informed of all actions taken by 
the RMS routines. When a machine check occurs during 
VM/370 startup (before the system is set up well enough 
to permit RMS to operate successfully), the CPU goes 
into a disabled wait state and places a completion code 
of X*00B 1 in the high-order bytes of the current PSW. 


SVC INTERRUPT 


When an SVC interrupt occurs, the SVC interrupt routine 
is entered. If the machine is in problem mode, the 
type of interrupt is reflected back to the 
pseudo-supervisor (that is, the supervisor operating in 
the user’s virtual machine). If the machine is in 
supervisor mode, the SVC interrupt code is determined, 
and a branch is taken to the appropriate SVC interrupt 
handler. 


EXTERNAL INTERRUPT 


If a timer interrupt occurs, CP processes it according 
to type. The interval timer indicates time-slice end 
for the running user. The clock comparator indicates 
that a specified timer event has occurred, such as 

I midnight, scheduled shutdown, or user event reached. 
The CPU timer indicates that a virtual machine*s 
allowed execution interval (time in queue) has expired. 

The external console interrupt invokes CP processing to 
switch from the 3210 or 3215 to an alternate operator’s 
console. 


FREE STORAGE MANAGEMENT 


During its execution, CP occasionally requires small 
blocks of storage that are used for the duration of a 
task. This storage is obtained from the free storage 
area. The free storage area is divided into various 
size subpools. The requestor informs the Free Storage 
Manager the size of the block required and the smallest 
available subpool that fulfills the request is 
allocated to the requestor. When the block is no longer 
needed, the requestor informs the Free Storage Manager 
and the block is returned to free storage. 

If the request for free storage cannot be fulfilled the 
Free Storage Manager requests the temporary use of a 
page of storage from the Dynamic Paging Area. If a 
page is obtained, then the page is chained to the free 
storage area and used for that purpose until it is no 
longer needed and subsequently returned to the Dynamic 
Paging Area. 

If the request for a page cannot be fulfilled, the 
requestor waits until free storage becomes available. 


EXECUTING THE PAGEABLE CONTROL PROGRAM 


Calls to pageable routines are recognized at execution 
time by the SVC 8 linkage manager in DMKPSA. For every 
SVC 8, the called address (in the caller’s GPR15) is 
tested to see if it is within the resident nucleus. If 
it is less than DMKCPEND and greater than DMKSLC, the 
called routine’s base address is placed in GPR12 and 
control is passed to the called routine in the normal 
| way. However, if the called address is above DMKCPEND 
I or below DMKSLC, the linkage manager issues a TRANS 
macro, requesting the paging manager to locate and, if 
necessary, page-in the called routine. The TRANS is 
issued with LOCK option. Thus, the lock count 
associated with the called routine’s real page 
| indicates the responsibility count of the module. 

• When the module is called, the count is incremented. 

• When the routine exits via SVC 12, the count is 
decremented. 



When the count reaches zero, the pageable routine is 
unlocked and is eligible to be paged out of the system* 
However, since all CP pageable modules are reentrant, 
the page is never swapped out, but when stolen is 
placed directly on the free page list. 

Since unlocked pageable routines participate in the 
paging process in a manner similar to user virtual 
storage pages, the Least Recently Used approximation 
used by page selection tends to make highly used 
control program routines, even when not locked, remain 
resident. The called routine is locked into real 
storage until it exits. Thus, it can reguest 
asynchronously scheduled function, such as I/O or Timer 
interrupts, as long as it dynamically establishes the 
interrupt return address for the requested operation 
and does not give up control via an EXIT macro prior to 
receiving the requested interrupt. 

Addressability for the module while it is executing is 
guaranteed since the CALL linkage loads the real 
address of the paged module into GPR12 (the module base 
register) prior to passing control. If all addressing 
is done in a base/displacement form, the fact that the 
module is executing at an address different from that 
at which it was loaded is transparent. Although part 
of the control program is pageable it never runs in 
relocate mode. Thus, the CPU is not degraded by the 
DAT feature being active, and there is no problem of 
handling disabled page-faults. 


CONTROL REGISTER USAGE 


Every IBM System/370 CPU provides the program with 16 
logical control registers (logical registers since the 
number that are active depends on the features 
installed in the machine at any one time) that are 

addressable for loading and storing from BC mode. 

VM/370 provides only a single control register, control 
register zero, for normal virtual machines, for 

processing systems that do not require the full set of 
registers (for example, CMS, DOS, or other operating 
systems for system/360. 

Any user whose virtual machine operating system 
requires the use of control registers other than 
control register zero can request the full set of 16 
registers by specifying the ECMODE option in the VM/370 
user-directory entry for his virtual machine. 

Specifying this option does not imply that the virtual 
machine will encounter any of the additional overhead 
associated with use of the Extended Control mode but 
permits the use of all 16 control registers from either 
BC or EC mode. 

A virtual machine, which utilizes any System/370 
features that use the control registers, requires the 
ECMODE option. Some of these features are expanded 
timer support of the System/370, (CPU timer, clock 
comparator, etc.), the virtual relocate-mode and its 
| instructions, RRB, LRA, PTLB, virtual monitor calls, 
virtual Program Event Recording (PER), etc. 


SY STEM SU PPOR T MODULES 


The system support modules provide CP several common 
functions in the area of data conversion and control 
block scanning and verification. Since most of the 
routines operate at the lowest level of control, they 
are linked to via the BALR option of the CALL macro, 
and make use of the BALRSAVE and TEMPSAVE workareas in 
DMKPSA. Two exceptions to this are the virtual and real 
I/O control block scan routines DMKSCNVU and DMKSCNRU. 
These routines do not alter the contents of the 
BALRSAVE area, and hence may be called by another low 
level BALR routine. 


I RESTRICTIONS AND CONVENTIONS FOR PAGEABLE CP NODDLES 

CP modules that are to be pageable must observe the 
following restrictions and conventions when they are 
designed and coded: 

1. The module should be completely reentrant. Any 
messages to be modified, temporary work or scratch 
areas, or program switches must be allocated from 
system free storage or from the caller's save 
area. 
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2. The module must be entered via the standard SVC 8 
CALL linkage. Modules entered via BALE or GOTO 
cannot be pageable. 

3. The module cannot contain any A or V type address 
constants that point to locations within itself or 
within other pageable modules, and it cannot 
contain any CCWs that contain data address within 
itself. The only exceptions are address constant 
literals generated as the result of CALLS to other 
modules (since these addresses are dynamically 
relocated at execution time, they must be resolved 
by the loader to the loaded address of the called 
module) and a pageable module that locks itself 
into storage. In practice, this restriction 
simply means that data or instructions within the 
pageable routine must be referenced via 
base/displacement addressing, and the address in 
register 15 for a CALL may not be generated via a 
LOAD ADDRESS. 

4• The pageable module must be no more than 4096 
bytes in length. 

If the above design and coding restrictions are adhered 
to, the CP module can be added to the existing pageable 
nucleus modules by utilizing the service routine, 
VMFLOAD, which is described in the "VM/370 Maintenance 
Procedures” chapter of the publication IBM Virtual 
Machine Facility/370 : S ervice Routines Program Logic , 
Order ~No. SY20-0882. Additional information can be 
found in "Appendix I” of the publication IBM V irtu al 
Ma chine Facility/370 : Planning and System Generation 
Guide, Order No. GC20-1801. 


MODULES 


Executable Resident M odules 


DMKCCH 

DMKCCW 

DMKCFM 

DMKCNS 

DMKCVT 

DMKDAS 

DMKDGD 

DMKDMP 

DMKDSP 

DMKFRE 

DMKGEN 

DMKHVC 

DMKIOE 

DMKIOS 

DMKMCH 

DMKMSW 

DMKPAG 

DMKPGS 

DMKPGT 

DMKPRG 

DMKPRV 

DMKPSA 

DMKPTR 

DMKQCN 

DMKRPA 

DMKRSP 

DMKSCH 

DMKSCN 

DMKSTK 

DMKTMR 

DMKUNT 

DMKVAT 

DMKVCN 

DMKVIO 

DMKVSP 



f 

V ) 




I 



Executable Pageable Modules 


DMKACO 
DMKBLD 
DMKCDB 
DMKCDS 
DMKCFD 
DMKCFG 
DMKCFP 
DMKCFS 
DMKCFT 
DMKCKP 
DMKCPB 
DMKCPI 
DMKCPV 
DMKCQG 
DMKCQP 
DMKCSO 
DMKCSP 
DMKCSU 
DMKDEF 
DMKDIA 
DMKDRD 
| DMKEIG 
DMKERM 
| DMKGRA 
DMKIOF 
DMKIOG 
DMKISM 
DMKLRK 
| DMKLOC 
DMKLOG 
| DMKMCC 
DMKMID 
DMKMSG 
DMKNEM 
| DMKRSE 
DMKSAV 
DMKSEP 
I DMKSEV 
I DMKSIX 
DMKSPL 
DMKTAP 
DMKTDK 
DMKTRA 
DMKTRC 
DMKTRM 
DMKODR 
DMKUSO 
DMKVCA 


DMKVCH 

DMKVDB 

DMKVDS 

DMKVMI 

DMKWRM 


Data Area Modules 


In addition to the executable resident and pageable 
modules there are certain modules that only contain 
data areas and do not execute. These modules are: 


Resident 

Module Contents 


DMKCPE 

DMKRIO 

DMKSYS 

DMKTBL 


Defines the end of the CP nucleus 
I/O device blocks 
System constants 
Terminal translate table 


Pageable 

Module Contents 


DMKBOX 

DMKFCB 

DMKSNT 

DMKSYM 

DMKUCB 

DMKDCS 


Output separator table 

3211 Forms control Buffer (FCB) load tables 
System name table 
System symbol table 

3211 Universal Character Set Buffer (UCSB) 
load tables 

1403 Universal Character Set (UCS) load 
tables 


The data areas within these modules are discussed 
throughout this publication; most are illustrated in 
the section ”Data Areas”. 
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METHOD OF OPERATION 


Diag. 1A. Overview of Method of Operation Diagrams 




The VM/370 Control Program (CP) is interrupt driven. Thus, when an interrupt occurs, control is passed to the appropriate Interrupt 
Handler. These are: 


For SVC interrupts, the SVC Interrupt Handler 


For External interrupts, the External Interrupt Handler | 


For Machine Check interrupts, the Machine Check Handler (MCH) \ 


For i/O interrupts, the I/O Interrupt Handler | 


DMKIOSIN passes control to the appropriate processor depending on the type of I/O interrupt. They are: 
• From Dedicated Channel 


DMKVIODC 


3 


• From unknown channel, the interrupt is ignored | 

• From an unsolicited Device End, build an IOBLOK I 
and for: Console (T/P) | 


D 


• From a Channel ERROR, the Channel Check 
Handler 


DMKCCHNT 
Diag. 8B2 




Unit Record (U/R), real spooling 
• From a solicited Device End DMKSTKIO 



• From a dedicated device error, for either CP or a virtual machine 
(DMKVCH), the ERP for: 


DASD 


DMKDASER 


^ Tape 


DMKTAPER 


3 


to stack IOBLOK I 


Recoverable error? No, record error 
Yes m 


DMKIOERR 


3 


I For Program Check interrupts, the Program Check Interrupt Handler 
DMKPRGIN passes control to the appropriate processor, depending on the type of program check, as follows: 


• For normal paging 


• For paging (virtual 
machine in EC mode) 


dmkptranA 

Diag.lB3.2y 


DMKVAT 

D iag. 1B3.6 


) 


• For Supervisor state 

• For privileged instructions 


D 


DMKPRVLG \ 
Diag. 1B3.7 J 


DMKPRVLG passes control as follows: 

• For DIAGNOSE instructionsl^^^DMKHVC 

• For timers 




DMKTMR 


) 


• For virtual machine I/O I 


dmkvioexA 
D iag. 1B3.9 J 

DMKVIOEX passes control as follows: 

• For console | 


DMKVCNEX 
^Diag. 7B1 . 


• For Unit Record (U/R), virtual 
spooling | 


♦c 

*c 


DMKPSASV 

Diag. 1B1 


DMKPSAEX 
Diag. 1B2 


^f DMKMCHIN 

Diag. 8B1 


DMKIOSIN \ 
^FV ^Diag.iB4.1 J 


DMKPRGIN 'N 
Diag. 1B3 J 
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Diag. 1A0. CP Control Block Relationships 






















SVC INTERRUPT!QMS 


When an SVC interruption occurs, the SVC interruption 
routine (DMKPSASV) is entered. If the machine is in 
problem mode, DMKPSASV takes the following action: 

• The SVC interrupt code is examined to determine if 
the interrupt was the result of an ADSTOP SVC code 
X'B3'. If it was, the message ADSTOP AT XXXXX is 
sent to the user's terminal, the overlaid 
instruction is replaced, and the virtual machine is 
placed in console function mode via DMKCFMEK; 
otherwise, the virtual machine's mode (BC or EC) is 
determined, 

• If the virtual machine was in EC mode or its page 0 
was not in real storage, then all general and 
floating-point registers are saved, the user's 
VMELOK is flagged as being in an instruction wait, 
and control is transferred (via GOTO) to DMKPRGRF to 
reflect the interrupt to the virtual machine. 

• If the virtual machine was in BC mode and if his 
page 0 is in main storage, then an appropriate SVC 
old PSW is stored in his page 0 and the interrupt is 
reflected to the virtual machine, bypassing 
unnecessary register saving. If the new virtual PSW 
indicates the wait state, all registers are saved in 
the VMBLOK and control transfers to DMKDSPB for PSW 
validation. 

If the machine is in supervisor mode, the SVC 
interruption code is determined and a branch is taken 
to the appropriate SVC interruption handler. 

SVC 0: Impossible condition or fatal error. The SVCDIE 
routine initiates an ABEND by going to the DMKDMPDK 
routine. 

SV C 4: Reserved for IBM use. 

SVC 8: Link request (transfer control from calling 
routine to called routine specified by register 15). 
The SVCLINK routine sets up a new save area, and then 
saves the caller's addressability (register 12) and 
save-area address (register 13), and the return-address 
(from the SVCOPSW) in the new save area. If the called 


routine (specified by register 15) is within the 
resident CP nucleus, SVCLINK places its address in 
register 12 and branches directly to the called 
routine. If the called routine is in a pageable module, 
a TRANS is performed on register 12 to ensure that the 
page containing the called routine is in storage. Upon 
return from the TRANS, the real address of the pageable 
routine is placed in register 12 and SVCLINK branches 
to the called routine. The real storage location of 
DMKCPE is the end of the resident CP nucleus. Any 
modules loaded at a higher real storage address are 
defined as pageable modules. 

SVC 12 : Return request (transfer control from called 
routine to calling routine). The SVCRET routine is 
invoked. If the routine which issued the SVC 12 is in 
the pageable module DMKPTRUL, then DMKPGSUL is called 
to unlock the page. SVCRET then restores registers 12 
and 13 (addressability and save area address saved by 
SVCLINK)., places the user's return address (also saved 
in the area) back into the SVCOPSW, and returns control 
to the calling routine by loading the SVCOPSW. 

SVC 1 6 : Release current save area from the active chain 
(remove linkage pointers to the calling routine). The 
SVCRLSE routine releases the current save area by 
placing the address of the next higher save area in 
register 13 and returns control to the current routine 
by loading the SVCOPSW. This SVC is used by second 
level interrupt handlers to bypass returning to the 
first level handler under specific circumstances. The 
base address field (register 12) in the save area being 
released is examined to determine if the bypassed 
routine is in a pageable module. If so, DMKPTRUL is 
called to unlock the page. 

SVC 20: Obtain a new save area. The SVCGET routine 
places the address of the next available save area in 
register 13 and the address of the previous save area 
in the save area pointer field of the current save 
area. 

There are 35 SAVEAREAs initially set up by DMKCPINT for 
use by the SVC linkage handlers. If the supply of 
available save areas drops to zero, the linkage 
handlers calls DMKFREE to obtain storage for additional 
save areas. 
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Diag. 1B1. 


SVC Interrupt Handler 


INPUT 


For problem mode: 


SVC OLD PSW 


VMBSTAT 




For supervisor mode: 


GR15 


A (called routine) 





PROCESS 


DMKPSASV - SVC Interrupt Handler 


If problem mode: 

• And ADSTOP SVC, simulate ADSTOP to virtual machine | 

• And INSTRUCTION/BRANCH trace SVC, call DMKTRACE 


And the virtual machine is in EC mode, and/or Page 0 is not in storage, 
reflect interrupt to virtual machine via DMKPRGRF 

Otherwise, fetch page 0 and swap PSWs. Then run user via LPSW. 



If supervisor mode: 

• For SVC 0 (impossible condition, unrecoverable error), dump CP. 

• For SVC 8 (link request), get a new SAVE AREA and pass it on. The 
caller's base register (GR12), the SAVEAREA address (GR13), and the 
return address (SVCOPSW) are saved in the new SAVEAREA. 

• For SVC 12 (return request), return control to the calling module. 

• For SVC 16, release SAVEAREA and return control to the module that 
issued SVC 16. 

• For SVC 20, get new SAVEAREA and return control to the module 
that issued SVC 20. 


OUTPUT 





EXTERNAL INTERRUPTIO NS 


When an external interruption occurs, the external 
interruption handler (DMKPSAEX) is entered. 


TIMER INTERRUPT 


If DMKPSAEX is entered because of a timer interrupt, 
the machine mode must be determined. If the machine was 
in WAIT state, control is transferred to DMKDSPCH which 
becomes idle until another interrupt occurs. If the 
machine is in problem mode, the address of the current 
user's VMBLOK is obtained from RUNUSER. The user's 
current PSW (VMPSW) is updated from the external 
interruption old PSW, the address of the current VMBLOK 
is placed in register 11, and control is transferred to 
DMKDSPCH. For additional information about timers see 
the section "Virtual Timer Maintenance". 


EXTERNAL INTERRUPT 


If DMKPSAEX is entered because of the operation of the 
console interrupt button (INTERRUPT), the following 
steps are taken: 

1. The current system operator's VMBLOK (DMKSYSOP) is 
referenced. 

2. His virtual machine is disconnected. 

The operator can now logon from another terminal. The 
operation of the console interrupt button is used to 
implement an alternate operator's console. For a 
description of the processing of the EXTERNAL command 
refer to module DMKCPB• 


PROGRAM INTERRUPTIONS 


When a program interruption occurs, the program 
interruption handler (DMKPRGIN) is entered. Program 


interruptions can result from: 

• Normal paging requests. 

• A paging request by a virtual machine in EC mode 
(virtual relocation) . 

• Privileged instructions. 

• Program errors. 

DMKPRGIN determines the cause of the interruption by 
examining the interruption code. 


NORMAL PAGING REQUESTS 


If the program interrupt is caused by a normal paging 
request (it is not from a virtual machine that is 
running in EC mode with translation on), DMKPRGIN 
determines whether a segmentation error (a segment of 
the program occurred; if so, an invalid address 
interruption code is set, and the interruption is 
reflected to the user's virtual machine supervisor. If 
a segmentation error has not occurred, the user's 
current PSW is updated from the program old PSW 
(PROPSW), the address of the current VMBLOK is placed 
in register 11, and DMKPTRAN is called to obtain the 
required page. When the paging operation is completed, 
control is returned to DMKDSPCH. 

The functions of paging are divided into three 
categories: the management of virtual storage, the 
management of real storage, and the management of 
auxiliary storage (DASD paging devices). 


Virtual Storag e Management 


When operating in the relocate environment provided by 
CP, each user's virtual storage space is described by 
two sets of tables. 

• One set, the segment and page tables, describes the 
location and availability of any of the user's 
virtual pages that may be resident in real storage. 
Locations in these tables are indexable by virtual 
address, and the entries contain index values that 
reference corresponding real storage addresses. In 
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Diag. 1B3. Program Interrupt Handler 



PROCESS 


DMKPRGIN — Program Check Interrupt Handler 


Determine machine mode and the cause of the interrupt (Program 
Old PSW) 


For virtual machine in EC mode 


• If paging exception, for normal paging 

• For virtual machine in EC 


• If for privileged instruction, 
(INTPR in PSA) 


normal paging 
1C modeHBiM^ 

& 1 I 

■ II 


• If segment exception, si mula te 
address exception. 


• If an invalid operation reflect the interrupt to the virtual machine. 
(DMKPRGRF is also used by DMKPSASV to reflect SVC interrupts 
it could not reflect, virtual machine in EC mode or Page 0 
not in storage.) 


t not in storage.) 

( DMKDSPCH A f DMKPRVLG 
V Piag.2B J V Diag.1B3.7 


C 


DMKVAT 
D iag.1B3.6 


) 




OUTPUT 


3 


( DM KPT RAN A 

D iag.1B3.2 J 



DUMP 


User's Page 0 


VMBLOK 


VMPSW 


VMINST 
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Diag. 1B3.0. Paging Overview 


INPUT 


GR2 

| Parameters | 


ia 


SWPFLAG0 


GR1 

| Virtual Address) 


SEGTABLE 


PAGING 

DEVICE 


=3 


FREEI 

_IST 

FLUSH LIST | 

USERI 

LIST 



PROCESS 


DMKPTR 
Translate address 

Is requested page already in storage? YES 


I 

NO 

9 


Determine page selection 

- Is page available from lists?| 

I 

NO 


■ YES 


« 


Release pages (DMKPGS) 

Allocate DASD space (DMKPGT) 
Schedule page I/O (DMKPAG) 
Mark page free 

J 


r 


OUTPUT 


Replenish FREELIST 
Lock — if requested 
Form address 


PAGING 

DEVICE 


MM Bits defined for COR FLAG 


IS Bits defined for SWPFLAG 


CORIOLCK 

EQU 

X'80' 

Page locked for I/O 

SWPTRANS 

EQU 

X’80' 

Page in transit 

CORCFLCK 

EQU 

X'40’ 

Page locked by console function 

SWPRECMP 

EQU 

X'40' 

Page permanently assigned 

CORFLUSH 

EQU 

X'20' 

Page is in flush list 

SWPALLOC 

EQU 

X’20' 

Page enqueued for allocation 

CORFREE 

EQU 

X'lO' 

Page is in free list 

SWPSHR 

EQU 

X'10' 

Page shared 

CORSHARE 

EQU 

x'os* 

Page is shared 

SWPREF1 

EQU 

X'08' 

1st half page referenced 

CORRSV 

EQU 

X'04’ 

Page is reserved 

SWPCHG1 

EQU 

X'04' 

1st half page changed 

CORDISA 

EQU 

X'01' 

Page disabled — not available 

SWPREF2 

EQU 

X'02' 

2nd half page referenced 





SWPCHG2 

EQU 

X'01' 

2nd half page changed 


G 


1 


Return to caller 
via GR2 


) 


I 

V../ 


v y 








Diag. 1B3.1• Virtual to Beal Address Translation 

Virtual Address 

Segment Page Displacement 

|0 7|8 15116 19120 311 


Example: 

Translate Virtual Address 0008D424 to Real Address 

Segment Table Register _ Virtual Address 

0- 1 2 4 6 ri I 0 ,0 I 0 

18 3l| 0 718 


15 |16 19| 20 


D Locate the 
Segment 
Table. 

Segment Table Register 

Segment Table Origin 

Is 


Index to 
Segment 
Table Entry. 


' Segment Table 


Length j 0000 j 

0 314 7J.8 


Page Table Origin 


© Locate the 
Page Table. 


O l ndex to Page 
Table Entry, 


Table Entry, 
Appending a Low 
Order 0 


J Page Table 



r 


Bloc Number I00R 


y0 11^12 15 

^0 

x 





012460-Segment Table 


0 


1 


2 


3 


4 




6 




8 

F0014440 



4 

v x~'. 




V_ 












Locate the appropriate segment 
table entry - the eighth entry in 
the segment table at location 
012460. This entry points to 
the page table. 


Locate the appropriate page table 
entry - the 13 th entry in the page 
table at location 014440. This 
entry contains the real block number. 


The block number in the page table 
entry and the displacement in the 
virtual address combine to provide 
the real address. 


[014440 -Page Table 


D 


i 


2 


® 


© 


5 


® 


7 


8 


9 

J 

A 


B 


C 


D' 

r 0200 

E 


F 






r-s 
















"7 







t A 

x. _ 

r' 

C 3 

L_ 

a 


424 

Address 


I = Invalid Bit 
R = Reference Bit (software) 
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addition, each table entry contains an indication of 
whether the corresponding virtual page is available 
to the user in real storage. These tables are 
referenced directly by the DAT feature when the 
user’s program is running. 


• The second set of tables is a map of the locations 

of the user’s pages on the DASD devices that 

comprise the system's paging or auxiliary storage. 
The DASD addresses in these tables can either 
represent the source of a page of virtual storage 

(the location to which a page may be moved, if 

necessary) or a dummy address, indicating that the 
given page has not yet been referenced, and thus has 
a value of binary zeros. 

The tables are arranged in a format indexable by 

virtual storage address. In addition to containing the 
address of a page, each entry contains flags and status 
bytes that indicate such information as: 

• The storage protection keys to be assigned to the 
page when it is made resident. 

• Whether the page is currently on its on its way into 
or out of the system (in transit), etc. 

These tables, called swap tables, are not referenced 
directly by the hardware as are the page and segment 

routines tables, but are used by paging management to 

locate user pages that are needed to execute a program. 

Virtual storage management is done by the technique 
known as demand paging. This means that a page of 
virtual storage is not ’paged in' from its DASD 

auxiliary store slot until it is needed for execution. 

CP does not determine the pages required by a user 
before he is run. A demand for a page can be made 
either implicitly or explicitly. 

• An implicit demand is made when a user program 
attempts to reference a page that is not available 
in real main storage. This attempt causes a program 
interrupt with the interrupt code indicating a page 
or segment exception. Upon recognition of this 
condition, control is passed to the paging manager 
to obtain a page of real main storage and to bring 
in the desired page. 


• An explicit request for virtual storage can be made 
by the control program (for example, in the course 
of translating a user's channel program). If, in the 
process of translation, the control program 
encounters a CCW that addresses a page that is not 
resident in real storage, a call is made to the 
paging manager to make the referenced page resident. 

While the requested page is being fetched, the 
requesting user is unable to run; however, it may be 
possible to run other tasks in the system, and the 
control program runs these while that page is being 
paged in. When the requested page is resident, the user 
can be run and is dispatched in his turn. 

In addition to obtaining pages by demand, users 
implicitly or explicitly release pages of their virtual 
storage space. Part of the space may be explicitly 
released from both real and virtual storage via a 
diagnose instruction which indicates to the control 
program those pages that are to be released. An entire 

virtual storage is released when a user IPLs a new 

operating system or logs out from the system. 

The VM/370 control program itself also has virtual 

storage associated with it. This space is used to 

contain the control program (some parts of which need 
not always be resident in real storage), and is also 
used for virtual storage buffers for spooling and 
system directory operations. Although the control 
program makes use of virtual storage space for its 
execution, it does not run in relocate mode itself. 
Thus, nonresident modules must be completely 
relocatable. 


Real Storage Management 


It is the function of real storage management to 
efficiently allocate the system's page frames of real 
storage to satisfy the demands for virtual pages made 
by the system's users. Efficiency of allocation 
involves a trade-off; the paging manager utilizes only 
enough CPU time allocating to ensure that: 

1. The set of virtual storage pages which are 

resident represent those pages that are most 
likely to be used. 





2. The number of cycles available to execute user 
programs is sufficient. 

Inefficiency in the first area causes a condition known 
as thrashing, which means that highly used pages are 
not allowed to remain resident long enough for useful 
work to be performed by or on them. Thrashing could be 
aggravated by the paging manager's page selection 
algorithm or by a dispatcher that attempts to run more 
tasks than the system can handle (the sum of their 
storage requirements exceeds the real paging space 
available in the system). Thus, the paging manager must 
keep statistics on system and user paging activity and 
make these statistics available to the dispatcher so 
that a potential thrashing condition may be detected 
and prevented. 

Inefficiency in the second area causes an unacceptable 
ratio of control program overhead to user program time, 
and in extreme case may cause the control program to 
utilize excessive CPU time. In order to understand how 
allocation is determined by the VM/370 control program, 
it is first necessary to describe the way in which the 
inventory of real storage page frames is described to 
the system. 

Each page frame (4096 byte blocks) of real storage in 
the system is in one of two basic states: not-pageable 
or pageable. A not-pageable page must remain resident 
in real storage for some finite period of time; thus, 
the page frame cannot be taken from its current owner 
in order to give it to someone else. Pages can be 
not-pageable either permanently or temporarily, 
depending on their use. 

• Temporary locks usually occur when an I/O operation 
has been initiated that is moving data either to or 
from the page, and the page must be kept in real 
storage until the operation has completed. 

• A page can also be temporarily not-pageable if it 
contains a nonresident control program routine that 
is active. 

In addition, a page can be not-pageable through use of 
the LOCK command. Pages locked in this fashion are 
permanently resident until they are explicitly unlocked 
by the UNLOCK COMMAND^* Pages that are usually 
considered permanently not-pageable are those that 


contain the resident portion of the control program and 
those that contain the system's free storage area in 
which control blocks, I/O buffers, etc. are built. 

PORTABLE: The data area that is used by the page 

management routines to control and allocate real 

storage is the CORTABLE. Each page frame of real 

storage has a corresponding entry in the CORTABLE, and 
since the table entries are fixed length and 

contiguous, the entry for any given real page frame may 
be located directly by indexing into the table. Each 
entry contains pointers that indicate both the status 
and ownership of the real page which it represents. 
Some pointers are used to link page table and swap 
table entries to the real page (and thus establish 
ownership), while others are used to link the entry 
into one of several lists that the paging routines use 
to indicate the page's status and availability for 
paging. A given CORTABLE entry may appear on one of 
three lists if its real page is available for paging; 
however, if the page is locked or in transit, its entry 
is not in any list and is not referenced when available 
page frames are being searched for swap candidates. The 
lists are known as the FREELIST, the FLUSHLST, and the 
USERLIST, and they represent various levels of page 
availability. 

• The FREELIST contains page frames that are 
immediately available for assignment to a requesting 
user. The virtual storage pages for which they were 
last used have either been released by their owners 
or they have been paged out to auxiliary storage. 
Requests for real storage are always satisfied from 
the FREELIST. If the list has been depleted, the 
requestor waits until a new page frame becomes 
available as the result of a virtual storage release 
or a swap-out. 

• The FLUSHLIST contains page frames that belong to 
those users that have been dropped from an active 
DISPATCHing queue. The FLUSHLST is the first place 
that the page frame selection routine looks to find 
a page to swap out or to assign to the FREELIST for 
a user who requires real storage space. 

• The USERLIST contains the CORETABLE entries for all 
other pageable pages in the system that belong to 
active users. 
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Reguests For Real Storage Pages 


Requests for real storage fall into two general 
categories; those that are requesting space for a page 
of virtual storage, and those (such as requests for CP 
work space) that need the real page for their own use. 
The former, more general case is discussed first, since 
the latter case is a subset of the first. 

The main page manager routine, DMKPTRAN, maps a request 
for a specific user's virtual storage address into a 
page of real storage. This requires that: 

• The virtual page be read in. 

• The necessary tables be updated to show the proper 
status of the page. 

DMKPTRAN requires that the caller supply only the 
virtual address to be translated and any options that 
apply to the page to be located. Most calls are made 
via the TRANS macro, which sets up the necessary 
parameters, determines if the required page is 
resident, and calls DMKPTRAN if it is not. 

When DMKPTRAN receives control, it first tests to see 
if the requested page is resident. This is done via the 
LRA hardware translation feature. If the page is 
resident, the routine locks the page if requested and 
exits to the caller. If the LRA indicates that the 
page is unavailable, it is still possible that the 
required page is resident. This occurs if the page has 
been placed on the FREELIST but has not been assigned 
to another user. When the page swap routine removes a 
page from a user, the unavailable bit is set in the 
corresponding page table entry; however, the real main 
storage index for the page is left unchanged. The page 
table entry is set to zero only when the corresponding 
page is actually assigned to another user. Thus, if 
DMKPTRAN finds the page unavailable, a further test is 
made on the page table entry to see if the page can be 
reclaimed. If the entry is not zero (aside from the 
unavailable bit) , the CCRTABLE entry for the page is 
removed from the FREELIST and the page is returned to 
the calling user. 

If the page table entry corresponding to the virtual 
page requested is zero, the required page is not in 
real storage and must be paged in. However, it is 


possible that the page is already on its way into main 
storage. This condition is indicated by a flag in the 
SWPTABLE entry for the virtual page. The DMKPAGIO 
routine maintains a queue of CPEXBLOKs to be dispatched 
when the pending page I/O is complete. The CPEXBLOK 
for the page in transit is located and a new CPEXBLOK, 
representing the current request, is chained to it. 

Before exiting to wait for the paging operation to 
complete, DMKPTRAN checks to see if the deferred return 
(DEFER option) has been specified. If it has not, 
DMKPTRAN returns to the caller. If the DEFER option 
has been requested, DMKPTRAN exits to the dispatcher to 
wait for page I/O completion. When the requested page 
has been read into real storage, the list of CPEXBLOKs 
are unstacked FIFO to satisfy all requests for the page 
that arrived while it was in transit. 

If a page is not in transit, a page frame of real 
storage must be allocated to fill the request. Before 
the allocation routine is called, a test is made to see 
if the caller wishes the return to his routine or to be 
delayed until after the requested page is available. 
If the DEFER option is not requested, DMKPTRAN returns 
to the caller after first building and stacking a 
CPEXBLOK that allows processing of the page request to 
be continued the next time the dispatcher (DMKDSPCH) is 
entered. 

DMKPTRAN next calls the FREELIST manager (DMKPTRFR) to 
obtain the address of the next available CORTABLE 
entry. DMKPTRFR maintains a FIFO list of the CORTABLE 
entries for those page frames that are immediately 
available for assignment. As DMKPTRFR releases these 
page frames, a check is made to see if the number of 
entries on the FREELIST has fallen below a dynamically 
maintained minimum value. If it has, the page 
selection routine (SELECT) is called to find a 
suitable page for placement in the FREELIST. The number 
maintained as the FREELIST threshold has a value equal 
to the number of users in queuel plus the number of 
users in queue2 plus 1. 

The FREELIST is replenished directly by users releasing 
virtual storage space. The page-out routine DMKPGSPD 
calls DMKPTRFT to place released pages directly on the 
FREELIST. However, most replenishment is done via the 
page selection routine, SELECT. SELECT is called by 
DMKPTRFR when the FREELIST count falls below the 
current minimum, or when a user page is reclaimed from 
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the FREELIST. In either case, the selection algorithm 
attempts to find a page to swap to auxiliary storage. 
The highest priority candidates for a swap are those 
pages whose CORTABLE entries appear on the FLUSHLST. 
SELECT attempts to take a flushed page before it takes 
a page from an active user. If such a page is found, 
it is checked to see if it has been changed since 
page-in. If not, it is placed in the FREELIST by 
DMKPTRFT; otherwise, it is scheduled for a swap-out by 
dequeueing the CORTABLE entry from the FLUSHLST, 
constructing a CPEXBLOK for dispatching after I/O 
j completion, and exiting to DMKPAGIO via a GOTO. After 
the paging I/O is complete, the entry is placed on the 
FREELIST via a call to DMKPTRFT. 

If the FLUSHLST is exhausted, SELECT must take a page 
from an active user by examining the pages represented 
by the entries in the USERLIST to locate the least 
recently used user page. This list is scanned from top 
to bottom, and each page is tested to see if its 
hardware referenced bits have been set. If a page has 
been referenced, its bits are reset and it is queued to 
the end of the USERLIST. This process is continued 
until either an unreferenced page is found or the list 
is exhausted. An unreferenced page is immediately 
selected. However, if the list is exhausted, it is 
rescanned from the top. An unreferenced page is always 
| found; in the worst case it is the first one tested on 
the USERLIST at initial entry. However, if this 
occurs, it indicates that the rate of entry to SELECT 
is too low to permit differentiation between high and 
low usage pages. 

Once a page has been selected and its page-out is 
scheduled, control is returned to DMKPTRFR, which then 
passes control back to DMKPTRAN with the address of the 
CORTABLE entry that was allocated. In most cases, 
page-outs are completely overlapped with page-ins. 
Approximately one half of all page-ins require a 
corresponding page-out. 

Once a real page has been assigned, DMKPTRAN checks to 
see if a page-in is required. It usually is, and the 
DASD address of the virtual storage page must be 
obtained from the user*s swap table entry and the I/O 
operation scheduled. However, if the page has not yet 
been referenced (as indicated by a DASD address of 
zero), the real main storage page is set to zero. After 

I the page-in operation has been queued, DMKPTRAN exits 
to the paging I/O scheduler (DMKPAGIO) which initiates 


| the paging operation and exits to the dispatcher 
I (DMKDSPCH) to await the interrupt. 

After the required page has been read in or set to 
zero, DMKPTRAN queues the appropriate CORTABLE entry to 
the end of the USERLIST, where it eventually is 
available for page selection. After developing the real 
storage address that corresponds to the requested 
virtual address, DMKPTRAN tests to see if the caller 
has requested that the page be locked. If LOCK is 
requested, the CORTABLE entry is de-queued from the 
USERLIST and is not available for selection. A 
resident page can also be locked by removing it from 
the USERLIST. In addition, a LOCK count is maintained 
in the CORTABLE entry so that when all locks have been 
satisfied the page can again be made available for 
paging (see PAGUNLOK) . 

Some requests for main storage pages are handled 
differently than the general case of virtual-to-real 
storage mapping. In particular, it may be necessary 
for CP to obtain additional free storage for control 
blocks, I/O lists, buffers, etc. This is handled by 
the free storage manager, which makes a direct call to 
DMKPTRFR to obtain the needed storage. Usually this 
storage is immediately available (due to the page 
buffering technique previously described). However, if 
the FREELIST is exhausted, the request for free storage 
is recognized as a high priority call and queued first 
on the list of those waiting for free pages. 

The real storage manager (DMKPTR) accumulates paging 
statistics which are used by the scheduler (DMKSCH) to 
project user storage requirements. A count of 
page-reads and page-writes is kept in each user's 
VMBLOK; the corresponding total counts for the system 
are kept in DMKPSA. A running total of the number of 
pages a user has resident, at each instance of 
page-read, is kept in the VMBLOK. A count of the 
number of times a user enters page-wait, because a page 
has been stolen from him, is also kept in the VMBLOK. 
The section entitled "Controlling the Depth of 
Multiprogramming" under the heading 
"Dispatcher/Scheduler" describes the use to which the 
scheduler puts these counts. 

VM /370 Virtual^Real F unction : The VM/370 Virtual=Real 
function involves the mapping in a one-for-one 
correspondence of a virtual machine storage area with 
an equivalent real storage area. For instance, virtual 


SY20-0880-1, Page Modified by TNL SN20-2624, August 15, 1973 


Method of Operation 33 



SY20-0880-1, Page Modified by TNL SN20-2624, August 15 


1973 


IBM VM/370: Control Program Logic 34 


page 1 is in real page frame 1 and virtual page 20 is 
in real page frame 20. Virtual page 0, since it cannot 
occupy real page 0, is relocated to be at the end of 
the virtual storage space. 




Diag. 1B3.2 Paging, Provide Real Storage Area 



^ _ PROCESS _ 

DMKPTRAN Translate Virtual Address to Real Address 

• Hardware translate 

• If not in real storage check in transit 

• Defer or page wait 

• Clear real storage if first time 

• Go to DMKPAGIO if not first time 

• Set storage keys 

• Lock page if required 

• Return real address 

DMKPTRUL Unlock Pages 

• Check residence of page to be unlocked - If not resident- 

• Check if page locked already - If already locked-« 

• Check lock count - If zero- 

• Decrement lock count, if zero clear lock flag and return 
page to user list 

DMKPTRFR Obtain a “Free" Page Frame 

• If not out, take from FREELIST 

• If out, count times out of free pages and wait for a page 
frame to become available 

• If FREELIST requires replenishment, steal a page 

• Reset reference bits and locate an unreferenced page 

• Save storage keys 

If page unchanged, place on freelist 

If changed, obtain DASD spaces via DMKPGTPG 

• Go to DMKPAGIO 


DMKPTRFT Return Pages 

• Go to DMKSTKCP if any stacked requests 

• Add specified entry on FREELIST 


^Abend 

^System 

8R 14 



Exit-Return to 
Caller 
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The VM/370 control program nucleus is altered at system 
generation to support the Virtual=Real function. Users 
with Virtual=Real (specially identified in the 
directory) can then log on and use the space reserved 
for this function. That space can be used by only one 
virtual machine at a time. Two virtual machines with 
the Virtual=Real capability cannot occupy the same 
space at the same time. 

The Virtual=Real function is primarily used so that the 
virtual machine may bypass the control program's CCW 
translation. This is possible because I/O from a 
virtual machine occupying a Virtual=Real space contains 
a list of CCWs whose data addresses reflect the real 
storage addresses. The restriction in this situation is 
that the virtual machine does not perform I/O into page 
0 since this would perform a data transfer into real 
page 0. At the same time, it is assumed, and cannot be 
checked, that the virtual machine will also not attempt 
to do I/O beyond the bounds of its virtual addressing 
space. To do so would cause the destruction of either 
the VM/370 control program nucleus, which resides 
beyond the virtual machine space, or another user's 
page. 

The bypassing of CCW translation for the virtual 
machine occupying the Virtual=Real space is only 
invoked after the virtual machine has executed the SET 
NOTRANS ON function. This function can only be issued 
by the virtual machine occupying the Virtual=Real 
space. The function initiates the bypass of CCW 
translation. This function is automatically turned off 
if the virtual machine performs an explicit reset, or 
an implied reset by performing a virtual IPL. During 
virtual machine IPL, it is required that I/O be 
performed into page 0. For this reason, normal virtual 
IPL simulation assumes CCW translation in effect in 
order to accomplish the full simulation. Once the IPL 
sequence has completed, the CCW translation function 
can be bypassed by issuing the SET NOTRANS ON command. 

When the virtual machine demands a page through normal 
use of the control program's page tables, the paging 
routine recognizes the Virtual=Real capability. It then 
assigns the virtual page to the equivalent real page 
frame and does not perform a paging operation, since 
all these pages are resident and are never swapped out. 


Note: The virtual machine running with Virtual=Real is 
still run in System/370 relocate mode. 

Virtual 270X lines and sense operations from the 
virtual machine do not use the Virtual=Real feature. 
These invoke CCW translation for the virtual 
enable/disable lines and the transfer of the sense 
bytes. 

The UNLOCK command has an operand called VIRT=REAL and 
essentially releases the Virtual=Real area for normal 
system paging use. Once the area has been released, it 
can only be reclaimed by an IPL of the VM/370 System. 
The size of the Virtual=Real area is an installation 
specification that is part of the special nucleus 
generation procedure that is outlined in the VM/370 
Planning and System Generation Guide. The size of the 
area must be large enough to contain the entire 
addressing space of whatever virtual machine wishes to 
occupy that space. A virtual machine can use a smaller 
space than is provided but cannot use a larger space 
without regenerating the VM/370 control program 
nucleus. 


DASD Storage Management 


Any user virtual storage pages that have been 
referenced but are not resident in real storage must be 
kept on the DASD paging device. DASD page space is 
assigned only when the page is selected for a page-out. 
Certain DASD pages may also be marked read-only. Thus, 
the DASD address slot initially associated with the 
page should be considered to be the source of the page 
only. If the page is changed after it has been read 
into real storage, a new slot must be obtained when it 
is paged out. Examples of read-only pages are those 
which contain portions of pageable saved systems and 
pages which are part of a system SPOOL file. Slots can 
be reassigned when DMKPTRAN finds that it must swap a 
page out to a movable head DASD device. In this case, 
the old slot is released and the new slot is obtained. 

SLOT ALLOCATION: If a new slot is required, the DMKPGT 
is called to supply the address of an available slot. 
DMKPGT maintains a chain of cylinder allocation maps 
for each cylinder that has been assigned for either 
virtual storage or spool file paging. The allocation 
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chains for spooling are kept separately from those used 
for paging so that they can be checkpointed in case of 
a system failure. However, in other respects they are 
the same. The allocation blocks for a given volume are 
chained from the RDEVBLOK for the device on which the 
volume is mounted. The chains of cylinder and slot 
allocation blocks are initialized by DMKCPI. Each block 
on an allocation chain represents one cylinder of space 
assigned to paging, and contains a bit map indicating 
which slots have been allocated and which are 
available. Each block also has a pointer to the next 
allocation block on the chain, a cylinder number, and a 
record count. DMKPGT searches this list seguentially 
until an available slot is found; its CASD address is 
then determined and passed back to the calling routine. 
If DMKPGT cannot find a cylinder with a de-allocated 
slot, it enters the cylinder allocation phase described 
next. When an available cylinder is found, it 
constructs a page allocation block for this cylinder 
and allocates a page to the caller. 

CYLINDER ALLOCATION: DMKPGT controls the paging and 
spooling I/O load of the system by allocating cylinders 
evenly across all available channels and devices. In 
order for a device to be considered available for the 
allocation of paging and spooling space: 

• Its volume serial number must appear in the system's 
owned list. 

• It must have at least one cylinder of temporary 
space marked as available in the cylinder allocation 
block which is located on cylinder 0, head 0, record 

3. 

At system initialization time, CPINIT reads in the 
allocation records for each volume and constructs the 
chains of device allocation blocks from which DMKPGT 
allocates the cylinders. In managing the cylinder 
allocation, DMKPGT takes three factors into 
consideration: device type, device address, and 

possible status as a preferred paging device. 

A request for a cylinder of virtual storage page space 
is satisfied by allocating on a preferred paging 
device, provided that one exists on the system and that 
it has page space available. Preferred paging devices 
are specified by the installation at system generation 
time, and generally should be devices on which 
excessive seek times does not occur. A typical 


preferred paging device would be the IBM 2305 Fixed 
Head Storage Facility. If the 2305 is assigned as a 
preferred device, it is possible to allocate some of 
its space for other high priority data files without 
excessively degrading paging. An example of such usage 
would be for high activity read-only saved system pages 
that are not shared in real storage, and high activity 
system residence disks. 

It is also possible to designate moveable head DASD 
devices such as the 3330 and 2314/2319 Direct Access 
Storage Facilities as preferred paging devices. The 
module (s) so designated should not be required to seek 
outside of a relatively narrow cylinder band around the 
center of the paging areas. It is advisable to share 
the access arm of a moveable head preferred paging 
device with only the lowest usage data files. 

If one or more preferred devices are defined on the 
system, CP allocates all of the page space available on 
these before it allocates on any other available owned 
volumes. Within the class of preferred devices, space 
is allocated first on the fastest devices, and among 
these on a round robin basis across channels and 
devices. Allocation on nonpreferred devices is spread 
out in the same manner. Cylinders for spooling space 
are not allocated from preferred devices. Allocation on 
a given device is done from the relative center of the 
volume outward, a cylinder at a time in a zig-zag 
fashion in an attempt to minimize seek times. 

When a request to allocate a slot for virtual storage 
paging is received by DMKPGTGT and the slot must be 
allocated on a moveable-head (2314/2319 or 3330) 
device, a cylinder and slot is selected in the 

following manner: 

1. An attempt is first made to allocate a slot on the 
cylinder at which the arm on the selected device 
is currently positioned. 

2. If slots are not available on the current 

cylinder, an attempt is made to allocate on a 
cylinder for which paging I/O has been queued. 

3. If the above conditions cannot be met, allocation 
is done as close to the center of the volume as is 
possible• 





OUTPUT 
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Before DMKIOSQR is called, the queue of IOBLOKs 
I currently scheduled on the device is examined. If 
I paging I/O has already been scheduled on a device, the 
paging channel programs are slot sorted and chained 
together with TICs. 


Paging I/O 


All input/output requests for virtual storage and 
spooling pages are handled by DMKPAGIO. DMKPAGIO 
constructs the necessary task blocks and channel 
programs, expands the compressed slot addresses, and 
maintains a queue of CPEXBLOKs for pages to be moved. 
Once the I/O scheduled by DMKPAGIO completes, it 
unchains the CPEXBLOKs that have been queued and calls 
DMKSTKCP to stack them for execution. DMKPAGIO is 
j entered via a GOTO from: 


• DMKPTRAN to read and write virtual storage pages 

• DMKRPA to read and write virtual storage spool 
buffers 


In any case, all that need by passed to DMKPAGIO is the 
address of the CORTABLE entry for the page that is to 
be moved, the address of a SWPTABLE entry for the slot, 
a read or write operation code, and the address of a 
CPEXBLOK that is to be stacked for dispatching after 
the I/O associated with the page has completed. 
DMKPAGIO obtains an IOBLOK and builds a channel program 
to do the necessary I/O, and uses the device code that 
is part of the page address to index into the system's 
OWNDLIST and locate the real device to which the I/O 
request should be directed. If the device is capable 
of rotational position sensing, the required sector is 
computed and a Set Sector command is inserted into the 
channel program. The real SIO supervisor DMKIOSQR is 
then called to schedule the operation on the proper 
device. 


When the interrupt for the paging operation is 
processed by the primary I/O interrupt handler, the 


IOBLOK that controls the operation is unstacked to the 
interrupt return address, WAITPAGE, in DMKPAGIO. 
WAITPAGE then unchains the CPEXBLOKs that are queued to 
DMKPAGQ, and then stacks the queued CPEXBLOKs,via calls 
to DMKSTKCP, in the order in which they were received. 
The address of the real page is filled in to the 
appropriate page table entry and the pointers denoting 
the ownership of the real page are filled into the 
CORTABLE entry by the processing routines in DMKPTRAN. 
If a fatal I/O error occurred for the page, the 
CPEXBLOKs associated with it are flagged, and the 
dispatcher DMKSDPCH sets a nonzero condition code when 
it activates the pending task. The error recovery 
followed depends on the operation being performed. 
Paging I/O errors associated with spooling operations 
are discussed in the sections on "Virtual and Real 
Spooling", while errors associated with virtual storage 
paging operations are discussed later in section 
"Virtual Storage Paging Error Recovery". 


DMKPAGIO maintains its own subpool of preformatted 
paging IOBLOKs. As I/O operations complete, their 
IOBLOKs are added to a list of available blocks; as new 
blocks are needed, they are taken from this list. If 
the list is empty, DMKFREE is called to obtain storage 
for a new block. DMKPAGIO also periodically calculates 
system paging overhead. After 200 pages have been moved 
(read or written), the elapsed time for the 200 pages 
is computed, and the paging rate is calculated in pages 
per second. The recent paging load, expressed as the 
percentage of time that more than one half of the 
system's pages were idle due to page-wait, is averaged 
with the previous load and re-projected as the expected 
load for the next interval. 


Vi r tual Storage Paging Error Recovery 


Errors encountered during virtual storage (as opposed 
to spooling) paging operation can generally be 
classified as either soft or hard errors. Soft errors 
allow the system to continue operation without delay or 
degradation. Hard errors can cause noticeable effects 
such as the abnormal termination of user tasks (ABEND) 
and response degradation. Errors that are successfully 
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Diag* 1B3.5. Page-in, Page-out 
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DMKPAGIO - Construct IOBLOKS and schedule tasks 
that move virtual storage pages between DASD and 
real storage 


• Get storage for paging task 

IOBLOK DMKFREE 

• Add new entry on in-transit queue 

• Set up channel program for I/O operation 

Seek 

Set sector (NOP for 2314) 
■■^Search IO equal 
■MB TIC (if not found) 

Read/Write 
Seek Address 
Sector number 


• Complete IOBLOK 

• Queue I/O Request 

• Exit 


► DMKI0SQR 


WAITPAGE—Upon I/O interrupt 


• Find Real Device Block (RDEVBLOK) 

For interrupt 4*B^DMKSCNKU 

• Check for I/O error 

If yes, set error on in CPEXBLOK 

• Unchain CPEXBLOK from in-transit queue 


• Stack all request* 4 
execution 

• Free storage for IOBLOK 


► DMKSTKCP for 
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retried or corrected are known only to the I/O 
supervisor and the I/C error retry and recording 
routines; they appear to the second level interrupt 
handlers (such as WAITPAGE) as if the original 
operation completed normally, 

SOFT ERROR RECOVERY: An I/O error which occurs on a 
page swap-out is considered to be a soft error. 
DMKPTRAN calls DMKPGTPG to assign a different DASD page 
slot and the page is re-queued for output. The slot 
which caused the error is not de-allocated, and thus is 
not assigned to another user. All other uncorrectable 
paging errors are considered hard in that they may more 
drastically affect system performance. 

HARD ERROR RECOVERY: Hard paging errors occur on 
either I/O errors for page reads or upon the condition 
of exhausting the system's spooling and paging space. 
Recovery attempted on hard errors depends upon the 
nature of the task for which the read was being done. 
If the operation was an attempt to place a page of a 
user's virtual storage into real storage, the operation 
of that particular virtual machine is terminated by 
setting the page frame in error to zero and placing the 
virtual machine in console function mode. The user and 
operator are informed of the condition, and the page 
frame causing the error is not de-allocated, thereby 
insuring that it will not be allocated to another user. 

The control program functions which call DMKPTRAN (such 
as spooling, pageable control program calls, and system 
directory management) have the option of requesting 
that unrecoverable errors be returned to the caller. In 
this case, the CP task may attempt some recovery to 
keep the entire system from terminating (ABEND). In 
general, every attempt is made to at least allow the 
operator to bring the system to orderly shut-down if 
continued operation is impossible. 

Proper installation planning should make the occurrence 
of a space exhaustion error an exception. An unusually 
heavy user load and a backed-up spooling file could 
cause this to happen. The operator is warned when 909? 
of the temporary (paging/spooling) space in the system 
is exhausted. He should take immediate steps to 
alleviate the shortage. Possible remedies that exist 
include preventing more users from logging on and 
requesting users to stop output spooling operations. 
More drastic measures might include the purging of low 
priority spool files. If the system's paging space is 


completely exhausted, the operation of Virtual machines 
progressively slows as more and more users have paging 
requests that cannot be satisfied and operator 
intervention is required. 


VIRTUAL RELOCATION 


CP provides the virtual machine the capability of using 
the Dynamic Address Translation of the real System/370. 
Programming simulation and hardware features are 
combined to allow usage of all of the available 
features in the real hardware, (that is, 2K or 4K 
pages, 64K or 1M segments). 

For clarification, some term definitions follow: 

First -level storage: The physical storage of the real 
CPU, in which CP resides. 

Se co nd -lev el sto ra ge: The virtual storage available to 
any virtual machine, maintained by CP. 

Th ir d -lev el stor ag e: The virtual storage space defined 
by the system operating in second-level storage, under 
control of page and segment tables which reside in 
second-level storage. 

Page and se gment tables: Logical mapping between 

first-level and second-level storage. 

Virtu al page and segment tables: Logical mapping 

between second-level and third-level storage. 

Shadow pa ge and segment tables: Logical mapping 

between first-level storage and third-level storage. 


A standard, non-relocating virtual machine in CP is 
provided with a single control register, control 
register zero that can be used for: 

• Extended masking of external interrupts. 

• Special interrupt traps for SSM. 

• Enabling of virtual block multiplexing. 
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A virtual machine that is allowed to use the extended 
control feature of System/370 is provided with a full 
complement of 16 control registers, allowing virtual 
monitor calls, PER, extended channel masking r and 
dynamic address translation. 

An extension to the normal virtual-machine VMBLOK is 
built at the time that an extended control virtual 
machine logs onto CP. This ECBLOK contains the 16 
virtual control registers, 2 shadow control registers, 
and several words of information for maintenance of the 
shadow tables, virtual CPU timer, virtual TOD clock 
comparator, and virtual PER event data. The majority of 
the processing for virtual address translation is 
performed by the module DMKVAT, with additional 
routines in DMKPRG, DMKPRV, DMKDSP, DMKCDB, DMKLOG, 
DMKUS0, and DMKPTR. The simulation of the 
relocation-control instructions (that is, LCTL, STCTL, 
PTLB, RRB, and LARA) is performed by DMKPRV. These 
instructions, with the exception of LCTL and STCTL, are 
not available to virtual machines which are not allowed 
the extended-control mode. 

When an extended control virtual machine is first 
active, it has only the real page and segment tables 
provided for it by CP and operates entirely in 
second-level storage. DMKPRV examines each PSW loaded 
via IPSW to determine when the virtual machine enters 
or leaves extended control or translate mode, setting 
the appropriate flag bits in the VMBLOK. Flag bits are 
also set whenever the virtual machine modifies control 
registers 0 or 1, the registers that control the 
dynamic address translation feature. DMKDSP also 
examines PSWs that are loaded as the result of 
interrupts to determine any changes in the virtual 
machined operating mode. The virtual machine can load 
or store any of the control registers, enter or leave 
extended control mode, take interrupts, etc., without 
invoking the address translation feature. 

If the virtual machine, already in extended control 
mode, turns on the translate bit in the EC mode PSW, 
then the routine DMKVATMD is called to examine the 
virtual control registers and build the required shadow 
tables. (Shadow tables are required since the real DAT 
hardware is capable of only a first-level storage 
mapping.) DMKVATMD examines virtual control registers 0 
and 1 to determine if they contain valid information 
for use in constructing the shadow tables. Control 
register zero specifies the size of the page and 


segment the virtual machine is using in the virtual 
page and segment tables. The shadow tables constructed 
by DMKVATMD are always in the same format as the 
virtual tables. 

First, the virtual segment table is copied intact from 
second-level storage into first-level storage for speed 
of access when handling relocation interrupts. Another 
segment table of the same size, the shadow segment 
table, is constructed in first-level storage and 
initialized to indicate that all segments are 
unavailable. Flags are maintained in the VMBLOK to 
indicate that the shadow tables exist. DMKVATMD also 
constructs the shadow control registers 0 and 1. Shadow 
control register 0 contains the external interrupt mask 
bits used by CP, mixed with the hardware controls and 
enabling bits from virtual control register 0. Shadow 
control register 1 contains the segment table origin 
address of the shadow segment table. 

When the virtual machine is operating in virtual 
translate mode, CP loads the shadow control registers 
into the real control registers and dispatches the 
user. The immediate result of attempting to execute an 
instruction is a segment exception, intercepted by 
DMKPRG and passed to DMKVATSX. DMKVATSX examines the 
copy, in first-level storage, of the virtual segment 
table in second-level storage. If the copy segment 
table indicates the segment is not available, the 
corresponding entry in the virtual segment table is 
examined and if necessary, the copy segment table is 
updated. If the virtual segment is not available, the 
segment exception interrupt is reflected to the virtual 
machine. If the virtual segment is marked available, 
then DMKVATSX: 

• Allocates one full segment of shadow page table, in 
the format specified by virtual control register 0. 

• Sets all of the page table entries to page not in 
storage. 

• Marks the segment available in the shadow segment 
table. 

• Redispatches the virtual machine via DMKDSP. 

Once again, the immediate result is an interrupt, which 
this time is a paging exception and control is passed 
to DMKVATPX. DMKVATPX references the virtual page table 
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in second-level storage through the copy segment table 
to determine if the virtual page is available. If the 
virtual page is not available, the paging interrupt is 
reflected to the virtual machine. However, if the 
virtual page is marked in storage, the virtual page 
table entry is used to determine which page of 
second-level storage is being referenced by the 
third-level storage address provided. DMKVATPX next 
determines if that page of second-level storage is 
resident in first-level storage at that time. If so, 
the appropriate entry in the shadow page table is 
filled in and marked in storage. If not, the required 
page is brought into first level storage via EMKPTRAN 
and the shadow page table filled in as above. 

As the virtual machine continues execution, more shadow 
tables are filled in or allocated as the third-level 
storage locations are referenced. Whenever a new 
segment is referenced, another segment of shadow page 
tables is allocated. Whenever a new page is 
referenced, the appropriate shadow pagetable entry is 
validated, etc. No changes are made in the shadow 
tables if the virtual machine leaves translate mode 
(usually via an interrupt), unless it also leaves 
extended control mode. Cropping out of EC mode is the 
signal for CP to release all of the shadow page and 
segment tables and the copy of the virtual segment 
table. 

There are some situations that require invalidating all 
of the shadow tables constructed by CP or even 
releasing and reallocating them. Whenever DMKP1R swaps 
out a page that belongs to a virtual relocating 
machine, it sets a bit in the VMELOK indicating that 
all of the shadow page tables must be invalidated. 
Invalidation of all of the tables is required since CP 
does not know which third-level-storage pages map into 
the second-level page which is being swapped out. The 
actual invalidation is handled by DMKVATAB, called from 
DMKDSP when the virtual machine is on the verge of 
being dispatched. 

The other situations which cause shadow-table 
invalidation arise from the simulation of privileged 
instructions in DMKPRV• Flags are set in the VMBLOK 
whenever the virtual machine loads either control 
register 0 or 1, and DMKPRV calls DMKVATAB to perform 
whatever maintenance is required. When control register 
1 is loaded by the virtual machine, DMKVATAB must 
recopy the virtual segment table into first-level 
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storage and invalidate the entire shadow segment table. 
When control register 0 is loaded, DMKVATAB examines 
the relocation-architecture control bits to determine 
if they have changed, (such that the format of the 
virtual page and segment tables no longer matches that 
of the shadow tables). If the format has not changed, 
the shadow tables are left intact; otherwise, all of 
the shadow tables and the copy segment table must be 
returned to free storage and another set, in the new 
format, must be allocated and initialized. The same 
actions can result from modifying the control registers 
via the CP console functions, in which case DMKVATAB is 
called from DMKCDB• The privileged operation, PTLB also 
causes the virtual segment tables to be recopied and 
all of the shadow page tables to be invalidated, since 
the shadow tables are the logical equivalent of the 
translation look-aside buffer. 

DMKPRV provides virtual interrogation of the reference 
and change bits in the virtual storage keys, which 
involve the privileged instructions ISK, SSK, and RRB. 
The privileged instruction LRA is simulated via 
DMKVATLA, which searches the virtual page and segment 
tables to translate a third-level storage address to a 
second-level storage address, returning a 
condition-code indicator to DMKPRV, or forcing an 
interrupt if the tables are incorrectly formatted. 

Most error situations that occur in the virtual machine 
are handled by means of the extended program interrupts 
associated with the real address translation hardware. 
Whenever a virtual relocating machine loads control 
registers 0 or 1 with an invalid value, DMKVAT releases 
all of the shadow tables and the copy segment table 
exactly as if the hardware controls had changed. The 
shadow control registers are set valid, with the shadow 
segment table re-allocated at a minimum size and all 
segments marked unavailable. Flag bits are set in the 
VMBLOK to indicate that the shadow tables are 
artificially valid, and DMKVATSX reflects a translation 
specification exception to the virtual machine as soon 
as it is dispatched. While it is possible for the 
virtual machine to enter an interrupt loop (if the new 
PSW is also a translate-mode PSW) , the cited process 
prevents the occurrence of a disabled-loop within CP, 
which would result if the virtual machine is never 
dispatched. 


% / 
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PRIVILEGED INSTRUCTIONS 


If the program interruption is caused by the virtual 
machine issuing a privileged instruction, DMKPRVLG 
obtains the address of the privileged instruction and 
determines the type of operation reguested. 


I/O Privileged In st ructions 


DMKPRVLG transfers control to the virtual I/O executive 
program (DMKVIOEX), 


Non -I /O Privileged Ins t ructi on s 


DMKPRVLG simulates valid non-I/O privileged 
instructions and returns control to DMKDSPCH• For 
invalid privileged instructions, the routine sets an 
invalid interruption code and reflects the interruption 
to the virtual machine. For the privileged instructions 
SCK, SCKC, STCKC, SPT, and STPT that affect the TOD 
clock, CPU timer, and TOD clock comparator, control is 
transferred to DMKTMR by DMKPRVLG, Others that are 
simulated are LPSW, SSM, SSK, ISK, and diagnose. 

System/370 EC mode privileged simulation includes the 
following: 


n 


Code 

Definition 

SCK 

Set clock 

SCKC 

Set clock comparator 

STCKC 

Store clock comparator 

SPT 

Set CPU timer 

STPT 

Store CPU timer 

STNSM 

Store and AND system mask 

STOSM 

Store and OR system mask 

STIDP 

Store CPU identification 

STIDC 

Store channel identification 

LCTL 

Load control 

STCTL 

Store CQntrol 

LRA 

Load real address 

RRB 

Reset reference bit 

PTLB 

Purge table look-aside buffer 


DIAGNOSE Interface XDMKHVC1 

The diagnose command is used for communication between 
a virtual machine and the VM/370 control program. In 
VM/370, the machine-coded format for the diagnose 
command is: 

Bits 0 7 8 11 12 15 16 31 

i-1 

| 83 | rx | ry | code | 


83 is the Diagnose operation code, 
rx is a user specified register number, 

ry is a user specified register number. 
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Code is a hexadecimal value that is used to select a 

particular VM/370 control program function. The codes ry contains the length of the associated console 
and their associated functions are: function input, up to 132 characters. 


Code 

Class 

0004 

C, E 

0008 

G 

oooc 

G 

0010 

G 

0014 

G 

0018 

G 

001C 

F 

0020 

G 

0024 

G 

002C 

C,E,F 

0030 

C, E, F 

0034 

C,F 

0038 

C,E 

003C 

A ,B ,C 

004C 

Any 


Fu ncti on 

Examine data from real storage 
Execute VM/370 control program console 
function 

Pseudo-timer facility 
Release virtual storage pages 
Manipulate input spool files 
Standard DASD I/O 

Clear I/O and machine check recording 

General virtual I/O without interrupts 

Virtual device type information 

Return DASD start of LOGREC area 

Read one page of LOGREC data 

Read system-dump spool file 

Read system symbol table 

Dynamically update system user directory 

Generate accounting cards for virtual user 


No tes : Rules for diagnose codes: 


The following illustrates the virtual console function: 

LA R6,CPFUNC 

LA R10,CPFUNCL 

DC X'83',X'6A',XL2•0 008' 


CPFUNC DC C'QUERY FILES' 

CPFUNCL EQO *-CPFUNC 

The output of the console function is to the user's 
terminal, and then execution continues. Any valid and 
authorized console function can be executed in this 
manner• 

A completion code is returned to the user as a value in 
the register specified in ry. The error code = the 
message number of the error message issued. 


X'00' through X'FC' Reserved for IBM use. 

X•100' through X'lFC' Reserved for users 

The diagnose code must always be a multiple of 4. 


DIAG NO SE CODE 4: Examine real storage, can only be 
issued by users with privilege class C or E. 

rx contains the virtual address of a list of CP (real) 
addresses. 

ry (cannot be register 15) contains a count of entries 
in the list. 

rv+1 contains the virtual address of the result field 
that holds the values retrieved from the VM/370 control 
program locations. 

DIA GN OSE CO DE 8: Virtual console function, allows a 
virtual machine to perform the VM/370 control program 
console functions. 

rx contains the address (virtual) of the control 
program console function command and parameters. 


DI AG NOS E CODE C: Pseudo timer. 

rx contains the virtual address of a 32-byte data area 
that does not cross a page boundary, into which the 
following data is stored: 

Bytes 0 78 15 16 23 24 31 

i-1 

I I i I I 

|MM/DD/YY|HH:MM:SS|Virt CPU|Total CPU| 

I I I I I 

i . i 

Virtual and Total CPU time used is returned as a 
doubleword logical value in microseconds. 


DIAGNOSE CODE JO: Release pages. 

rx contains the virtual address of the first page to be 
released. 

ry contains the virtual address of the last page to be 
released. 
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Any of the virtual pages in real or auxiliary storage 
are released. 


DI AGNOS E CODE J4: Input spool file manipulation. 

rx contains either a buffer address, a copy count, or a 
spool—file identifier, dependent on the value of the 
function subcode in ry+1. 

ry (cannot be register 15) contains the virtual address 
of a spool—input card reader. 

ry+ 1 contains a function hexadecimal code interpreted 
by DMKDRDER, as follows: 

Code F unc tion 

0000 Read next spool buffer (data record) 

0004 Read next print SFBLOK 

0008 Read next punch SFBLOK 

000C Select a file for processing 
0010 Repeat active file nn times 
0014 Restart active file at beginning 

0018 Backspace one record 

ry + 1 on return, may contain error codes which further 
define a returned condition code of 3. See Figure 1 for 
Condition Code analysis. 

The file manipulation is performed by DMKDRDER. 


DIAGNOSE CODE J8: Disk I/O. 

rx contains the device address of the disk. 

ry points to a CCW chain to read or write a limited 
number of disk records. 

Each read or write must specify no more than 2048 bytes 
(usually 800 is used), and the CCW chain is of a 
standard form, as shown below. For a 3330, a SET SECTOR 
command would precede each SRCH command. 

Register 15 contains the number of reads or writes in 
the CCW chain (the number is two in the following 
example for a typical CCW string (to read or write two 
800-byte records): 
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SEEK,A,CC,6 
SRCH,A+2,CC,5 
TIC,*-8,0,0 

RD or WRT,DATA,CC+SILI,800 

SEEK HEAD,B ,CC,6 (Omitted if HEAD No. unchanged) 
SRCH,B+2,CC ,5 
TIC,*-8,0,0 

RD or WRT,DATA+800,SILI,800 
A SEEK and SRCH arguments for first RD/WRT 

B SEEK and SRCH arguments for second RD/WRT 


DIAGNOS E CODE 1C: Clear I/O recording, can only be 
issued by a privilege class F user. This code calls 
the DMKIOEFM routine to clear the I/O error recording 
data on disk. 

rx contains the code value 1, 2, or 3 to clear and 
reformat the I/O error recording, M/C recording, or 
both I/O and M/C recording, respectively. 

ry is ignored. 


DIAGNOSE CODE 20: General I/O without interrupts. 
rx contains a virtual device address. 

ry contains the address of the string of CCWs to be 
executed. 

The CCW string is processed via DMKCCWTR through 
DMKGENIO, providing full virtual I/O in a synchronous 
fashion (self-modifying CCW strings are not permitted, 
however) to any virtual device specified. Control 
returns to the virtual machine only after completion of 
the operation or detection of a fatal error condition. 
Condition codes and error codes in ry are returned to 
the virtual system. 


DIA GNOS E CODE 24: Virtual device type information. 
rx contains a virtual device address. 

ry, which cannot be register 15, and ry+1 contain the 
following upon return: 






1— 




.. .. " - i 

|Code 

i 

ry+ 1 

i 

Meaning | 

1 o 

i 


i 

Data Transfer successful | 

| 1 

i 


i 

End of file | 

1 2 

i 


i 

File not found | 

1 3 

i 

4 

i 

Device address invalid | 

1 3 

i 

8 

i 

Device type invalid | 

1 3 

i 

12 

i 

Device busy | 

1 3 

i_ 

i 

16 

i 

Fatal Paging I/O Error | 

_i 


Figure 1. Condition Code Analysis for 
Diagnose Codes 14 and 34 


Bits 0 78 15 16 23 24 31 

i-» 

ry |VDEVTYPC|VDEVTYPE|VDEVSTAT|VDEVFLAG| 

| - , 

ry*1 |RDEVTYPC|RDEVTYPE|RDEVMDL |RDEVFIR | 

i_i 

A condition code of one or three indicates that the 
virtual device address specified is either invalid 
(that is, too large), or the device does not exist. 
Condition code 2 indicates the real device does not 
exist. 


DIAGNOSE CODE 2C: Return DASD start of LOGREC area 
(Privilege class C, E, or F only). 

rx on return contains the DASD location, in VM/370 
control program internal format, of the first record of 
the system I/O and machine check error recording area. 

ry is ignored. 


DIAGNOSE CODE 30: Read one page of LOGREC data 

(Privilege class C, E, or F only). 

rx contains the DASD location, in the VM/370 control 
program internal format, of the desired record. 

ry contains the virtual address of a page-size buffer 
to receive the data. 


The page of data is provided to the virtual machine via 
DMKRPAGT. 

cc = 0 Successful read, data available. 

1 End of cylinder, no data. 

2 Invalid cylinder, outside recording area 


D IAGNOS E COD E 34: Read system dump spool file 

(privilege class C or E only). 

rx contains the virtual address of a page-size buffer 
to accept the requested data. 

ry (cannot be register 15) contains the virtual device 
address of a spool-input card reader. 

ry+1 on return, may contain error codes which further 
define a returned condition code of 3. See Figure 1 for 
Condition Code analysis. 

The system chain of spool input files is searched for a 
dump file belonging to the user issuing the diagnose 
command by DMKDRDMP. The first (or next) record from 
the dump file is provided to the virtual machine via 
DMKRPAGT and the condition code is set to zero. The 
dump file is closed via VM/370 console function CLOSE. 


D IAGNOS E CODE 38: Read system symbol table. 

rx contains the start address of the page buffer that 
is to contain the symbol table. 

ry is ignored. 

The system symbol table (DMKSYM) is read into storage 
at the location specified by rx by DMKDRDSY• 

DIA GNOS E COD E 3C: Dynamically update the system user 
directory. 

rx contains the first 4 bytes of the volume serial 
label. 

ry, the first 2 bytes of the register specified (ry) 
contain the last 2 bytes of the volume serial label. 

The directory if dynamically updated by DMKUDRDS. 
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DIAGNOSE CODE 4C : Generate accounting cards for the 
virtual user. This code can be issued only by a user 
with the account option (ACCT) in his directory. 

rx contains the virtual address of a 24-byte parameter 
list identifying the “charge to” user; the address must 
be aligned on a doubleword boundary. If rx contains 
zeros, the accounting card will be punched with the 
identification of the user issuing the diagnose 
instruction. 

ry contains a function hexadecimal code interpreted by 
DMKHVC as follows: 

Code F unction 

0000 The parameter list contains only a userid. 

0004 The parameter list contains a userid and account 
number. 

0008 The parameter list conatins a userid and 
distribution number. 

000C The parameter list contains a userid, account 
number, and distribution number. 

The following condition codes are returned to the user 
by DMKHVC: 

cc=0 Successful operation 

1 User does not have account option privileges 

2 Invalid userid in the parameter list 

3 Invalid function hexadecimal code in ry or an 

error occurred in trying to read in the User 
Machine Block (UMACBLOK) 


DMKHVC checks that the user has the account option and 
if not, returns a condition code of 1. If the user has 
the options, control is passed to DMKCPV to generate 
the card. DMKCPV passes control to DMKACO to complete 
the “charge to” information; either from the User 
Accounting Block (ACCTBLOK), if a pointer to it exists, 
or from the user*s VMBLOK. DMKCPV then punches the card 
and passes control back to DMKHVC to release the 
storage for the ACCTBLOK, if one exists. DMKHVC then 
checks the parameter list address for the following 
conditions: 

• If zero, control is returned to the user with a 
condition code of zero. 


• If invalid, an addressing exception is generated. 

• If not aligned on a doubleword boundary, a 
specification exception is generated. 


For a parameter list address that is non-zero and 
valid, the userid in the parameter list is checked 
against the directory list and if not found, control is 
returned to the user with a condition code of two. If 
the function hexadecimal code is invalid, control is 
returned to the user with a condition code of three. 
If both userid and function hexadecimal code are valid, 
the User Accounting Block (ACCTBLOK) is built and the 
userid, account number, and distribution number are 
moved to the block from the parameter list or the User 
Machine Block belonging to the userid in the parameter 
list. Control is then passed to the user with a 
condition code of zero. 


Virtual Timer M ain tenance 


The System/370 with EC mode provides the system user 
(both real and virtual) with four timing facilities. 
They are: 

1. The interval timer at main storage location X®50®. 

2. The time-of-day clock. 

3. The time-of-day clock comparator. 

4. The CPU timer. 

REAL TIMING FACILITIES: Before describing how CP 
maintains these timers for virtual machines, it is 
necessary to review how VM/370 uses the timing 
facilities of the real machine. 

1. The location X'SO® interval timer is used only for 
time-slicing. The value placed in the timer is the 
maximum length of time that the dispatched user is 
allowed to execute. 

2. The time-of-day clock is used as a time stamp for 
messages and enables the scheduler to compute 


v 






elapsed in-queue time for the dispatching priority 
calculation. 


3, The time-of-day clock comparator facility is used 
by CP to schedule timer driven events for both 
control program functions and for virtual 
machines, A stack of comparator requests is 
maintained and as clock comparator interrupts 
occur, the timer request blocks are stacked for 
the dispatcher via calls to DMKSTKIO. 

4, The CPU timer facility performs three functions: 

• Accumulation of CP overhead 

• Detection of in-queue time slice end 

• Virtual CPU timer simulation 

The accumulation of CP overhead is accomplished as 
follows. The VMTTIME field in the VMBLOK contains 
the total CP overhead incurred by the virtual 
machine; it is initialized to the maximum sized 
doubleword integer, X 1 7FFFFFFF FFFFFFFF 1 • 
Whenever CP is to perform a service for a virtual 
machine, GPR 11 is loaded with the address of the 
VMBLOK and the current value in VMTTIME is placed 
in the CPU timer. When CP is finished with the 
service for that virtual machine the CPU timer, 
which has been decremented by the amount of CPU 
time used, is stored back into VMTTIME. GPR11 is 
then loaded with a new VMBLOK pointer and the CPU 
timer is set from the new V.MTTIME field. The 
amount of CP overhead for a given virtual machine 
at any point in time is the difference between the 
maximum integer and the current value in the 
VMTTIME field. 

Since VMTTIME only accounts for supervisor state 
overhead, detection of in-queue time slice end is 
performed by the CPU timer when the virtual 
machine is dispatched in the problem state. The 
VMTMOUTQ field in the VMBLOK is intialized to the 
amount of problem state time that the virtual 
machine will be allowed to accumulate before being 
dropped from a queue. This initial value is set 
by the scheduler (DMKSCH) when the virtual machine 
is added to a queue and its value depends on the 
queue entered (interactive or non-inter&ctive) and 
on the CPU model. For example, the initial value 
of VMTMOUTQ for a user entering Q1 (interactive) 



on a model 145 is 300 milliseconds, while for the 
same user entering Q2 (non-interactive) it is 2 
seconds. Each time the user is dispatched, the 
value in VMTMOUTQ is entered into the CPU timer; 
whenever the user is interrupted, the decremented 
CPU timer is stored into VMTMOUTQ prior to being 
set from the new VMTTIME. When the problem state 
time slice has been exhausted; a CPU timer 
interrupt occurs, the VMQSEND flag bit is set in 
the VMBLOK, and the scheduler drops the user from 
the queue. At each queue drop, the problem time 
used in-queue (the difference between VMTMOUTQ and 
the initial value) is added to the total problem 
time field (VMVTIME) in the VMBLOK. 

Virtual CPU timer simulation is handled for EC 
mode virtual machines if the value in their 
virtual CPU timer is less than that in VMTMOUTQ. 
In this case, the VMBLOK is flagged as “tracking 
CPU timer” and a CPU timer interrupt is 
interpreted as a virtual timer interrupt rather 
than as an in-queue time slice end. 


VIRTUAL TIMI NG FACILITIES: Virtual location X^O 1 
timers are updated by the elapsed CPU time each time 
the dispatcher has been entered after a running user 
has been interrupted. The size of the update is the 
difference between the value of the timer at dispatch 
(saved in QUANTUM at location X^h 1 ) and the value of 
the timer at the time of the interrupt (saved in 
QUANTUMR at location X«4C f ). 

Virtual clock comparator requests are handled by the 
virtual timer maintenance routine DMKTMR. They are 
inserted into the general comparator request stack and 
the virtual machine is posted when the interrupt goes 
off. 

Requests to set the virtual CPU timer place the new 
value into the ECBLOK• Requests to store it update the 
ECBLOK field by the virtual CPU time used since the 
last entry to dispatch and pass the value to the user. 
Requests to set the time of day clock are ignored. 

A real interval or CPU timer is one which runs when the 
user is executing or is in a self-imposed wait state 
(that is, the wait bit is on in his virtual PSW). A 
real timer does not run if the user is in a CP 
pseudo-wait (for example, page wait or I/O wait) or if 
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he can be run but is not being dispatched due to other 
user interaction. Real timers provide accurate 
interrupts to programs that depend on measurement of 
elapsed CPU and/or wait time. They do not accurately 
measure wall time — the TOD clock must be used for 
this function. 

An EC mode virtual machine with the Real Timer option 
has both a real interval timer and a real CPU timer. 
Real timer requests for waiting machines are maintained 
in the clock comparator stack. CPU timer requests are 
added to TOD clock value at the time that they are 
issued. Interval timer requests must have their units 
converted. In addition, if the virtual CPU timer 
contains a large negative value, then a real timer 
request is scheduled to occur when the virtual time 
turns positive, so that the pending timer interrupt can 
be unflagged. Comparator requests for real timer 
interrupts are inserted into the stack whenever a user 
enters a self-imposed wait. They are removed either 
when the user resumes execution or when he is forced 
(or places himself) into a pseudo wait. 


Virtual I/O Requests 


The function of the virtual I/O interface maintained by 
the control program is to provide to the software 
operating in the user’s virtual machine the condition 
codes, CSW status information, and interrupts necessary 
to make it appear to the user software that it is in 
fact running on a real System/370. The virtual I/O 
interface consists of: 

• A virtual I/O configuration of each active user 
represented by a set of I/O control blocks that are 
maintained in the Control Program’s free storage. 
This configuration is built at LOGON time from 
information contained in the user’s directory file, 
and can be changed by the user or the system 
operator. 

• A set of routines that maintain in these blocks, the 
status of the virtual I/O configuration. 

• Other system components to simulate/translate the 
channel programs provided by the user to initiate 
I/O on units in the real system’s configuration. 


VIRTUAL I/O CONTRO L BL OCKS: The base for locating the 
I/O block structure is the user’s Virtual Machine Block 
(VMBLOK). The VMBLOK contains a pointer to the start 
of three control block tables, and a table of 16 
channel indexes. The control block tables contain one 
block for each of the virtual channels, control units, 
and devices that are defined for the user’s virtual 
machine. The entries in the channel index table 
(VMCHTBL) contain the pointers to each channel defined 
for the user in the table of Virtual Channel Blocks 
(VCHBLOKs). Each VCHBLOK contains a table of pointers 
that point to the Virtual Control Unit Blocks 
(VCUBLOKs) for the control units attached to that 
virtual channel. Each VCUBLOK contains pointers to the 
Virtual Device Blocks (VDEVBLOKs) attached to the 
control unit. See Diag. 1B3.8 for an overview of the 
virtual I/O control blocks. 

Thus, if given the unit address of any component in the 
form ecu, the appropriate control blocks representing 
each component in the subchannel path to the given unit 
is located via the indexing scheme. 

VCHBL OK : There is one VCHBLOK for each virtual channel 

connected to the user’s virtual CPU. Each VCHBLOK 
contains the channel address and flag indicating the 
channel type (selector, byte multiplexer or block 
multiplexer). The status of the channel and its 
attached units are represented by several status and 
mask bytes, as follows: 

1. A status byte (VCHSTAT) indicates whether the 
channel is busy or has a channel class interrupt 
pending. 

2. A halfword unit address identifies the unit 
causing the channel-class interrupt (if it is 
present). 

3. A halfword mask (VCHCUINT) contains a bit map of 
the attached control units that have interrupt 
status pending. Following these status flags and 
masks is the table of indexes pointing to the 
attached VCUBLOKs; index entries representing 
addresses at which no control unit is attached 
have a value of -1. 

VCUBLOK: There is one VCUBLOK for each control unit in 
the virtual configuration. These blocks are arranged 
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in a table, and each contains, in addition to its base 
address, status flags similar to those in the VCHBLOK 
and a table of indexes to attached VDEVBLOKs. The 
status flags defined for the VCUBLOK differ from those 
for the VCHBLOK in that they can contain status for the 
control unit and also for a subchannel. 

For example, if the VCUBLOK representing a 2803 Tape 
Control Unit is attached to a virtual selector channel, 
both the VCHBLOK and the VCUBLOK are marked busy. 
However, if the VCUBLOK is attached to a virtual byte 
multiplexer channel and is for a control unit on a 
selector subchannel of the multiplexer, the busy status 
of the channel is reflected in the VCUBLOK only. Thus 
the virtual multiplexer appears nonbusy to operations 
on other, nonshared subchannels. 

VD EVBLOK : There is one VDEVBLOK in the configuration 
for each virtual device defined by the user. Each 


VDEVBLOK contains the device portion of the unit 
address, device status, and the virtual CSW for the 
last interrupt taken by the device. In addition, the 
VDEVBLOK contains device type specific information that 
allows the I/O translation and simulation routines to 
interpret the channel programs presented by the user. 
This information is not used by the I/O interface. 

Since all virtual machines are run in the problem 
state, any attempt to issue a SIO instruction results 
in a program interrupt that indicates a privileged 
operation exception. This interrupt is handled by CP f s 
first level program interrupt handler, DMKPRGIN• It 
determines if the virtual machine was in virtual 
supervisor state (problem state bit in the VIRTUAL PSW 
is zero)• If so, the instruction causing the interrupt 
is saved in the VMBLOK for the virtual machine and 
control is transferred to the privileged instruction 
simulator, DMKPRVLG, via a GOTO. 
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Diag. 1B3.8 Virtual I/O Control Blocks 

The virtual machine configuration is represented by a set 
of related control blocks. These blocks are: 

• built by VM/370 at LOGIN from data in directory 

• modified by user commands (e.g. DETACH, LINK, 

DEFINE) 

There is one control block per channel, per control unit, and 
per device. 

The characteristics of VM/370 virtual I/O control are: 

• RSP (Rotational Position Sensing) cannot be used 
on BMPX (Block Multiplexer Channel 

• No multi-path configurations s' 

• The virtual machine operating system performs s' 

scheduling 

• VM/370 uses virtual I/O control blocks to simulate 
real hardware interface. 

• Virtual unit record devices use VM/370 spooling 

• Virtual console is simulated on terminal . 

• Mini-disks simulate DASDX^ ^ 

• Dedicated devices are supported. ss^"^ 


VMCHTBL — virtual channel index table 


■ Relationship of Virtual I/O Control Blocks 

VMCHTBL (part of VMBLOK) 


VDEVBLOKs 



VCHBLOK — virtual channel block 




VCUBLOK — virtual control unit block 


If negative (FFFF), no control unit exists 

If negative (8XXX) the control unit exists 
but the VCUBLOK cannot be addressed 
by the virtual machine because the 
control unit is detached. 

If positive, the value is on index to the 
VCUBLOK. 



If negative (FFFF), no device exists 
If negative (8XXX) the device exists 
but the VDEVBLOK cannot be 
addressed by the virtual machine 
because the device is detached. 

If positive, the value is an index to 
the VDEVBLOK. 


VDEVBLOK — virtual device block 

Device identification 
Status pending 
Positioning 
Terminal control 
Spooling control 


j_ RDEVBLOK pointer _| 

Part of the VDEVBLOK contains device independent 
information and is used identically in all VDEVBLOKs. 
However, some fields of the VDEVBLOKs have 
multiple uses, depending on the device type. 








DMKPRVLG determines if the privileged operation affects 
the virtual I/O configuration. DMKPRVLG simulates 
non-I/O privileged instructions (such as LPSW) itself. 
If the instruction's operation code is from X'9C to 
X'9F', control is transferred to DMKVIOEX. 

After clearing the condition code in the user's VMBLOK, 
DMKSCNVU is then called to locate the Virtual I/O 
blocks representing the components (channel, control 
unit and device) addressed by the instruction. 
DMKVIOEX then branches to handle the reguest based on 
the operation requested. 

VI RTU AL S IC (See Figure 2): With a SIO, the condition 
code returned from DMKSCNVU is tested to verify that 
all addressed components were located. If they were 
not, then a condition code of 3 (unit not available) is 
reflected in the VPSW and control is returned to the 
dispatcher. Otherwise, the addresses of the appropriate 
virtual I/O control blocks are saved, and DMKVIOEX 
tests the status of the addressed I/O units by scanning 
the VCHBLOKs, VCUBLOKS, and VDEVBLOKs to locate the 
block that contains the status of the addressed 
subchannel. The subchannel status is indicated in: 

• The VCHBLOK for a selector or block multiplexer 
channel 

• The VCUBLOK for a shared selector subchannel on a 
byte multiplexer. 

• The VDEVBLOK for a ncnshared subchannel on a byte 
multiplexer. 

When the block containing the status is found, the 
status is tested. If the subchannel is busy or has an 
interrupt pending, condition code 2 is reflected. 
Otherwise, the subchannel is available and the device 
and the control unit are tested for interrupt pending 
or busy. If either is found, condition code 1 is 
reflected and the proper CSW status is stored in the 
user's virtual page zero. If all components in the 
subchannel path are free, DMKVIOEX proceeds to simulate 
the SIO by locating and loading the contents of the 
user's CAW from his virtual location X'48' and testing 
the device type of the unit addressed. 

The device type is determined by referencing the 
VDEVELCK. If the device class code indicates a 
terminal or console, control is passed to the virtual 


console executive DMKVCNEX via a GOTO. DMKVCNEX 
interprets and simulates the entire channel program, 
moving the necessary data to or from the user's virtual 
storage and reflecting the proper interrupts and status 
bytes. When DMKVCNEX has finished, it passes control 
directly to the dispatcher DMKDSPCH. 

If DMKVIOEX determines that the referenced device is a 
spooled unit-record device, it passes control to 
DMKVSPEX for additional processing and upon return it 
passes control to DMKDSPCH. 

If the referenced device is not a terminal nor a 
spooling device, the SIC is translated and executed 
directly on the real system's I/O device. DMKVIOEX 
calls DMKFREE to obtain free storage and then it 
constructs an IOBLOK in the storage obtained. The 
ICBLOK serves as an identifier of the I/O task to be 
performed. It contains a pointer to the channel program 
to be executed and the address of the routine that is 
tc handle any interrupts associated with the operation. 

DMKVIOEX stores the contents of the user's CAW in 
IOBCAW and sets the interrupt return address (IOBIRA) 
to the virtual interrupt return address (DMKVIOIN) in 
DMKVIO. The CCW translation routine (DMKCCWTR) is then 
called to locate and bring into real main storage all 
user pages associated with the channel program, 
including those containing data and CCWs. 

1. The CCWs are translated. 

2. A corresponding real channel program is 
constructed. 

3. The data pages are locked into real storage. 

4. DMKCCWTR returns control to DMKVIOEX. DMKVIOEX 
places the user in a pseudo-wait state, IOWAIT, 
and calls the real I/O scheduler DMKIOSQV to 
schedule the I/O on the real configuration. 

DMKIOSQV queues the request for operation on the real 
channel, control unit, and device corresponding to the 
one addressed by the user. When the real SIO is 
issued, DMKIOS takes the user out of IOWAIT and 
reflects the condition code for the SIO if it is zero. 
If it is not zero, the operation is further analyzed by 
DMKVIOIN. In any case, DMKIOSQV returns control to 
DMKVIOEX, which passes control to DMKDSPCH. 


Method of Operation 53 





IBM VM/370: Control Program Logic 54 



OTHER VIR TUAL I/O INSTjRUCTI0NS : Other privileged I/O 
instructions are handled directly by DMKVIOEX. The 
general method used is to scan the virtual channel, 
control unit, and device blocks in the same manner as 
for the SIO and to reflect the proper status and 
condition to the user. In some cases (TIO), the status 
of the addressed components are altered after the 
status is presented. 

If the operation active on the virtual device is 
actually in progress in the real equipment, the 
simulation of a HIO or HDV is somewhat more involved, 
since it requires the actual execution of the 
instruction. In this case, the active operation is 
halted and the resultant condition code/status is 
returned to the user. 

VI RTUAL CHARNEL-TO-CHANNEL ADAPTER: The virtual 
channel-to-channel adapter (CTCA) is simulation that 
permits data transfer and control communication between 
two selector channels, either on two distinct 
processors or two channels on a single processor. Data 
transfer is accomplished via synchronized complementary 
I/O commands (for example, read/write, write/read) 
issued to both parts of the CTCA. Each part of the 
CTCA is identical and the operation of the unit is 
completely symmetrical. The CTCA occupies an entire 
control-unit slot on each of the two channels attached. 
The low-order four bits of the unit address (device 
address) are ignored completely and are not available 
for use. 

The VM/370 control program support for virtual CTCA 
includes all status, sense data, and interrupt 
presentation logic necessary to simulate the operation 
of the real CTCA. Data transfer, command byte 
exchange, sense data, and status data presentation for 
the virtual CTCA is accomplished via storage-to-storage 
operations (MVCL, etc.). No real I/O operations 
(excluding paging I/O) nor I/O interrupts are involved. 
Unit errors or control errors cannot occur. 


VIRTUAL SELECTOR CHANNEL I/O REQUESTS: The CCW 
translator, DMKCCWTR, is called by the virtual machine 
I/O executive program (DMKVIOEX) when an I/O task block 
has been created and a list of virtual CCWs associated 
with a user's SIO request must be translated into real 
Figure 2. Overview of a Virtual SIO CCWs. 














Diag. 1B3.9. Virtual I/O Request 


The virtual machine issued a SIO, HIO, TIO, or TCH 
(these are privileged instructions) and a program check 
interrupt occurred. DMKPRG passed control to 
DMKPRVLG 


OUTPUT 
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When the I/O operation from a self-modifying channel 
program is completed, DMKUNTIS is called by DMKIOS. 
When retranslation of OS ISAM CCWs is required, the 
self-modifying channel program checking portion of 
DMKCCWTR calls DMKISMTR. 

DMKCCWTR operates in two phases: 

• A scan and a translate phase. 

• A TIC-scan phase, if the ISAM option was chosen. 

A self-modifying channel program checking function is 
also included. 

The scan and translate phase analyzes the virtual CCW 
list. Some channel commands require additional 
doublewords for control information (for example, seek 
addresses). Additional control words are also allotted 
(in pairs) if the data area specified by a virtual CCW 
crosses 4096-byte page boundaries, or if the virtual 
CCW includes an IDA (Indirect Data Address) flag. 

Space is obtained from DMKFREE for the real CCW list, 
and the translation phase then translates the virtual 
CCW list into a real CCW list. TIC commands that 
cannot be immediately translated are flagged for later 
processing by the TIC-scan phase. A read or write 
command that specifies data crossing 4096-byte 
boundaries is revised to include an IDA flag that 
points to an Indirect Data Address List (IDAL) and a 
pair of words for each 4096-byte page, in which each 
word handles a data-transfer of 2048 bytes (or less) . 
The real CCW is flagged as having a CP-generated IDA. 
DMKPTRAN is called (via the TRANS macro) to lock each 
4096-byte page. 

If the real CCW string does not fit in the allocated 
free storage block, a new block is obtained. The old 
block is transferred and adjusted before being 
released. The translation continues with the new block. 
The process is repeated as needed to contain the real 
CCW string. 

Virtual CCWs having and IDA flag set are converted to 
use translated addresses for each IDAW (Indirect Data 
Address Word) in the virtual IDAL. DMKPTRAN is called 
for each IDAW. The CCW flagged as having a user (but 
not CP) generated IDA. 


The TIC-scan phase scans the real CCW list for flagged 
(untranslated) TIC commands and creates a new virtual 
CCW list for the untranslated commands. Scan-translate 
phase processing is then repeated. When all virtual 
CCWs are translated, the virtual CAW in the IOBLOK task 
block is replaced by the real CAW (that is, a pointer 
to the real CCW list created by DMKCCWTR), and DMKCCWTR 
returns control to DMKVIOEX. The user protection key 
is preserved. 

OS ISAM Handlin g by DMKISMTR: Because many of the OS 
PCP, MFT, and MVT ISAM channel programs are 
self-modifying, special handling is required by the 
VM/370 control program to allow virtual machines to use 
this access method. The particular CCWs that require 
special handling have the following general format: 

0 2 4 6 8 


A 


B 


C 


D 


E 


F 


The CCW at A reads 10 bytes of data, the last byte of 
which forms the command code of the CCW at E. In 
addition, the data read in forms the seek and search 
arguments for the CCWs at E and F. After the CCW 
string is translated by the VM/370 control program it 
usually is in the following format: 


READDATA C+7 

TIC to E 


10 bytes 
I- 


SEEK: SEEK head on D 

-I-1-1- 

SEARCH on D+2 


V / 












2 


4 


6 


8 


READDATA 07 10 bytes 

-j-1-1- 

TIC to 3 



In order to accomplish an efficient and non-timing 
dependent translated operation for OS ISAM, the virtual 
CCW string is modified in the following manner. 

DMKISMTR is called by DMKCCWTR if, during normal 
translation, a CCW of the type at 1 is encountered. 
The scan program locates the TIC at 2 by searching the 
translated CCW strings. The TIC at 2 locates the seek 
at 3. 

The virtual address of the virtual seek CCW at E is 
located from the RCWTASK header. Three doublewords of 
free storage are obtained and the address of the block 
is saved in the ISAM control word at 5. The three 
doublewords are used to save the following information 
from the translated CCW strings and from the users 
virtual storage. 


Before 


After 


address of 
TIC at 2 

address of 
SEEK at E 

first word of 
CCW at F 


first word of 
TIC at 2 

first word of 
SEEK at E 

address of 
CCW at 4 


The TIC at 2 is altered to TIC to the virtual CCW at E. 
The CCW address field at E is translated to reference 
D. The four bytes at F are modified to a TIC to the 
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serve as user logon consoles. Scheduling and interrupt 
supervision for these devices is essentially a 
synchronous process and does not require the queuing 
and restart services of DMKIOS; it is therefore handled 
by the module DMKCNS. 


REAL I/O CONTROL BLOCKS 


In order to control the activity of the I/O devices of 
the system and schedule I/O requests upon them, I/O 
control uses several types of control blocks. These 
blocks can be separated into two basic types: 

• Static blocks that describe the components of the 
I/O system. 

• The dynamic blocks that represent active and pending 
requests for I/O operations. 

The I/O components of the real system are described by 
one control block for each channel, control unit, and 
device available to the control program. Units present 
but not represented by control blocks are not available 
for either user initiated or control program initiated 
operations. 

RCHBLOK : For each channel attached to the system there 
exists a Real Channel Control Block (RCHBLOK) which 
contains: 

• The channel portion of the address of its attached 
units, 

• Status flags reflecting its availability for 
scheduling. 

• A two-way queue anchor pointing to the list of I/O 
requests waiting for its services. 


In addition, each RCHBLOK contains 32 half-word 
indexes, arranged in ascending address order, that 
represent the displacement into the Real Control Unit 
table of the control blocks for the control units 
attached to the channel. The 32 entries are required 
because the control unit address may be made up of 5 
bits from the unit address. To locate the control block 
for a given unit, it is only necssary to: 

• Index into the table in the RCHBLOK a displacement 
equal to twice the control unit address. 

• Load the index value. 


• Add the value to 
Control Unit Table. 

the 

base 

address of the 

Real 

RCUBLOK: The Control 

Unit 

Table 

is composed of 

Real 


Control Unit Blocks (RCUBLOK), one for each Control 
unit on the system. These blocks are similar to the 
RCHBLOK in that they contain the control unit portion 
of the address and status flags, and a pointer to a 
queue of I/O requests. In addition the RCUBLOK 
contains a pointer to the RCHBLOK for the channel to 
which it is attached. The RCUBLOK contains a table of 
16 halfword entries that represent the displacment into 
the Real Device Table of its attached devices. This 
table is referenced in the same manner as the table in 
the RCHBLOK. 

RDE VB LO K: Each device in the system is represented by a 
Real Device Control Block (RDEVBLOK), contains the 
device portion of the unit address and status flags 
similar to those in RCHBLOK and RCUBLOK. There is also 
a pointer for those operations that are waiting for the 
device to become available. Fields that appear in the 
RDEVBLOK and not in the other blocks include a pointer 
to the I/O request that is currently active on the 
device, SIO counts, and a pointer to error and sense 
information. The RDEVBLOK contains a pointer to the 
RCUBLOK for the control unit to which it is attached 
and fields of device dependent information which do not 
affect the operation of I/O control. 





Diag. 1B4.0 Real I/O Control Blocks 


The real machine configuration is represented by a set of 
related control blocks. These blocks are: 

• part of the VM/370 nucleus 

• built from macros in assembly of DMKRID 

• loaded at system I PL and initialized then for operation. 

There is one control block per channel, per control unit, and 
per device. 

The characteristics of VM/370 real I/O control are: 

• Block multiplexing (BMPX) with RPS (Rotational 
Position Sensing) is used. 

• Multi-path scheduling (2 channel switching) is not used, 

• All I/O operations are handled by VM/370 scheduling 
and interrupt handling. 


DM KRI OCT - Real Channel Table 
See Appendix X for a complete description 


Relationship of Real I/O Control Blocks 


-negative value (FFFF) 
indicates no channel exists 


—positive value is an index 
to the RCHBLOK 


RCHBLOK - Real Channel Block 



RCUBLOK - Real Control Unit Block 


RDEVBLOK — Real Device Block 


Channel identification 


Scheduling Control 


XXXX 

XXXX 1 XXXX 

XXXX 

XXXX 


XXXX 


Control Unit 
Index Table 


XXXX I -.if negative (FFFF), no control unit exists 


if positive, that value is an index to tne RCUBLOK 


Control Unit identification 

Scheduling Control 



XXXX 

XXXX 

E P^( 

XXXX 

XXXX 


''if negative (FFFF), no device exists 


if positive, that value is an index to RDEVBLOK 


Device identification 
Scheduling Control 
Terminal Control 
Spooling Control 
Dedicated Control 
Error Recovery 
Allocation Control 


Part of the RDEVBLOK pertains to functions that are 
device independent; that part of the RDEVBLOK is used 
in the same way for all devices. However, some of the 
fields in the RDEVBLOK have multiple uses, depending 
on the device type and function. 
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IOBLOK: I/O requests that are active in the system are 
represented by IOBLOKs. There is one IOBLOK for each 
operation (that is, channel program) to be executed. 
The IOBLOK is constructed by the requesting task and 
contains such information as: 

• The identity of the requestor 

• The address of the channel program to be executed 

• The address to which control is to be returned upon 
completion of the operation 

In addition, the IOBLOK contains status flags that 
indicate the current state of the operation (such as, 
whether or not an error has occurred, if an Error 
Recovery Procedure (ERP) is in control, and the 
condition returned from the SIO) and the CSW 
associated with the interrupt that signals the end of 
the operation. Since IOBLOKS are queued off various 
I/O control blocks, they also contain forward and 
backward queue pointers. DMKIOS builds in them the real 
device address of the unit on which the operation is 
started. 

In general, the IOBLOK representing a given operation 
progresses through the system by being queued, in turn, 
from device, control unit, and channel blocks until a 
path is at last free to the device. A SIO is then 
issued. After the operation is complete, the IOBLOK is 
dequeued from the RDEVELOK and stacked on a queue 
maintained in the dispatcher, DMKDSP. Each time the 
dispatcher is entered, the entries on the queue are 
unstacked and control is passed to the point specified 
in the Interrupt Return Address (IOBIRA). After I/O 
control stacks the IOBLOK for the given task, it 
attempts to restart all of the components that have 
been freed by the completion of the operation. 


I/O COMPONENT STATES 


The I/O components represented by the control blocks 
described in the section "Real I/O Control Blocks" are 
in one of four states and the state is indicated by the 
flag bits in the block status byte. If the component is 
not DISABLED, it is either BUSY, SCHEDULED, or 
AVAILABLE. 
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If the DISABLED bit is on, the component has been taken 
offline by the operator or the system and is at least 
temporarily unavailable. A request to use a disabled 
component causes the IOBLOK to be stacked with an 
indication of condition code 3 on the SIO and the real 
SIO is not performed. 

A component is BUSY if it is transferring data (in the 
case of a channel or control unit), or if it is in 
physical motion (in the case of a device). If a 
component is BUSY, the IOBLOK for the request is queued 
from the control block representing that component. 

A component is SCHEDULED if it is not BUSY but will 
become BUSY after a higher level component in the 
subchannel path becomes available and an operation is 
started. For example, if a request is made to read 
from a tape drive and the drive and control unit are 
available, but the channel is BUSY, the IOBLOK for that 
request is queued from the RCHBLOK for the BUSY channel 
and the RCUBLOK and RDEVBLOK of the drive and control 
unit are marked SCHEDULED. Future requests to that 
drive are queued from the RDEVBLOK for the SCHEDULED 
device. When the channel completes the operation, the 
next pending operation is dequeued and started; the 
SCHEDULED control unit and device are then marked BUSY. 

The IOBLOKs for various I/O requests indicate the 
status of that request by a combination of the status 
bits in the IOBLOK and the queue in which the block 
resides. In general, an IOBLOK is queued from the 
control block of the highest level componenent (taken 
from device up to channel) in the subchannel path that 
is not available. Once the I/O operation is started, 
the IOBLOK is chained from the active IOBLOK pointer 
(RDEVAIOB) in the Real Device Control Block. Flags in 
the IOBLOK status fields may also indicate that a unit 
check has occurred, that a sense is in progress, or 
that a fatal I/O error (unrecoverable) has been 
recognized by ERP. After I/O control releases control 
of the IOBLOK, it is stacked on the queue of IOBLOKs 
and CPEXELOKs anchored at DMKDSPRQ in the dispatcher 
and control is passed to the second level interrupt 
handler whose address is stored in IOBIRA. 




I/O INTERRUPTS 


DASD Error Recovery, ERP (DMKDAS) 


I/O interrupts are usually either synchronous or 
asynchronous. Asynchronous interrupts indicate the 
change in status of an I/O component from the not-ready 
to ready state or busy to not-busy state. In either 
case, if the affected component has any pending 
requests queued from its control block, they are 
restarted and whether or not the given interrupt is 
processed any further depends upon the status of the 
interrupting component, Channel available and control 
unit end type interrupts restart the interrupting 
component. An asynchronous device end is passed to the 
user if the device is dedicated; otherwise, the device 
is restarted. 

An interrupt is considered to be synchronous if the 
interrupting device has a nonzero pointer to an active 
IOBLOK. In this case the processing that occurs is as 
follows: 

• If a unit check has occurred, a SENSE is scheduled, 
and when the SENSE is completed, the appropriate ERP 
is called. 

• If an ERP is currently in control of the task 
(indicated by a flag in the IOBLOK), return the 
IOBLOK to the appropriate ERP. 

• If the operation is incomplete (for example, channel 
end is received without device end), the IOBLOK is 
copied and the copy is stacked but the original 
IOBLOK remains attached to RDEVAIOB to receive the 
final interrupt; then, the control unit and the 
channel is restarted. 

• If the operation is complete (that is, the device is 
available), the IOBLOK is unhooked from the device 
and stacked, and the device, control unit and 
channel are restored. 

The restart operation usually degueues the next IOBLOK 
that is queued to the restarted component and gueues it 
to the next higher component in the subchannel path. 
When the channel level is reached, a SIO is issued and 
exit is taken to the dispatcher after handling any 
non-zero condition codes as previously described. 


Error recovery is attempted for VM/370 control program 
initiated I/O operations to its supported devices and 
for user-initiated operations to control program 
supported devices which use a diagnose interface. The 
primary control blocks used for error recovery are the 
RDEVBLOK, the IOBLOK and the IOERBLOK. In addition, 
auxiliary storage is sometimes used for recovery 
channel programs and sense buffers. 

The initial error is first detected by the I/O 
interrupt handler which performs a SENSE operation if a 
unit check occurs. Unit check errors are then passed to 
an appropriate ERP. If a channel check is encountered, 
the channel check interrupt handler determines whether 
or not retry is possible and pass control to an ERP 
through the I/O interrupt handler. EASD errors are 
processed as described below. 


CHANNEL ERRORS 


• Channel control check is treated as seek check. 
It is retried 10 times. 

• Interface control check is treated as seek check. 
It is retried 10 times. 

• Channel data check is treated as data check. It 
is retried 10 times. 


UNIT CHECK ERRORS 


Equipment check: Retry the operation once. 

No re cord f ound and missing address marker: Recalibrate 
and retry the channel program 10 times. 

No record found: Execute a READ HOME ADDRESS and check 
heme address against seek address. If they are the 
same, consider the error permanent. If they are not 
egual recalibrate and retry the channel program 10 
times. 
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Diag. 1B4.1 


• I/O Interrupt Handler 


INPUT 



Real I/O Device 
Blocks 

RCHBLOK(s) 

RCUBLOK(s) 

RDEVBLOK(s) 

IOBLOK 



PROCESS 


DMKlOSIN — Process all Real I/O Interrupts 


If a virtual machine is running at the time of interruption save 
CPU status in the active VMBLOK 
Call DMKSCNRU to locate RCHBLOK, RCUBLOK, 
RDEVBLOK — (IOBLOK will be located and unchained 
from RDEVBLOK) 

Interpret status — Restart I/O, issue SENSE, or schedule 
error routine according to status 


• From dedicated channel — pmkviodc) 

• From unknown channel, the interrupt is 


ignored | 


/ DMKDSPCH \ 

V Diag.2B J 


From an unsolicited device end, build an ._ 

IOBLOK and for: Console (T/P) ■■■■►( ^^ IKCNSIM 

Unit Record (U/R), real spooling 


Diag. 4B2 



• From a solicited device end ^ (DMKSTKIQ) to stack IOBLOK I 

• From a channel check error, the channel check 


handler ■ 


/ DM KCCHNT 
* \Diag.8B2 J 


• From a dedicated device error, for either CP or a 
virtual machine (DMKVCH), the ERP for: 


DASDI 


* (dmkdaser) Tape (dmktaper) 

Recoverable error? No, record error (pmkioerr) 

Yes DMKSTKIO to stack IOBLOK 


OUTPUT 


Contains Interrupt 
Status 







Seek check: Retry the operation 10 times. 

In tervention requi re d: Issue a message to console and 
wait for solicited device end. This procedure will be 
repeated once. 

Bus out check: Retry the operation 10 times. 

Data checks: Retry the operation 256 times, with a 
recalibrate being executed every 16th try. 

Overrun: Retry the operation 10 times. 

Mi ss ing address m ar ker: Retry the operation 10 times. 

Command r ej ect: Retry the operation once. 

Chaining check: Retry the operation 10 times. 

Environmental data present: Issue a buffer unload 
command and retry the operation. 

Track con di tion c he ck: This error should not occur. The 
VM/370 control program dees not use alternate tracks in 
its paging or spooling management. When a disk pack is 
formatted, any track that is marginal is marked as 
permanently allocated and, therefore, made unavailable 
for use by the VM/370 control program. 

The error recovery routine keeps track of the number of 
retries in the IOBRCNT field of the IOBLOK. This count 
is used to determine if a retry limit has been exeeded 
for a particular error. On initial entry from DMKIOS 
for an error condition, the count is zero. Each time a 
retry is attempted the count is increased by one. 

The ERP preserves the original error CSW and sense 
information by placing a pointer to the original 
IOERBLOK in the RDEVBLOK. Additional IOERBLOKs, which 
are received from DMKIOS on failing restart attempts 
are discarded. The original I0EREL0K is thus preserved 
for recording purposes. 

If the specified number cf retries fails to correct the 
error situation, the operator is notified and control 
is returned to DMKIOS. DMKIOS is notified of the 
permanent error by posting the IOBLOK 

(IOBSTAT=IOEFATAL)• The error is recorded by DMKIOS 
via EMKIOERR. 


If the error is corrected by a restart, the temporary 
or transient error is not recorded. Control is 
returned to DMKIOS with the error flag off. 

Before returning control to DMKIOS on either a 
permanent error of a successful recovery, the ERP frees 
all auxiliary storage gotten for recovery CCWs, 
buffers, and IOERBLOKS. 

The DMKIOS interface with the ERP uses the IOBSTAT and 
IOBFLAG fields of the IOBLOK to determine action 
reguired when the ERP returns to DMKIOS. 

When retry is to be attempted the ERP turns on the 
restart bit of the IOBFLAG field. The ERP bit of 
IOBSTAT field is also turned on to indicate to DMKIOS 
that the ERP wants control back when the task has 
finished. This enables the ERP to receive control even 
if the retry was successful and allows the freeing of 
all storage gotten for CCWs and temporary buffers. The 
IOBRCAW is set to the recovery CCW string address. 

In handling an intervention reguired situation, the ERP 
sends a message to the operator and then waits for the 
device end to arrive. This is accomplished by a return 
to DMKIOS with the ERP bit in the IOBSTAT field set on 
and the IOESTRT bit in the IOBFLAG field set off. When 
the device end interrupt arrives, the original channel 
program which was interrupted is then started. 

The ERP flags of the IOERBLOK are also used to indicate 
when special recovery is being attempted. For example, 
a READ HOME ADDRESS command when a no record found 
error occurs. 

The other two indications are self explanatory and are 
explained in Figure 3. 
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Field 
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0 

1 

1 0 
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1 1 

1 

1 

{Permanent I/O 
{Error 

i 

0 

1 

1 o 

1 

1 0 

1 

|Retry successful 


Figure 3* Summary of IOB Indicators 


If the error is uncorrectable or intervention is 
required, the EBP calls DMKMSW for operator awareness. 
The specific message is identified in the MSGPARM field 
of the IOERBLOK. 


Tajge Error Recovery r ERP (DMKTAP) 


Error recovery is attempted for user-initiated tape I/O 
operations to VM/370 control program supported devices 
that use the diagnose interface. The primary control 
blocks used for error recovery are the RDEVLOK, the 
IOBLOK, and the IOERBLOK. In addition, auxiliary 
storage is used for recovery channel programs 
(repositioning and erase). 

The interrupt handler, DMKIOS, performs a SENSE 
operation when a unit check occurs. Tape errors are 
then passed to this DMKTAP. The sense information 
associated with a unit check is contained in the 
IOERBLOK. If a channel check is encountered, the 
channel check interrupt handler determines if retry is 
possible and passes control to the ERP through the I/O 
Interrupt Handler. 


for this task. The IOBRCNT (IOB error count) field of 
the IOB is zero. On this first entry, the pointer to 
the IOERELOK is placed in the RDEVIOER field of the 
RCEVBLOK This preserves the original error CSW and 
sense information for recording. Thereafter, IOERBLOKS 
are discarded before a retry is attempted or a 
permanent error is passed to IOS. 


The ERP looks for two other specific conditions. If the 
error count field is not zero, entry must be due to a 
recovery attempt. Thus, it may be a solicited device 
end to correct an intervention required condition or a 
retry attempt for either tape repositioning or channel 
program re-execution. 

The ERP keeps track of the number of retries in the 
IOBRCNT field of the IOBLOK to determine if a retry 
limit has been exceeded for a particular error. If the 
specified number of retries fails to correct the error, 
the error is recorded and DMKIOS is notified of the 
permanent error by turning on a status flag in the 
IOBLOK (IOESTAT=IOBFATAL). 


If the error is corrected by DMKTAP, the temporary 
error is not recorded and control is returned to DMKIOS 
with error flags all off. When repositioning is 
required to attempt recovery, additional flags 
(EPPFLAGS) are contained in the IOERBLOK to indicate 
paths for specific errors (that is, data check on write 
must reposition, erase, and then reissue original 
channel program). 

All error recovery is started the same except for 
intervention required errors. The IOBFLAG is turned on 
to indicate RESTART (IOBFLAG=IQBRSTRT), and the IOBRCAW 
(IOBLOK Restart CAW) is filled with the restart channel 
address word. In addition, an IOBSTAT flag is turned on 
to indicate that the ERP is in control so that control 
can be returned to ERP during all tape error recovery 
(IOBSTAT=IOBERP). In the case of an intervention 
required error, the ERP sends a message to the 
operator, and then returns to DMKIOS with indications 
that tell DMKIOS the ERP is waiting for a device end on 
this device. This is done by clearing the restart flag 
and returning to DMKIOS with only the IOBERP flag on. 


When an error is encountered and ERP receives control. When ERP has determined a permanent error situation or 
DMKTAP determines if this the first entry into the ERP successfully recovered from an error, all auxiliary 


V 


V. J 










storage gotten for recovery CCWs, buffers, and 
IOERBLOKs is freed before a return is made to DMKICS 
(see Figure 3 for a summary of the IOB indicators)• 


If the error is uncorrectable or operator intervention 
is necessary, the ERP calls the message writer to write 
the specific message. 


Virtual I/O In terrup ts 


When an I/O interrupt is received (see Figure 4), the 
IOBLOK is stacked for dispatching and control is passed 
to the address specified in the IOBIRA (Interrupt 
Return Address) field. For operations requested by 
DMKVIOEX, the return address is DMKVIONT (Virtual 
Interrupt Return Address). When DMKVIONT receives 
control from the dispatcher, it loads the virtual 
address of the unit with which the interrupt is 
associated from the IOBLOK and calls DMKSCNVU to locate 
the virtual device control blocks. DMKVIONT then tests 
the IOBLOK status field to determine the cause for the 
interrupt. If the block has been unstacked due to an 
interrupt, the field is zero. If the operation was not 
started, it contains the condition code from the real 
SIO. 

Note: The VIRA should net see a real condition code 2 
as the result of a SIO, since channel busy conditions 
are detected and reflected before any real I/O 
operation is attempted. 

A condition code 3 is reflected to the user and exit is 
taken to the dispatcher. For condition code 1, the CSW 
status field in the IOBLOK is examined to determine the 
cause for the CSW stored condition. The status is 
reflected to the user and various components of the 
virtual configuration may be freed, if the status so 
indicates. For example, if the CSW status indicated 
both channel end and device end, the operation was 
immediate and has completed. Thus, the CCW string 
(real) may be released and all virtual components 
marked available. 

The CSW status status returned for a virtual interrupt 
must be tested in the same manner, with the additional 
requirement that the status be saved in the affected 


virtual I/O control blocks and that the CSW be saved in 
the VDEVCSW field for the device causing the interrupt. 
If the unit check bit is on in the status field, the 
sense information saved in the associated IOERBLOK 
(pointed to by the IOBLOK) must be retained so that a 
sense initiated by the virtual machine receives the 
proper information. 

In any case, when an interrupt is received for a 
virtual device, a bit in the interrupt mask, VCUDVINT, 
for the device^ control unit is set to one. The bit 
that is set is the one corresponding to the relative 
address of the interrupting device on the control unit. 
For example, if device 235 interrupts, the fifth bit in 
the VCUDVINT mask in the VCUBLOK for control unit 30 on 
channel 2 is flagged. Similarly, the bit in the 
VCHCUINT in the affected VCHBLOK is also set; in this 
case, bit 3 in VCHBLOK for channel 2. If the interrupt 
is a channel class interrupt (PCI or CE), the address 
of the interrupting unit (235) is stored in the 
VCHCEDEV field in the VCHBLOK. The final interrupt 
flag is set in the VMPEND field in the VMBLOK for the 
interrupted user; the bit set corresponds to the 
address of the interrupting channel. The next time, 
the user is dispatched and becomes enabled for I/O. 


Sc hedul ing I/O R eq uests 


A task that requests an I/O operation must specify the 
device on which the operation is to take place and must 
provide an IOBLOK that describes the operation. Upon 
entry to DMKIOS, Register 10 must point to the IOBLOK. 
The IOBLOK must contain at least a pointer to the 
channel program to be started in IOBCAW and the address 
to whiah the dispatcher is to pass control in IOBIRA. 
In addition, the flags and status fields should be set 
to zero. If the operation is a VM/370 control program 
function such as spooling or paging, the entry point 
DMKIOSQR is called. If the requestor is the virtual 
I/O executive (OMKVIDEX) attempting to start a user 
operation, the entry point DMKICSQV is called and some 
additional housekeeping is done. In either case, an 
attempt is made to find an available subchannel path 
from the device to its control unit and channel. If a 
component in the path is BUSY or SCHEDULED, the IOBLOK 
for the request is queued to the control block of the 
component. 
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Figure 4 
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• Overview of a Virtual I/O Interrupt 






Diag. 1B4•2• Virtual I/O Interrupt 
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UNSTACKED IOBLOK 


IOBLOK 

VCHBLOK 

VCUBLOK 

VDEVBLOK 





Via Interrupt Return 
Address in IOBLOK 


PROCESS 


Virtual I/O Interrupt 


DMKV10IN — Translate the virtual interrupt 

A Call DMKSCNVU to locate VCHBLOK, 

VCUBLOK, and VDEVBLOK for interrupting 
device 

If IOBLOK stacked due to nonzero CC on SIO, 
reflect condition code to user and store CSW 
status, then go to 

|U| If interrupt is channel end, save CSW in VDEVBLOK 
and save address of interrupting unit in the VCHBLOK. 

Call DMKUNTRN to untranslate the address in the 
real CSW 

If the device is free, also call DMKUNTFR to 
return the real CCW list to free storage 

Flag interrupt pending in VMBLOK, VCHBLOK, and 
VCUBLOK for virtual machine receiving the 
interrupt 

Save any sense bytes associated with this I/O 
operation. 



OUTPUT 


Located Virtual Device Blocks 
for interrupting Device 

VCHBLOK 

VCUBLOK 

VDEVBLOK 


VDEVBLOK with updated 
Device status. 

VCHBLOK with interrupting 
Virtual Device Address. 


VMBLOK flagged with pending 
interrupt 


r 


DMKDSPCH 

D iag. 2B 
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Requests are usually queued first-in first out (FIFO), 
except those: 

• To moveable head DASD devices that are queued in 
order of seek address. 

• That release the affected component after initiation 
(SEEKS and other control commands) which are queued 
last-in first gut (LIFO) from the control block. 

Regardless of whether or not the operation has been 
successfully started, the caller requesting the I/O 
operation receives control back from DMKIOS. If a free 
path to the device is found, the unit address is 
constructed and an SIO is issued. If the resulting 
condition code is zero, control is returned to the 
caller; otherwise, the code is stored in the 
requestors IOBLOK along with any pertinent CSW status, 
the IOBLCK is stacked, any components that become 
available are restarted, and control is returned to the 
caller. 

Ordered Seek Queueing: Requests to start I/O on system 
devices are normally handled FIFO. However, requests to 
moveable head DASD devices are queued on the device in 
ascending order by seek address. This ordered seek 
queuing is performed to minimize intercylinder seek 
times and to improve the overall throughput of the I/O 
system. 

The VM/370 control program assumes that very few 
virtual machines will do chained seeks; hence, the 
first logical address represents where the arm will be 
positioned upon completion of the I/O operation. 
Ordered seek queueing is based on the relocated real 
cylinder. DMKIOS uses the cylinder location supplied in 
IOBCYL for ordered seek queuing. This field is 
initialized by the calling VM/370 control program 
routine for paging and spooling or by the CCW 
translator for virtual I/O. The CCW translator DMKCCW 
supplies the IOBCYL value in the following manner. 

• Read IPL record, relocated to virtual cylinder 0 

• Recalibrate, issue a real recalibrate and then seek 
to virtual cylinder 0 

• Channel seeks, relocate to the virtual cylinder 

The IOBLOK queueing subroutine of DMKIOS recognizes 


that a request is being queued on a moveable head DASD 
device by means of the device class and type fields of 
RDEVBLOK. Instead of adding the IOBLOK to the end of 
the queue on the RDEVBLOK, the queueing routine sorts 
the block into the queue based on the cylinder number 
for the request. The cylinder number for any request to 
a DASD device is recorded in the field IOBCYL. The 
queue of IOELOKs on a real device block is sorted in 
ascending order by seek address, unless the entire 
device is dedicated to a given user. In this case, 
DMKIOS does not automatically schedule the device, and 
no more than one request can be outstanding at any one 
time. 

When an outstanding I/O request for a device has 
completed, DMKIOS attempts to restart the device by 
dequeuing and starting the next IOBLOK queued on the 
device. For non-DASD devices, this is the first IOBLOK 
queued. However, for moveable head DASD devices, the 
queued requests are dequeued in either ascending or 
descending order, depending on the current position 
(recorded in RDEVCYL) and the direction of motion of 
the arm. If the arm is seeking up (that is, toward the 
higher cylinder numbers), the queue of IOBLOKs is 
scanned from the first block toward the last until an 
IOBLOK is found with an IOBCYL value equal to or 
greater than the value in RDEVCYL, or until the end of 
the queue is reached. At this point, the device is 
flagged as seeking down and the queue is scanned from 
last to first until an IOBLOK with an IOBCYL value 
equal to or less than RDEVCYL is found. When IOBLOK is 
found, it is dequeued and started. The direction of 
motion is remembered in an RDEVFLAG bit and the next 
request is dequeued in the down direction until the 
head of the queue is reached. 

Because the queue itself is a two-way chained list, no 
special handling for null or unity set lists is 
required, and the ordered seek algorithm returns to 
FIFO queueing. 

De dicated C hannel Support: One of the facilities of 
the VM/370 control program allows a virtual machine to 
control one or more channels on a dedicated basis. The 
channels are attached to the virtual machine by using 
the privileged ATTACH CHANNEL command. A virtual 
machine can have one or more dedicated channels. In 
addition, channels can be split between virtual 
machines but a dedicated channel cannot be shared 
between two virtual machines. For instance, channel 1 
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I/O Scheduling 
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DMKIOS REAL I/O SCHEDULING 


DMKIOSQV — Schedule and start real I/O 
operation for a virtual machine 

Q Save address of VMBLOK in IOBLOK 

||!| Increment SIO count in VDEVBLOK 

0*$. Continue at step below 


DMKIOSQR — Schedule and start a CP 
generated real I/O operation 

Flag IOBLOK as CP generated I/O 

If device is busy or scheduled queue 
IOBLOK from the device and exit to 
caller-^ otherwise 

O Schedule operation by chaining the IOBLOK 
from the RDEVBLOK and mark I/O path busy 

Locate caller's CAW and unit address 

Q Issue Real SIO 

Condition Code = 

0 - Take virtual machine out of 
I/O wait and exit to DMKDSPCH 

1 - Analyze CSW status and take 

approximate action 

2 - Requeue IOBLOK on channel 

and exit to caller 

3 - Fatal error, stack IOBLOK and 

return to caller 

IF CC=1 and ANX I/O component is free, 
branch to the restart subroutine 
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could be dedicated to virtual machine A, and channel 2 
could be dedicated to virtual machine B, or they could 
be both dedicated to virtual machine A or B. 

With a dedicated channel, all virtual machine device 
addresses must be identical to the real machine device 
addresses. For instance, virtual device 130 must be on 
real device 130, and virtual device 132 must be on real 
device 132. With dedicated channels, the VM/370 
control program does not perform any virtual device 
address mapping. With a dedicated channel in effect, a 
virtual machine I/O operation to one of the dedicated 
devices on that channel results in the control program 
performing the operation directly on that device and 
reflecting the true condition code back to the virtual 
machine. None of the I/O operations are passed through 
control program's normal channel scheduling since the 
channel is completely dedicated to the virtual machine 
and any conditions in the channel are a direct result 
of that virtual machine's operation of that channel. 

It is expected than any I/O new PSW for a virtual 
machine operating system has all channels masked off. 
Thus, when the VM/370 control program receives a 
hardware interrupt from a dedicated channel it 
immediately disables all further interrupts on that 
channel. The interrupt is then reflected to the 
virtual machine. The real channel stays disabled until 
the virtual machine issues an instruction to enable 
that channel. At that time, the VM/370 control program 
performs a hardware function to enable the real 
channel. 

By using the dedicated channel feature, a virtual 
machine bypasses the VM/370 control program overhead 
associated with channel scheduling and virtual machine 
interrupt stacking. The channel scheduling is bypassed 
by performing the I/O operation directly and the 
interrupt stacking is bypassed by disabling the channel 
and having the hardware perform the true interrupt 
stacking. 

The VM/370 control program error recording and channel 
recovery procedures are still in effect for dedicated 
channels. The dedicated channel support can be used in 
conjunction with the Virtual=Real feature for any 
virtual machine that is occupying the Virtual=Real 
storage space. 


DISPATCHER/SC HEDULER 


The module that selects dispatchable users from the 
population is DMKSCH, the Scheduler. The module that 
tests and alters the resources of the CPU is DMKDSP, 
the Dispatcher. The auxiliary routine that assists the 
Scheduler and Dispatcher is the request stack 
maintenance routine, DMKSTK. 


In order to make decisions on both dispatching and 
scheduling, the control program classes all users into 
various categories, and recognizes user machines as 
being in one of several states. The user categories 
recognized are classed as being either interactive or 
non-interactive. 

• An interactive user is one whose use of the system 
is punctuated by regular and frequent terminal I/O, 
and does not execute long CPU loops. A user becomes 
eligible to enter interactive status whenever a 
channel program for virtual console I/O has 
completed, or whenever I/O for a dedicated or dialed 
virtual telecommunications line has completed. 

• A non-interactive user is one who has violated an 
interactive criterion, or one who has entered an 
idle wait state by entering console function mode 
(equivalent to stopped state), or by loading a wait 
state PSW that is not enabled for any busy channel. 
The control program schedules interactive users 
ahead of non-interactive users. Non-interactive 
users are subdivided into several classes. Normal 
non-interactive users are scheduled via a priority 
scheme described below. A user is allowed to execute 
for a specified time period and he is then placed in 
a list of those users who are waiting. 


In order to give preference to certain classes of 
users, a priority scheduling scheme allows users to be 
scheduled with a priority class. The priority is a 
number assigned by the directory; however, the number 
may be altered by the system operator. 
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USER DISPATCHING LISTS AND MACHINE STATES 


In order to efficiently manage the large inventory of 
potential users that are logged on to the system, the 
control program defines several states that a virtual 
machine may occupy. The scheduler can move a virtual 
machine from one state to another; however, a virtual 
machine may exist in only one state at any given 
instant. The control program can then make scheduling 
and dispatching decisions by looking only at the subset 
of users that are in the appropriate state. To 
facilitate this search, it also maintains lists of 
users in certain executable states. 

A user's virtual machine may be in one of the following 
states: 

State Mea ning 

1 Interactive and dispatchable (in queuel, in 
DISPATCH list) 

2 Interactive and not dispatchable (in queuel, 

not in DISPATCH list) 

3 Interactive and eligible for queuel, but queuel 
is full (waiting for queuel, in ELIGIBLE list) 

4 In wait state with terminal read or write 

active 

5 Non-interactive and dispatchable (in queue2, in 
DISPATCH list) 

6 Non-interactive and not dispatchable (in 

queue2, not in DISPATCH list) 

7 Non-interactive and eligible for queue2, but 

queue2 is full (waiting for queue2, in ELIGIBLE 
list) 

8 Idle - waiting for asynchronous I/O or external 
interrupt, or stopped (in Console Function 
Mode) 

Two lists of users are maintained by the scheduler: 

• The DISPATCH list 

• The ELIGIBLE list 


Entries on the DISPATCH list are the VMBLOKS for those 
users in states 1 and 5, and represent the users that 
can be run at any given time. The DISPATCH list is 
sorted by dispatching priority, which is the ratio of 
CPU time to wait time over the life of the current user 
task. A task is defined as that execution which takes 
place between terminal reads or entry to enabled wait 
(that is, movement from state 4 or 8 to state 1) and is 
re-projected for a user each time he is dropped from a 
queue. Users entering state 1 always have a priority of 
0 . 

The ELIGIBLE list is composed of those users in states 
3 and 7; these users are potentially executable but due 
to the current load on the system they are not allowed 
to compete for the CPU. As soon as a user in the 
DISPATCH list is dropped from queue, the highest 
priority user(s) in the ELIGIBLE list is added to the 
DISPATCH list, subject to the restriction that his 
projected working set must not exceed the remaining 
system capacity. The ELIGIBLE list has two components; 
a section composed of those virtual machines waiting 
for Q1 (interactive) and a section composed of those 
virtual machines waiting for Q2 (non-interactive). 
Each section of the list is sorted by scheduling 
priority, which is determined at the time the virtual 
machine is added to the ELIGIBLE list, as follows: 

1. The virtual machine's projected working set size, 
calculated the last .time it was dropped from a 
queue, is expressed as a percentage of the amount 
of main storage available for paging. This 
percentage, usually between 0 and 100, is 
multiplied by the Paging Bias Factor (stored at 
DMKSCHPB). 

2. The virtual machine's user priority (the priority 
set by the directory or the class A "SET PRIORITY" 
command) is multiplied by the User Bias Factor 
(stored at DMKSCHUB), and is added to the Paging 
Bias calculated in step 1. 

3. The sum of Paging and User Bias is divided by the 
sum of the Bias Factors to obtain a weighted 
average. 

4. A base priority is obtained by storing the TOD 
clock and using the high order word, which 
increments by 1 approximately once per second. 
This word is then modified by shifting it left or 


SY20-0880-1, Page Modified by TNL SN20-2624, August 15, 1973 


Method of Operation 71 




SY20-0880-1, Page Modified by TNL SN20-2624, August 15 


1973 


IBM VM/370: Control Program Logic 72 


right based on the Priority Delay Factor (stored 
at DMKSCHPD). If DMKSCHPD is positive, it 
indicates a right shift, thereby increasing the 
delay interval of the base priority; while a 
negative value indicates a left shift, 

5. The weighted average obtained in step 3 is then 
logically added to the adjusted base obtained in 
step 4, 


seconds. If the Priority Delay Factor is set to 
♦1, the base will be incremented once every two 
seconds. Therefore, although the bias difference 
is still 30, the delay time is now 60 seconds. 


2. In order to force "A" to be given a weighted bias 
equal to "B," a priority differential is 
calculated as follows: 


6, If the virtual machine is entering Q2 for the 
first time after being dropped from Q1, the 
Interactive Bias Factor (stored at DMKSCHIB) is 
subtracted from the priority obtained in step 5, 
If the virtual machine is entering Q1, or if it 
was last dropped from Q2, the Interactive Bias is 
not applied, 

7, The result of steps 1 thorough 6 is the scheduling 
or eligible list priority, and is stored in the 
VMEPRIOR field of the VMBLOK. 


The VMBLOK is then sorted into the appropriate section 
of the ELIGIBLE list in ascending value of VMEPRIOR. 
The effects of the various biases and the delay factor 
are illustrated by the following examples. 


1. Assume that two virtual machines are to be added 
to the ELIGIBLE list for Q2. The Paging Bias 

Factor is 1, the User Bias Factor is 1, and the 
Priority Delay Factor is 0. Virtual machine ”A M 
has a projected working set size of 80 percent of 
available storage and a user priority of 50. 
Virtual machine "B" has a projected working set 
size of 20 percent of available storage and also 
has a user priority of 50. The biases are 

obtained as follows: 


Paging 
User Bias 
A 80 X 1 

B 20 X 1 


User 
Bi as,, 
+ 50 X 1 
+ 50 X 1 


Weighted 

Bias 


= 130/2 = 65 

= 70/2 = 35 


If "A" is added to the eligible list at base time 
0, its eligible list priority witll be 65. If the 
Priority Delay Factor is 0, ,, B H will be added 
ah ead of W A" provided that ,, B H is eligible for 
entry to the list within the next (65-35) 30 


80 + A 20 + B 

---; A = B - 60 

2 2 

Therefore, for the biases to be equal, ••A 11 must 
have a priority of 60 less than ,, B.” For example, 
if "A" is given a priority of 10 and ,, B” is given 


a priority of 

70, the 

biases 

would compute as 

follows: 

Paging 

User 


Weighted 

User 

Bias 

Bias 


Bias 

A 

80 X 1 

+ 10 X 1 

= 90/2 

= 45 

B 

20 X 1 

+ 70 X 1 

= 90/2 

= 45 


3. The large difference in priorities could be 
lessened by i ncreasing the User Bias Factor. If 

the User Bias Factor is set to 3 instead of 1, the 

calculated priority differential is as follows: 

80 + 3A 20 + 3B 

----. 3 (B - A) = 60 ; A = B - 20 

4 4 

Now, '•A” requires a priority of only 20 less then 
"B" to achieve parity. For example: 

Paging User Weighted 

User Bia s Bias _Bias 

A 80 X~1 + 30 X 3 = 170/4 = 42 

B 20X1+50X3= 170/4 = 42 


The above examples illustrate the following general 
points about the use of the bias factors, the delay 
factor, and the user priority value: 

1. The Paging and User Bias Factors are a measure of 
the relative importance of the bias value. A high 






user bias will allow greater discrimination via 
the assigned priority; while a high paging bias 
makes storage reguirement the primary scheduling 
parameter. 


2. The user priority v alue , in the directory, is the 
means by which the paging priority may be 
overriden, and the means through which selected 
users will obtain improved performance. 


3. The Priority Delay Factor is the measure of the 
impact which the paging and user biases are to 
have. The greater the delay value, the greater is 
the maximum delay that can be experienced by a 
given user. 


4. The Interactive Bias Factor is a tool that 
enhances command response to conversational 
commands which require disk I/O, and which may be 
partially executed in Q2. 


If the Paging Bias Factor is non-zero, the net effect 
of the priority scheme is to discriminate against users 
who require large amounts of real storage. This 
discrimination results in a higher level of 
multiprogramming and increased CPU utilization; 
however, it must be traded off against poorer 
throughput for large users. The distributed Scheduler 
is aot biased; the bias factors are as follows: 

Paging Bias Factor (DMKSCHPB) = 0 
User Bias Factor (DMKSCHUB) = 1 
Priority Delay Factor (DMKSCHPD) - 0 
Interactive Bias Factor (DMKSCHIB) = 0 


Thus, the basic VM/370 Scheduler will schedule virtual 
machines FIFO within user priority; the same algorithm 
provided with the basic Release 1.0 system. 

Figure 5 is a graphic breakdown of the user states, 
showing the relationship between interactive and 
non-interactive states, in-queue and not-in-queue 
states, and in-list and not-in-list states. 


1- 


-1 

| In—Queue 

1—- 

| Not—in—Queue 

1 

— 1 


(DISPATCH | 

| List | 

j. 

No 

List 

{ELIGIBLE | 

| List | 

NO | 
List | 

i -- 

|Interactive! 

i 

i i 

2 

1 3 | 

4 i 

l 

| Non—Inter. | 

i- 

5 I 

6 

1 7 1 

8 | 
_ i 


Figure 5. User Dispatching States 


Figure 6 shows the possible user—state changes and the 
reasons for them; any changes not described are not 
possible. 


CONTROLLING THE DEPTH OF MULTIPROGRAMMING 

In order to control the number of users allowed in 
queue, the scheduler monitors the paging activity of 
all users and of the system as a whole. A decision as 
to whether or not to move a potential user from the 
eligible to the dispatch list is based upon whether or 
not that user's projected working set will exceed the 
system's remaining capacity. Individual user's working 
sets are calculated and projected at queue drop time 
according to one of the following formulas: 

P= (A+P) /2 

If (LP-LA) * (P-A) < 0 
— or — 

P=A 

If (LP-LA) * (P-A) > 0 

Note : See the Key for the meaning of the symbols. 

The working set is added to the current system load, 
which consists of the sum of the working sets for all 
users currently in a queue. The sum is compared to the 
system maximum, which is equal to the number of 
dynamically assignable pages in the system. If the 
user's projected working set will not push the system 
load over the maximum, he is placed in the queue and 
added to the dispatchable list. 
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r- 

Status 

_Change_ 

From 1 To 

1 

| Reason for Status Change 

n 


1 

1 2 

|PAGEWAIT, SIO—WAIT, or enabled wait for 




i 

| any busy channel 



1 

1 4 

|Enabled wait for interactive terminal 




i 

| read or write 



1 

1 5 

1 Exceeds in—queue time slice 



1 

1 7 

|Same as 1 to 5 except that queue2 is 




i 

| full 



1 

1 8 

jWait without active I/O, disabled wait. 




i 

| or hit ATTN 



2 

| 1 

|Wait condition complete 



2 

1 5,7 

|Wait completes, but in—queue time slice 




1 

| exceeded 



3 

| 1 

|Another user drops from queuel and now 




1 

| there is room 



4 

| 1 

| Terminal I/O completes while user is 




1 

| waiting 



4 

1 3 

| Terminal I/O completes, but queuel is 




i 

| full 



5 

i i 

|Terminal I/O completes while user is 




i 

| active in queue2 



5 

1 4 

|User puts up terminal read or write and 




1 

| enters wait 



5 

1 6 

|PAGEWAIT, SIO—WAIT, or enabled wait for 




1 

| busy channel 



5 

1 7 

| Dropped from queue2 due to in—queue 




1 

| time-slice end 



5 

1 8 

|Wait without active I/O, disabled wait. 




1 

| or hit ATTN 



6 

1 5 

jWait condition completes 



7 

| 5 

|Room is found in queue2 



8 

1 5,7 

| Asynchronous I/O or External Interrupt, 


L_ 


1 

| or BEGIN 

-j 


Figure 6. User Status Changes 


Key: 

A = Actual working set at queue drop time 


LA = Last actual working set 
LP = Last projected working set 
P = Current projected working set 

The actual working set. A, is determined at queue drop 
time by the following formula: 


A = 


^ ^ PR j ^ + Steals 


i=1 


or 


Pages referenced 


whichever is greater 


where: 
N 

PR 

i 

Steals 


Number of page reads while in queue. 

Number of pages resident at the ith page 
read. 

Number of times page wait was entered due to 
a stolen page. 


The number of referenced pages is determined by 
scanning the user’s page tables for software referenced 
bits. These bits are set by DMKPTRAN when the page is 
taken from the user by the control program. Thus the 
actual working set is generally the average number of 
pages resident at each page read. However, this 
estimate is sensitive to the overall system paging 
activity for the following reasons: 










1* If there is no paging load on the system, there 
will be one page read for each resident page, and 
no steals; the working set will therefore tend to 
be egual to about one half of the resident page 
total. 

2. As paging activity increases, and the working set 
locality shifts, the working set will tend to 
increase toward the average number of resident 
pages. 

3. If paging activity becomes excessive, the number 
of page steals will increase to the extent that 
the working set will expand, to the maximum of the 
total number of pages referenced while in the 
queue. 


In summary, the scheduler selects the subset of 
logged-on users that are allowed to compete for the 
resources of the CPU, with the constraint that a new 
user is not added to the active subset if his projected 
main storage requirement, added to that of the other 
active users, causes the current capacity of the system 
to be exceeded. Selection within scheduling priority 
simply means that a executable user of high priority is 
always added to the active subset (to a queue) before a 
executable user of lower priority. If the paging bias 
mechanism is activated by setting the Paging Bias 
Factor to a non-zero value, scheduler selection will be 
in favor of smaller users; otherwise, selection is 


round robin within priority. Once the active subset 
(the set of in-queue users) has been selected, the 
dispatcher allocates resources of the CPU among them. 

The list of executable users in a queue is sorted by 
dispatching (as opposed to scheduling) priority. The 
dispatching priority is a running average of a given 
user's CPU time/wait-time ratio. Thus, users who are 
most likely to go into wait state, based on past 
performance, are dispatched ahead of those whose 
demands on the CPU are more extensive. This simple 
ratio priority is normally altered if a user is 
identified as compute bound by means of the fact that 
he has executed for at least 50 ms. without entering 
the wait state. In this case, he is placed at the 
bottom of the dispatchable list. On the other hand, 
users identified as interactive by virtue of the 
frequency their requests for terminal I/O are placed at 
the top of the dispatchable list. 


FAVORED EXECUTION OPTIONS 


When the resources of the CPU (and real storage) are 
being allocated, the dispatching and scheduling 
functions are implemented in such a manner that options 
exist that allow an installation to designate certain 
users (virtual machines) that are to receive 
preferential treatment. 
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Diag. 2B. Dispatcher 
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Diag. 3B 


Scheduler 


INPUT 


VMBLOK 



WAITQ2 





[From } 

l dmkdspchJ 


Check QUEUE Status 


PROCESS 


DMKSCHDL - Scheduler 


Do real timer maintenance. If a virtual machine is: 

• Runable (not waiting) 

• Not in queue and not runable | 

• Was runable, drop from RUN LIST. 

• Was in queue, not in a long wait (console function 
mode, idle, log on/off) or an assured user j 

Otherwise, drop from queue, determine new dispatching 
priority, chain CORTABLE entries of user's active pages 
for later flushing, and determine new projection set. 

* Determine user eligibility for QUEUE2 and if it will fit 
in pageable storage. If so, add to QUEUE2; if not and 
QUEUE2 is empty, add to queue. Else if in QUEUE, 
put FLUSH chain on USERLIST; otherwise place in 
FLUSH list scheduled 

For users not scheduled for QUEUE1, drop from QUEUE 
and run list, if entered. Set QUEUE1 dispatch priority and 
VMQ1 flag. Add to WAITQ1 ■ ■ ■» Q 

Runable user/not in a queue — 

Not runable/in a queue —♦ 

Both runable and in a queue and end of time slice, set 
VMQLEVEL and at end of RUN list. 

Neither runable nor in a queue and at queue drop time, 
drop from queue RUN list. 

If assured execution, put in QUEUE2 and RUN list; if not, 
add to WAITQ1 . . . . . . 


OUTPUT 


VMBLOK 



/dmkdspchN 

\ Diag.2B J 
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The favored execution options allow an installation to 
modify the algorithms described above and force the 
system to devote more of its resources to a given user 
than would ordinarily be the case. The options 
provided are: 

1. The basic favored execution option. 

2. The favored execution percentage. 

The basic favored execution option means that the user 
so designated is never to be dropped from the active 
(in queue) subset by the scheduler* When the user is 
executable, he is to be placed in the dispatchable list 
at his normal priority position. However, any active 
user represents either an explicit or implicit 
commitment of main storage. An explicit storage 
commitment can be specified by either the Virtual=Real 
option or the reserved page option. An implicit 
commitment exists if neither of these options are 
specified, and the scheduler recomputes the user*s 
projected work-set at what it would normally have been 
at queue-drop time. Multiple users can have the basic 
favored execution option set. However, if their 
combined main storage requirements exceed the sytem's 
capacity, performance can suffer due to thrashing. 

The basic favored execution option removes the primary 
source of elapsed time stretch-out in a loaded 
time-sharing environment. However, if the favored task 
is highly compute bound and must compete for the CPU 
with many other tasks of the same type, an installation 
can define the CPU allocation to be made. In this 
case, the favored execution percentage option can be 
selected for one virtual machine. This option 
specifies that the selected user, in addition to 
remaining in queue, receives a given minimum percentage 
of the total CPU time, if he can use it. The 
percentage is assured in the following manner: 

J 1 . The in-queue time slice is multiplied by the 
requested percentage and added to the user's 
current total CPU time usage. 

2m The favored user, when he is executable, is then 
always placed at the top of the dispatchable list 
until he has obtained his guarantee. 


3. If the user obtains his guarantee before the 

interval has elapsed, he is placed in the 

dispatchable list according to his caluculated 
dispatching priority. 

4. In any case, at the end of the in-queue time slice 
the percentage is recomputed and the process 
repeated. 

These options can impact the response time of 
interactive users and only one favored percentage user 
is allowed at any given time. 


DISPATCHING/SCHEDULING SUPPORT ROUTINES 


Most of the routines in the CP nucleus are reentrant 
and multiple control program or user tasks can make use 
of one routine at the same time. However, there are 
certain areas where requests for a resource must be 
serialized (as in paging) or delayed while previous 
requests are serviced (as in requests to schedule I/O). 


The CP Reques t St ack 


The routine handling the request obtains a CPEXBLOK 
from free storage and stores the caller's registers in 
it; when the requested resource is free, the CPEXBLOK 
is stacked for the dispatcher via a call to the Request 
Stack Manager (DMKSTKCP). The dispatcher unstacks the 
block and exits to the requesting routine the next time 
it is entered. I/O requests are stacked in the same 
manner, except that the stacking vehicle is the IOBLOK, 
and return is passed to the address specified in the 
interrupt return address (IOBIRA). In either case, it 
should be noted that the dispatcher always unstacks and 
gives control to any stacked IOBLOKs and CPEXBLOKs 
prior to dispatching a user. This guarantees that 
control program information needed by a user (such as 
page availability) is always as up-to-date as possible. 



CP INTERNAL TRACE TABLE 


CP provides an internal trace table where events that 
occur in the real machine may be recorded. The size of 
the trace table depends on the amount of real storage 
available at IPL time. For each 256K bytes (or part 
thereof) of real storage available at IPL time, one 
page (4096 bytes) is allocated to the CP trace table. 
The storage thus allocated is contiguous and each entry 
is 16 bytes long. The first byte of each trace table 
entry, the identification code, identifies the event 
being recorded. Events that are traced are: 

• External interrupts 

• SVC interrupts 

• Program interrupts 

• I/O interrupts 

• Free storage requests 

• Release of free storage 

• Entry into dispatch 

• Queue drop 

• Run user requests 

• Start I/O 

• Unstack I/O interrupts 

• Storing a virtual CSW 

• Test I/O 

• Halt device 


The main initialization routine, DMKCPI, allocates 
storage to the CP trace table and activates internal 
tracing. If you do not wish to record events in the 
trace table, the class A or E command MONITOR STOP can 


be issued to suppress recording. The pages allocated 
to the trace table are not released and recording can 
be restarted at any time by issuing the MONITOR START 
command. If the VM/370 system should abnormally 
terminate and automatically restart, the tracing of 
events on the real machine will be active. After a 
VM/370 IPL (manual or automatic), CP internal tracing 
is always active. 

The first event traced is placed in the lowest trace 
table address. Each subsequent event is recorded in the 
next available trace table entry. Once the trace table 
is full, events are recorded at the lowest address 
(overlaying the data previously recorded there)• 
Tracing continues with each new entry replacing an 
entry from a previous cycle. 

The trace table can be used to determine the events 
that preceded a CP system failure. An ABEND dump 
contains the CP internal trace table along with the 
pointers to it. The address of the start of the trace 
table, TRACSTRT, is at location X^C*. The address of 
the byte following the end of the trace table, TRACEND, 
is at location XMO*. The address of the next 
available trace table entry, TRACCURR, is at location 
X•14 1 . The trace table entry for the last event 
completed is obtained by subtracting 16 bytes (XMO*) 
from the address stored in TRACCURR. 

There are fourteen possible types of trace table 
entries, each uniquely identified by the value of the 
first byte. Figure 7 describes the format of each type 
and identifies the CP module that records the event. 
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Type of Event 


Module 


Identification 

Code 

(hexadecimal) 


Format of Trace Table Entry 


External interrupt 


SVC interrupt 


Program interrupt 


DM KPS A 01 


DM KPS A 02 


DMKPRG 


03 


x*o v 
0 

X'0000000000' 

1 

Interrupt 

6 Code 

External Old PSW 

8 15 


X'02' 

0 

GR 15 

1 

Instruction 

4 Length Code 

Interrupt 
g Code 

SVC Old PSW 

8 15 


X'03' 

0 

X'000000* 

1 

Instruction 

4 Length Code 

Interrupt 
g Code 

Program Old PSW 

8 15 


Not used 


04 


Free Storage (FREE) 


Return storage (FRET) 


Enter scheduler 


Unstack I/O interrupt 


Virtual CSW store 


X'05' 

0 

xw. 

1 

Device 

2 Address 

I/O Old PSW + 4 

4 

CSW 

8 15 


X'06 

0 

GR 11 at entry 

1 

GR Oat entry 

4 

GR 1 at exit 

8 

GR 14 

12 15 


X'07' 

0 

GR 11 at entry 

1 

GR 0 at entry 

4 

GR 1 at entry 

8 

GR 14 

12 15 


X'08' 

0 

Contents of 

VMRSTAT, VMDSTAT, 

! and VMOSTAT 

Address of VMBLOK 

4 

Value of CPU Timer 

8 15 





New 

Number of 

Projected 

Number of 

Current 

X'09' 

Address of VMBLOK 

Old Priority 

Resident 

Working 

Referenced 

Page load 

0 

1 

4 

Priority 

6 

8 Pages 

10 Set 

12 Pages 

14 (PSA) 15 


X'OA' 

0 

X'000000' 

1 

RUNUSER value 

4 from PSA 

RUNPSW value from PSA 

8 15 


X’OB' 

0 

Condition 

1 Code 

Device 

Address 

2 

Address of IOBLOK 

4 

CAW 

8 

ForCC = 1, CSW + 4 
otherwise this field is 

12 not used 15 


X'OC' 

0 

X'00' 

1 

Virtual 

Device 

2 Address 

Address of VMBLOK 

4 

Virtual CSW 

8 15 


X'OD' 

0 

Instruction 

Operation 

1 Code 

Virtual 

Device 

2 Address 

Address of VMBLOK 

4 

Virtual CSW 

8 15 


X'OE' 

0 

Condition 

1 Code 

Device 

2 Address 

Address of IOBLOK 

4 

CAW 

8 

For CC = 1, CSW + 4 
otherwise this field is 

12 not used 15 


X'OF' 

0 

Condition 

1 Code 

Device 

2 Address 

Address of IOBLOK 

4 

CAW 

8 

For CC = 1, CSW + 4 
otherwise this field is 

12 not used 15 


Figure 7, CP Trace Table Entries 
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SP OOLING 


The spooling support in the VM/370 control program 
performs three functions. 

First, to simulate the operation of the virtual unit 
record devices that are attached to each user's virtual 
machine configuration. The simulation is done in such 
a way that it appears to the program in the virtual 
machine that it is controlling a real unit record 
device. This support involves the interception and 
interpretation of user SIOs, the movement of data to 
and from the user's virtual storage space, and the 
reflection of the necessary interrupt codes and ending 
conditions in PSW's, CSW's and sense bytes. This 
support is provided by the Virtual Spooling Executive. 

Second, to operate the real unit record equipment 
attached the system that is used to transcribe user 
output spool files from input from the real card 
readers. This function is provided by the Real 
Spooling Executive. 

Third, to provide an interface among the users, the 
system operator, and the spooling system so that the 
location, format, priority and utilization of the 
systems spooling data and resources can be controlled. 


SPOOL DATA FORMAT 


Spool Buffer F ormat 


The buffers used for collecting and writing spool data 
are all one page (4096 bytes) in length, and contain 
both the data to be transcribed and all CCWs necessary 
for operating the unit record devices that perform the 
transcription. The data is provided in the exact 
format required with no compression except that 
trailing blanks are suppressed. The first two 
doublewords of each buffer contain linkage information 
described below, followed by the data and CCWs. 

Each spool logical record (card or print line) is 
stored as one data moving CCW (READ or WRITE), a TIC to 


the following CCW, and the full data record. Space is 
left at the end of each buffer so that a SENSE command 
can be inserted in order to force concurrent channel 
end and device end. For card punch channel programs 
there is an additional back chain field that points to 
the card previously punched so that error recovery for 
punch equipment checks can back up one card. The only 
exception to the format of Read/Write-TIC-Data is in 
buffers of files directed to the printer. In this 
case, immediate operation code CCWs (skips and spaces) 
are followed immediately by the next CCW. 


S pool File Format 


In addition to the data and CCWs contained in each 
SPOOL buffer, the first two doublewords contain forward 
and backward links to the next and previous buffers in 
the file. This two-way linkage allows the file to be 
backspaced/restarted from any point at any time. Also, 
it means that if I/O errors are encountered while 
reading one buffer, the file is put in system hold 
status. If purged, all buffers except those in error 
are released. The two-way chain allows this control of 
the file while preventing fragmentation by allowing 
pages to be assigned and released individually 
regardless of their ownership. 

Each SPOOL file in the system is controlled by a Spool 
File Control Block (SFBLOK) that is resident in 
storage. While the file is open, these blocks are 
chained from the devices (either real or virtual) that 
are processing the file, and from device type file 
anchors after the file is closed. There is one file 
chain each for printer, reader, and punch files. Each 
SFBLOK contains information about the file that 
describes its owner and originator (these can be 
different for transfered files), the file name and 
type, and the class and number of copies for output 
files. All of these attributes can be examined and most 
can be changed by the file's owner or the system 
operator. The SFBLOK also contains information such 
as the starting and ending buffer addresses for the 
file, the record size, certain file status flags, etc. 
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SPOOL BUFFER MANAGEMENT 


Real/Virtual Storage Management 


Buffers used for the temporary storage of spool data on 
its way between DASD secondary storage and the user's 
virtual machine are allocated from a pool of virtual 
storage space that belongs to CP. This pool consists 
of the second 256K of virtual storage associated with 
the VMBLOK that controls CP's paging activities. This 
pool can be enlarged as a system generation option. 
Virtual storage buffers are allocated in one page 
increments by DMKPGT at the time the spool file is 
opened for either input or output. If no virtual 
storage space is available, the user is placed in a 
wait state until a buffer is freed by another user 
closing a file. This places limit on the number of 
concurrent spooling operations permitted by the system 
because spooling operates as a high priority task. 

Real main storage is not allocated for a spooling 
buffer until a virtual machine actually issues a SIO 
that attempts to transfer data between the buffer and 
the user's virtual storage space. At this time, a page 
of real main storage is allocated to the buffer via the 
main storage paging manager. The buffer is locked in 
main storage (that is, is unavailable to be paged out) 
only for the amount of time necessary to transfer the 
data. After the data transfer is complete, the buffer 
is treated as a normal page of virtual storage, and can 
be selected to be paged out. This ensures that low 
usage spool files do not have buffers in real main 
storage, while the buffers for high usage files should 
remain resident. The Virtual Spooling Executive is 
insensitve to the location of the spool buffer in real 
storage, since all references to the data therein are 
accomplished through the dynamic address translation 
feature of the CPU. 


DASD Space Allocation 


While a spool buffer is active, it resides in in real 
main storage or on the paging device. After it has 
been filled with data from the virtual machine or a 
real input reader, it is written to a page of 
secondary DASD storage. The allocation of pages on the 


spooling disk (s) is managed by DMKPGT which is used to 
handle requests for both pages of virtual storage and 
semipermanent spool file residence. DMKPGT maintains 
separate allocation block chains for virtual storage 
and spooling pages. Each block contains control 
information and a bit map used to allocate pages on a 
single cylinder. If none of the cylinders allocated 
have any available pages, DMKPGT enters its cylinder 
allocation routine. 

DMKPGT attempts to even out the spooling/paging I/O 
load by allocating cylinders in round robin fashion 
across channels and devices. In order to minimize seek 
times on a given device, an attempt is made to allocate 
cylinders as close to the relative center of the 
spooling/paging area as is possible. 


P agi ng Device Su pp ort; All actual input/output for the 
page buffers on any device is controlled by the Paging 
I/O Executive DMKPAGIO and is discussed in that section 
in this publication. 


VIRTUAL SPOOLING MANAGER (DMKVSP) 


The two functions of the virtual spooling manager are 
to simulate the operation of all spooled unit-record 
devices attached to the user's virtual machine, and to 
read and write the spool files associated with those 
devices. The following virtual devices are supported 
for spooling, with the exceptions noted: 

• The IBM 2540 Card Reader/Punch, except for punch 
feed read and column binary 

• The IBM 1403 Printer Models 2 and N1 (132 positions) 

• The IBM 3211 Printer (150 print positions) 

• The IBM 3505 Card Reader (except for mark senses 
reading) 

• The IBM 3525 Punch (except for the card read, print, 
and data protect features). 

The following consoles and terminals are also supported 
for spooling when entered into the directory as the 


virtual system console: 

• IBM 1052 Printer-Keyboard, Model 7 (via the 2150 
Console) 

• IBM 3210 Console Printer-Keyboard, Models 1 and 2 

• IBM 3215 Console Printer-Keyboard, Model 1 

It is assumed that all virtual printers have the 
universal character set feature. No checking is done on 
the spooled printer data. However, any UCS buffer 
commands issued by the virtual machine (load UCS 
buffer, block data checks, etc.) are ignored. It is up 
to the user and the installation to ensure that the 
output is directed to the proper real printer via use 
of the output CLASS feature described below. For the 
3211 printer. Forms Control Buffer (FCB) commands are 
accepted and simulated by means of a virtual FCB 
maintained by the executive The use of the virtual FCB 
is the only way to simulate end-of-form conditions 
reflected by the detection of a channel 9 or 12 punch. 
When the spooled file is directed to a real 3211 or 
1403, the operator is responsible for loading the FCB 
or mounting the proper carriage tape. 

If any of the unsupported unit-record features are 
required, they may be used by attaching the real device 
directly to the user's virtual machine. Thus, a 3505 
reader could be used for the most part as a spooling 
input reader, but attached directly to a batch virtual 
machine when it is necessary to read mark sense cards. 


Ou tput File Processi ng 


DMKVSP receives control from the Virtual I/O Executive 
DMKVIO when the user issues a SIO to a spooled unit 
record device. DMKVIO does not pass control until it 
has been determined that the device is available (that 
is, non-busy and with no interrupts pending). DMKVSP 
first determines if the device is currently processing 
a file. If it is, processing continues. If this is 
the first command issued by the given device, a new 
output file must be opened. An open subroutine is 
called to build the control blocks necessary to manage 
the file and to obtain virtual storage and DASD buffer 
space. Control is then returned to DMKVSP. 

DMSVSP then analyzes and interprets the channel program 


associated with the user's SIO. Each CCW is tested for 
validity of command, address, flags, alignment, 
protection, etc., and if the CCW is valid, the user's 
data is moved from his own virtual storage space to the 
buffer in the spooling virtual storage. When this 
buffer is full, it is written to a page of DASD 
secondary storage and a new buffer is obtained. The 
interpretation of the usei's channel program continues 
until there are no more CCWs or until an error 
condition is detected which prohibits further 
processing. In either case, the device is marked as 
having the proper interrupts pending, a CSW is 
contructed, and DMKVSP exits to the main dispatcher. In 
contrast to nonspooled I/O, the user has remained in a 
pseudo-wait (IOWAIT) for the time it took to interpret 
the entire channel program. 

The output file can be logically closed by the user 
either by issuing an invalid CCW command code, or via 
the CP console function CLOSE. In either case, the 
device is cleared of pending interrupts, the file 
chains are completed, and the file is either queued for 
output on a real device of the proper type (printer or 
punch), or, if XFER is in effect, is queued for input 
to another user. 


Input F ile Processing 


Input file processing is similar to output file 
processing, except for the open and close functions, 
and the analysis of CCW commands and the direction of 
data movement. Many common routines are utilized to 
locate and verify CCWs, obtain buffer space, and to 
move the spooling data. 

The difference in the open function is that instead of 
creating a new file, it is necessary to locate a reader 
file that already exists in the system. To do this, the 
open subroutine scans the SFBLOKs chained from the 
anchor READERS in order to find a file with an owner 
userid that matches that of the caller. If a file is 
not found, a unit check/intervention required condition 
is reflected to the user; otherwise, its SFBLOK is 
chained to the control block for the reader and the 
channel program is interpreted in the same manner as 
for an output file. 
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Diag. 4B1* Virtual Spooling Manager 


SIO from 
virtual 
machine 


From DMKPRG, DMKPRV, and DMKVIO 



^ _ PROCESS _ 

DMKVSPEX - Virtual Spooling Manager 

Is spool file open (VDEVSPL^ 0) ? 
i Yes, No 

Call DMKFREE to create VSPLCTL and WORK BUFFER. 

Open file. 

► For Printer , Punch or Console (see Note) 

Get virtual CCW, validity its opcode, and set initial CSW status. 

If data transfer, move CCW and Data ^ from users area to 
WORK BUFFER 

Move CCW and Data to SPOOL BUFFER. If errors, terminate 
channel program, post error status in VDEVCSW, and 
Otherwise, process all CCWs, post interrupt pending in VDEVCSW 
and return to virtual machine 

► For Reader: 

Move CCW and Data Q from SPOOL BUFFER to WORK BUFFER 
Simulate a read: Move DataQfrom WORK BUFFER to users 
area and post channel end in VDEVCSW. 

If user is chaining, repeat read operation; otherwise post device end 

in vdevcsw and 


OUTPUT 


Real Storage 


VSPLCTL Free 
-' Storage 


WORK BUFFER 


User's virtual 
machine page that 
contains data area 




NOTE: Virtual console spooling is the same as printer spooling except that: 

• A skip to channel one CCW is inserted every 60 lines of output 

• The operator's virtual console spool buffer is written for every 16 lines of output 

• The virtual spool buffer is written to the allocated spool device when the first 
CCW is placed in the virtual buffer. The buffer is kept in a pseudo closed state 
so that checkpoint saves the buffer in the event of a system failure. 


DMKDSPCH 

Diag.2B 


X ./ 

















After the input file is exahusted, a unit exception is 
reflected to the user machine, unless the user has 
requested either continuous spooling or that an EOF not 
be reflected. With continuous spooling, the unit 
exception is not reflected until the last file for that 
user is processed. If NOEOF is specified, the 
simulation terminates with a unit check/intervention 
required condition (similar to what happens if the EOF 
button on a real reader is not pushed) . 

In either case, the input file is then deleted from the 
system, unless the user has specifically requested that 
his input files be saved. If the file is saved, it can 
be re-read any number of times. 


Virtual Console Spooling 


Support of the virtual console input and output is 
provided as an option of the VM/370 spooling 
capabilities. This support fulfills the following 
requirements: 

• Provides hardcopy support for CMS Batch virtual 
machines. 

• Allows DISCONNECTED virtual machines to spool 
virtual console output to disk instead of losing the 
output. 

* 

• Improves the performance of virtual machines that 
currently produce a large amount of console output. 


Whenever a SIO IS ISSUED TO A VIRTUAL MACHINE CONSOLEl 
THE Virtual Console Manager (DMKVCN) determines if the 
spooling option is active. If it is, control is passed 
to the Virtual Spooling Manager at DMKVSPBP to insert 
the data into a spool file buffer. While console 
spooling utilizes, basically, the same code as printer 
spooling, the following exceptions are made: 


• The virtual space buffer is written out to the 
allocated spool device when the first CCW is placed 
in that virtual buffer. The linkage area of the 
virtual spool buffer takes the form of a CLOSE file 
to allow checkpoint (DMKCKP) to recover the active 
spool file in the event of a shutdown due to system 
failure. The data in the virtual buffer, not yet 
written out to the spool device will not be 
recovered. 

To maintain a pseudo closed file status for console 
spool files, DMKSPL now assigns spool 
identifications to all output spool files where they 
are first queued. 

A virtual system reset, device reset, or IPL w ill 
not close the virtual console spool file. The 
LOGOFF, FORCE, or DETACH of virtual console commands 
will close the virtual console spool file. The 
SHUTDOWN command will close the operators console 
spool file. If the SHUTDOWN command is issued by a 
Class A user other than the operator, the console 
spool file for both the user and operator will be 
closed. 


REAL SPOOLING MANAGER (DMKRSP) 


The real spooling manager operates the real unit record 
devices that are attached to the system and that are 
used to transcribe input data into reader spool files 
and user output spool files onto the real printers and 
punches. The executive optimizes the use of main 
storage and the CPU rather than running the system unit 
record devices at their rated speeds. DASD input files 
are not double buffered and under periods of peak load, 
input and output devices tend to run in bursts. 
However, command chaining is used for all unit record 
channel programs so that the devices are running at 
their maximum speed with a minimum of interruptions. 


• A skip to channel one CCW is inserted every 60 lines 
of output. 

• The operator's virtual console spool buffer is 
written out every 16 lines of output. 
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Diag. 4B2. Real Spooling Manager 


From DMKIOS > 
after spooling 
device interrupt j 


_ INPUT 

For Printer/Punch: 



| |RSPLCTL 1 



SFBLOK 

Note: 

SFBUSER 

There is a 

SFBCLA§ 

set of these 

SFBCOPY 

blocks per 

output 

device 


For Reader: 
IOBLOK 


^ PROCESS 

DMKRSPEX - Real Spooling Manager 

For Printer/Punch: 

if a file is active on this real device go to 

VP Otherwise, build the control blocks for the available 

device and locate the SFBLOK on the file chain that 
matches the real device, 
found ■■■■ 

Otherwise, unchain SFBLOK and chain to RSPLCTL 
and inform operator of file and device status. 
Print/Punch separator 

© Read file buffer. If file is being restarted (back-chain 
field =£0) skip to channel 1 

||| If not EOF, reconstruct CCWs in data page, create 

IOBLOK and chain CCWs to it. Call DMKIOSQR to 
start I/O and 

Otherwise, to make additional copies go to Q 
or release the DASD space and go to 

For Reader: 

Locate RDEVBLOK and determine the result of last 
interrupt. If Device End (alone), open file via 
DMKSPLVR, build CONBUFF and CCWs, call 
DMKIOSRR to read cards into SPOOL BUFFER and I 
Otherwise, determine if last interrupt was Channel End or 
Control Unit End. If neither ■■■■■■■■■■■ 
When Control Unit End, call DMKRPAPT to write 
SPOOL BUFFER to DASD and 
When Channel End, call DMKPGTSG to get next 
DASD space, call DMKRPAPT to write previous 
SPOOL BUFFER to DASD and 


J)iag. 


IBM VM/370: Control Program Logic 84.2 









Output File Processing 


Both the input and output functions of DMKRSP are 
interrupt driven. Thus, DMKRSP does not process unless 
an internally or externally generated not-ready to 
ready device end interrupt occurs. External interrupts 
are generated by the hardware in the normal manner, 
while internal, "psuedo interrupts,” are generated by 
the software when an output file has been gueued on the 
real printers or punches file chain, or when the 
operator issues a START command to a drained device. 


Upon receipt of the initial device end for a printer or 
punch, DMKRSP searches the appropriate file chain for 
the SFBLOK of a file whose class matches that of the 
device that was made ready. When the SFBLOK is located 
(provided the file is not in a HOLD status), it is 
unchained from the output queue and chained to the real 
device block that services the file. A page of real 
main storage is then obtained for use as a buffer, and 
the output separator routine (DMKSEP) is called to 
print output identifier pages. When DMKSEP returns 
control to DMKRSP, the first buffer of the file is 
paged into real main storage, and the CCWs in the 
channel program that it contains are adjusted so that 
their data addresses correspond to the real addresses 
at which the data resides. The real SIO supervisor 
(DMKIOSQR) is then called to start the channel program, 
and DMKRSP exits to the dispatcher (DMKDSPCH) to await 
the interrupt. 

When the channel end/device end interrupt for the 
completed buffer is unstacked to DMKRSP, the forward 
chain file link field is used to locate the. next 
buffer. This buffer is paged-in, and the process is 
repeated until the final buffer is processed. At this 
point, the number of copies requested for the file is 
decremented. If the number of copies is 0, processing 
is terminated and the file is deleted from the system; 
otherwise, the process is repeated as many times as is 
necessary. 

When file processing is complete, a scan of the 
appropriate output queue is again made, and if a file 
is found it is processed. If the queue is empty, or if 
a file with a matching class is not found, an exit is 
taken to DMKDSPCH to wait for another ready interrupt. 


Output file processing can be modified by either the 
system operator via the spooling support command or as 
a result of system errors. The operator commands allow 
a given file to be backspaced or restarted, and the 
files of individual users or the whole system to be 
held and released for output in a very flexible manner. 
I/O errors also affect the spooling system, and a 
description of how they are processed is in the section 
”Error Recov ery.” 


Input F ile Processing 


Reader file processing is initiated by i:he receipt of 
a device end interrupt from a spooling card reader. No 
explicit operator command is required to start the 
processing of an input file. When the device end is 
unstacked to DMKRSP, an open subroutine is called to 
build the necessary control blocks and to obtain the 
virtual, real, and DASD buffer space required for the 
file. A channel program to read 41 cards is built in 
the buffer, and DMKIOSQR is called to start the reader. 

When the interrupt for the first buffer is unstacked, 
the first card is checked for its validity as a userid 
card. The minimum information that this card must 
contain is the userid of the owner of the input file. 
It may appear anywhere on the card, with the 
restriction that it must be the first information 
punched. Optional information on the userid card can 
include a file name and type and/or the class of the 
virtual card reader to which the file is to be 
directed. If the userid is valid, the file processing 
continues; otherwise, the operator receives an error 
message and processing is terminated. 

After each file buffer is read, it is written onto disk 
by the paging I/O routines in the same manner that 
virtual output files are handled. When a unit 
exception signaling physical end of file is received 
from the reader, the file is closed by writing the 
final buffer to disk and completing and queueing the 
SFBLOK to the readers file chain. If the owner of the 
file is currently logged in, he is given a message 
indicating that a file has been read and the 
appropriate card reader is posted with a device end 
interrupt. 
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Accounting Card Processing 


Various routines in CP accumulate, format, and punch 
account cards that contain system usage information for 
certain users. These routines format the information 
into an 80-column card image preceded by a punch CCW 
and call DMKACOAQ to queue the card for real output. 
DMKACOAQ calls DMKACOPU to punch the card on a real 
punch if one is available; otherwise, the card is 
queued in main storage until a punch is free. When a 
punch finishes processing its last file, a test is made 
to see if any accounting cards have been queued. If 
they have, DMKACOPU is called to process them. 

In addition to the cards generated by CP to account for 
a virtual machine 1 s use of system resources, the user 
may request cards to be punched in order to account for 
the use of virtual machine resources by jobs running 
under his userid. In order to do so, the user must 
have specified the account option (ACCT) when initially 
entered into the directory. 

In order to punch an accounting card, the user must 
issue a X , 004C I diagnose instruction with a pointer to 
a parameter list containing the "charge to” 
information. If the pointer is zero, the accounting 
card will be punched and will contain the user's own 
identification taken from his VMBLOK. 

When the user accounting option is being utilized, the 
user must keep in mind that each additional accounting 
record requested is occupying real storage space. 
Degradation of system performance will occur if 
available storage becomes filled with accounting data. 


SPOOLING COMMAND SYSTEM 


The spooling command system provides an interface 
between the user, the system operator, and the spooling 
system itself. There are three types of spooling 
commands. 

• Those that affect virtual devices 


• Those that affect real devices 

• Those that affect SPOOL files that are queued within 
the system 

The commands that affect virtual devices are generally 
available to all system users, and a user can only 
affect the status of devices that are attached to his 
own virtual machine. Commands that affect the status 
of the real system's spooling devices are restricted to 
use by the system operator. Commands that affect 
closed spool files that are awaiting processing are 
generally available to all users, with some additional 
capabilities assigned to the system operator. For 
example, a user may alter the characteristics only of 
those files that have an owner's userid that matches 
his own, whereas the system operator may change any 
SPOOL file in the system. 


File States and Attri butes 


Each spool file in the system has a number of 

attributes that are assigned to it, either explicitly 
or by default, at the time that it is created. These 
attributes and their values are as follows: 

• Filename and type can be 24 character fields. 

Either or both can be replaced by a user-supplied 
value. 

• Spoolid number is a system-assigned number between 

1 and 9999. It is automatically assigned when the 
file is created (input) or closed (output), and is 
unique within the system. The file's owner, the 

device type, and the id number are specified. 

Usually, the userid defaults to the identification 
of the user issuing the given command. Since the 
identification number rather than the file name and 
type is used as an identifier, duplicate 

user-assigned names do not present an 
identification problem. 

• The number of logical records (cards or print 
lines) in the file is an integer between 1 and 16 
million. For printer files, the record count also 
includes any immediate operation code space or skip 
CCWs. 




J 

D O O 


• The Originating User is the identification of the 
files creator, if the file has been internally 
transfered from the originator's printer or punch 
to the new owner*s card reader. 

• The number of copies requested for an output file 
is a number between 1 and 99. Unless altered by the 
user or operator, it defaults to 1. 

• The device type is used by DIAGNOSE for a file 
transferred to a reader to determine the virtual 
type of output device. 

In addition to those attributes, a file that is queued 
for real output or virtual input always has a class 
associated with it. A class is a single alphameric 
character from A through Z or from 0 to 9. It is used 
to control both the real or virtual device on which the 
file will be printed, punched, or read, and the 
relative priority and sequence of output on the device. 
While each file is assigned a single class, each real 
spooling output device be assigned from one to four 
classes. The device then processes only files that 
have a class attribute that corresponds to one of its 
own, and will process these files in the order that its 
own classes are specified. 

For example, if a printer is assigned the classes A, D, 
2, it processes any printer file with a class of A 
before it searches the printer output queue for a file 
with class D. All class D files are printed before 
class 2 files. 

The output class for a file is assigned at the time 
the file is created and is the class that is associated 
with the virtual device that created it. While each 
real spooling device can have up to four classes, each 
virtual spooling device can have only one. When a user 
logs onto to the system, the class associated with a 
device is the one defined in his directory entry for 
that device. However, he can alter this class at any 
time via the spool command. As files are created and 
closed by a device, they take on the device*s output 
class. 


After they are closed and are awaiting output, their 
class can be changed via a CHANGE command issued either 
by the file’s owner or the system operator. The system 
operator can alter the system generated output 
class (es) of a real output device via the START 
command. 

Output files transferred to a user's virtual reader can 
also be controlled by class. If the receiving user has 
several readers, the input to each can be limited to 
files of a certain class. In addition, the ORDER 
command allows sequencing of input files by class as 
well as spoolid number. 

Output priorities can also be managed by altering the 
hold status of a file. Individual users can alter the 
hold status with the CHANGE command, while the system 
operator can change (hold or free) the files of 
specific individual users. 


Virtual Devic e Spooling Co mmand s 

These commands affect the status of a user's virtual 

spooling devices: 

Command Meaning 

CLOSE Terminates spooling operations on a specified 

device. It clears the device of any pending 
interrupt conditions, and for output files 
completes and queues the file for real 

output. Optional parameters allow the user 
to specify a filename and type, and to 
override for the given file any standard 
class, hold/nohold or copy parameters set 
into the output device by the spool command. 

SPOOL Establishes the file attributes that apply to 

files created on, or read by, the given 
device. It establishes the CLASS that will 
be in effect, whether: files are to be 
automatically held, input files are to be 
saved or purged after reading, and output 
files are to be directed to the real system 
printers and punches or are to be transferred 
to a user's virtual reader. 
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Real Devi ce Spo olin g C om m an ds 


The operator can use these commands to control the 

activity of the real spooling devices: 

Comm an d Mean ing 

BACKSPAC Backspaces an active spooling device for 
either a specified number of pages (printers 
only) or to the beginning of the file 
(printers or punches) . 

DRAIN Stops the operation of a specified output or 

input device after it has finished processing 
the file on which it is currently working. A 
printer must be drained prior to the issuance 
of the LCADEUF command. Unit record devices 
are normally drained prior to system 
shutdown. 

START Restart a device after it has been drained. 

Optional parameters allow the operator to 
specify the spooling output class for the 
output device, and if output separator 
records will be created. 

FLUSH Immediately halt the output on the specified 

device and either flush that copy of the file 
from the system, or put it into the system 
hold status for future processing. 

REPEAT Supplement the number of copies reguested by 
the user for the file when it was created. 
The operator can specify a number from 1 to 
99 that is added to the number specified by 
the user. 

LOADEUF Load the Universal Character Set Buffer of 
the FCB of the specified printer with the 
specified image. If requested, the system 
verifies the loading by printing its contents 
on the affected printer. 

Force the output on the specified printer to 
be single spaced, regardless of the skipping 
or spacing commands specified by the file's 
creator. 


SPACE 


D 


Spool F ile Management Commands: The spooling commands 
are used to alter the attributes and status of closed 
spool files that are queued and awaiting processing. 

When a command applies to an individual file, the 

device type (RDR, PUN, PRT) and the spoolid number must J 

be provided in order to identify the file. It should § 

be noted that in most commands requiring a spoolid, the f 

keyword class followed by a valid spool class or the p 

keyword ALL are acceptable substitutes for the spoolid F 

number. This causes the command to be executed for all 

files of the given class or device type. The userid is 

assumed to be the identificaticn of the user issuing 

the command, except that the system operator must I 

explicitly supply the identification of the user whose 

files he wishes to affect or he must specify the j 

keyword SYSTEM which gives access to all files (valid S 

for CHANGE, PURGE, ORDER, and TRANSFER commands also). 

Command Meaning 

CHANGE Change the filename and type, the number of 
copies, and the class of the specified file. 

Any of the above attributes of a file can be 
determined via the QUERY command, 

HOLD Place, via the system operator, the specified 

file in a hold status. The file will not be 
printed or punched until it is released by 
the system operator. The operator can hold 
any user files by device type. 

FREE Opposite of the HOLD command. Allows a file 

or group of files that were previously held 
to become available for processing. However, 
the user cannot reset a hold set by the 
operator via the HOLD command. 

PURGE Removes unwanted spool files from the system 

before they are printed or punched. 

ORDER Reorder the input files in a virtual card ! 

reader. It can order files by identification 
number, by class, or by any mixture of the 
two. | 

TRANSFER Transfer a virtual input to another user's 
virtual reader without any processing. The 
TRANSFER command causes a changing in the 
owning userid field in the file's SFBLOK. | 


Method of Operation 85 








SPOOLING ERROR RECOVERY 


Unit Record I/O E rrors 


I/O errors on real spooling unit record devices are 
handled by a transient routine that is called by DMKIOS 
after it has sensed the unit check associated with the 
error on a spooling device. If appropriate, a restart 
CAW is calculated and DMKIOS is requested to retry the 
operation, in some cases waiting for a device end that 
signals that the failing device has been made ready 
after manual corrective measures have been taken. If 
after retrying the operation the error is 
unrecoverable, DMKIOS is informed that a fatal error 
has occurred. DMKIOS then unstacks the interrupt, 
flagged as a fatal error, and passes control to real 
spooling executive. The routines that handle unstacked 
interrupts in real spooling executive only see 
operations that have been completed correctly or those 
that are fatal errors. If a fatal error is unstacked, 
the recovery mechanism depends on the operation in 
progress. 

For fatal reader errors, processing of the current file 
is terminated and any portion of the file that has been 
read and stored on disk is purged. The file's owner is 
not informed of the presence of a fractional part of 
the file in the system. 

For fatal printer or punch errors, the SFBLOK for the 
partially completed file is re-queued to the 
appropriate output list and processing can be resumed 
by another available printer or punch, or can be 
deferred until the failing device is repaired. 

In any case, the failing device is marked logically 
offline, and no attempt is made by the system to use it 
until the operator varies it back online via the VARY 
command. 


DASD Errors Du rin g S poolin g 


DASD I/O errors for page writes are transparent to the 
user. A new page for the buffer is assigned, the file 
linkage pointers are adjusted, and the buffer is 
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rewritten. The failing page is not de-allocated and no 
subsequent request for page space granted access to the 
failing page.’ If an unrecoverable error is encountered 
while reading a page, processing depends on the routine 
that is reading the file. If the processing is being 
done for a virtual reader, the user is informed of the 
error and a unit check/intervention required condition 
is reflected to the reader. If the processing is being 
dene for a real printer or punch, the failing buffer is 
put into the system hold status, and processing 
continues with the next file. In either case, the DASD 
page is not de-allocated and it is not available for 
the use of other tasks. 


DASD SjdccI Space Ex ha u ste d 


If the space allocated for paging and spooling on the 
system's DASD volumes is exhausted and more is 
requested by a virtual spooling function, the user 
receives a message and a unit check intervention 
required condition is reflected to the virtual output 
device that is requesting the space, the output file is 
automatically closed and it is available for future 
processing. The user can clear the unit check and 
retry the operation periodically in the hope that space 
is free or completely restart later from the beginning 
of the job. If the task requesting the space is the 
real spooling reader task, the operator receives an 
error message and the partially complete file is 
purged. Any time the spooling space is exhausted, the 
operator is warned by a console message and alarm. 
However, the system attempts to continue normal 
operation. 


CP INITIALIZATION 


System initialization starts when the operator selects 
the DASD device address of the VM/370 control program 
System's Residence Volume (SYSRES) and presses the IPL 
button. The System/370 hardware reads 24 bytes from 
record 1 of cylinder 0 on SYSRES into location 0 of 
main storage. This record consists of an initial PSW 
and a channel program. The channel program is used to 
read the module DMKCKP into location X'800' and give it 
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| Diag. 5B1. CP IPL 
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Diag, 5B3. Save System 
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control, DMKCKF checks location CPID in module DMKPSA. 
If this location contains the value CPCP or WARM, then 
DMKCKP checkpoints the active file chains and saves the 
system log messages and accounting information; 
otherwise, a cold start is performed and the 
checkpointing is not done. 

If location CPID contained the value CPCP, then 
checkpoint loads a wait state PSW at this time. 

If location CPID does not contain the value CPCP, then 
DMKCP loads DMKSAV and passes control to it at entry 
point DMKSAVRS. DMKSAV reloads a page image copy of 
the CP nucleus into real storage starting at page 0. 
When DMKSAV is finished, control is transferred to 
DMKCPI- DMKCPI performs the main initialization 
function. This includes calling DMKWRM to perform the 
warm start function. When DMKCPI has finished it, it 
passes control to DMKDSPCH. DMKDSPCH loads a wait 
state PSW to wait for work. 


FREE STORAGE MANAGEMENT 


DMKFRE is responsible for the management of free 
storage, and is used within the control program for 
obtaining free storage for I/O tasks, CCW strings, 
various I/O buffers, etc. It is used, in fact, for 
practically all such applications except real channel, 
control-unit, and device-blocks, and the CORTABLE. 

Block sizes of 30 doublewords or less, constituting 
about 99 per cent of all calls for free storage, are 
grouped into 10 subpool sizes (3 doublewords each), and 
are handled by LIFO (push-down stack) logic. Blocks of 
greater than 30 doublewords are strung off a chained 
list in the classic manner. 

Subpool blocks are generally obtained, when none are 
available, from the first larger sized block at the end 
of available free storage with the smaller sizes. Large 
blocks, on the other hand, are obtained from the 
high-numbered end of the last larger block. This 
procedure tends to keep the volatile small subpool 
blocks separated from the large blocks, some of which 
stay in storage for much longer periods of time; thus, 
undue fragmenting of available storage is avoided. 


DMKFRE initially starts without any subpool blocks; 
they are obtained from DMKFREE and returned to DMKFRET 
on a demand basis. 

The various cases of calls to DMKFREE for obtaining 
free storage, or to DMKFRET for returning it, for 
subpool sizes and large sizes, are handled as follows: 


Call to DMKFREE for a Subpool Size 


Subpool Available: If a call for a subpool size is made 
and a block of the suitable size is available, the 
block found is detached from the chain, the chain 
patched to the next subpool block of the same size (if 
any), and the given block returned to the caller. 

Subppol Not Available: If there is no suitable block 
when a call to DMKFREE is made for a subpool size, a 
check is made to see if any larger subpool block can 
profitably be split up into the size requested and 
another subpool size. If this is feasible, the larger 
block is detached from its subpool and split. The 
requested block is returned to the caller, and the 
remaining block is attached to its subpool: Otherwise, 
the chained list of free storage is searched for a 
block of equal or larger size. The first block of 
larger or equal storage is used to satisfy the call (an 
egual-size block taking priority), except that blocks 
within the dynamic paging area are avoided if at all 
possible. If no equal or larger block is found, all the 
subpool blocks currently not in use are returned to the 
main free storage chain, and then the free storage 
chain is again searched for a block big enough to 
satisfy the call. If there still is no block big 
enough to satisfy the request, then DMKPTRFR is called 
to obtain another page of storage from the dynamic 
paging area, and the process is repeated to obtain the 
needed block. 


Call to DMKFREE for a Large Block 


If a call to DMKFREE is made for a block larger than 30 
doublewords, then the chained list of free storage is 
searched fcr a block of equal or larger size. If an 
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6B2. Return a Block of Storage 
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equal size block is found it is detached from the chain 
and given to the caller. If at least one larger block 
is found, the desired block size is split off the high 
numbered end of the last larger block found, and given 
to the caller. If no equal or larger block is found, 
DMKFTRFR is called to obtain another page of storage 
from the dynamic paging area, and the above process is 
repeated (as necessary) to obtain the needed block. 


Call to DMKFRET f or a Subpool Size 


If a subpool size block is given back via a call to 
DMKFRET, the block is attached to the appropriate 
subpool chain on a LIFO (push-down stack) basis, and 
return is made to the caller. If, however, the block 
was in a page within the dynamic paging area, the block 
is returned to the regular free storage chain instead. 


Call to DMKFRET for a Large Bl ock 


If a block larger than 30 doublewords is returned via 
DMKFRET, it is merged appropriately into the regular 
free storage chain. Then, unless the block was 
returned by DMKFRETR (see the section, 
•'Initialization*', a check is made to see if the area 
given back (after all merging has been done) is a page 
within the dynamic paging area. If so, it is returned 
to the dynamic paging area via DMKPTRFT for subsequent 
use. 


Initialization 


The number of pages allocated to free storage depends 
upon the number of storage boxes upon which the VM/370 
control program is running, and is initialized by 
DMKCPINT (usually 6 pages per 256K). DMKFRETR is 
called by DMKCPINT to merge available blocks of storage 
into the regular free storage chain regardless of their 
size. 


CONSOLE FUNCTIONS 


DMKCFM analyzes VM/370 control program commands and 
pass control to the appropriate routine to handle the 
command. DMKCFM can be entered via the attention key at 
the user's terminal or directly from a virtual machine. 

When a console interrupt occurs via the attention key 
at the user's terminal, DMKIOSIN calls DMKCNSIN to 
handle the unsolicited interrupt, then DMKCNSIN calls 
DMKCFMBK. 

DMKCFMBK first calls DMKFREE to obtain storage for an 
18 doubleword input buffer. Next, DMKQCNWT is called to 
send the message CP to the terminal to inform the user 
that he has entered console function mode. DMKQCNRD is 
then v called to read the console function request. 

DMKCFMEN is the entry point for commands coming 
directly from the virtual machine. DMKPRGIN enters here 
when a DIAGNOSE instruction with a code of 8 is 
detected. The address of an 18 doubleword input buffer 
is passed in register 1; therefore, a read to the 
terminal is not needed. 

After either the read to the terminal or entry from the 
virtual machine, DMKSCNFD is called to find the command 
type. On return from DMKSCNFD, register 1 points to the 
start of the command and register 0 contains the length 
of the command. The entered command is matched against 
a list of valid commands. The list contains a 16-byte 
entry for each command. Each entry contains 8 bytes for 
the name, 2 bytes for class mask, 2 bytes for an 
abbreviation count, and 4 bytes containing the routine 
address. If the entered command matches an entry in the 
list, it is then checked to ensure that a valid 
abbreviation for the command has been used. If this 
test is not successful, DMKSCN continues to scan the 
list for a valid command. Should the abbreviation be 
valid, a check is then made to determine if this user 
is of the proper class to use the command entered. If 
this is successful, DMKCFM then calls the appropriate 
routine to process the command. 

After the command has been processed, control is 
returned to DMKCFM. There are three possible returns. 
On a normal return, the input buffer is scanned to see 
if there are any more commands. If none exist, DMKCFM 
returns to the virtual machine (if entered via 
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DIAGNOSE) or calls DMKQCNRD to read the next command 
from the terminal. On a return plus 4, the VMCFWAIT bit 
is turned off to allow the virtual machine to run, 
DMKFRET is called to return the input buffer Storage- 
Then control returns to either the virtual machine, if 
entered via a diagnose or to DMKDSPCH, if entered via 
the attention key. On a return plus 8, the operation is 
the same as plus 4 except the VMCFWAIT bit is left on. 


SYSTEM/USER INTERFACE 


Attaching a User to the System 

After CP has been initialized, the communication lines 
are enabled by DMKCPVEN. Then an individual user is 
attached to the system using the following steps: 

1. Te rmina l I denti fic atio n 

When the Control Program receives the initial interrupt 
from a terminal on an enabled line (normally initiated 
by a user dialing in on a data-set), the DMKCNSID 
routine is entered. DMKCNSID determines the terminal 
device type, stores this information in the terminal 
device block, writes the online message and puts the 
terminal line in a state to receive an attention. 

2. A ttention from Use r 

After the online message has been typed at the user's 
terminal, and he has pressed the Attention key, 
DMKCNSIN (the console-interrupt routine) calls DMKBLDVM 
to build a skeleton VMBLOK for the user. At this time, 
the USERID is LOGONxxx, where xxx is the terminal real 
device address, and a flag is set to indicate that the 
user has not yet completed the LOGON process. 

Then DMKCNSIN calls DMKCFMBK, which types a single 
blank at the terminal, issues a read to the terminal, 
for the user to enter his first command (normally LOGON 
or DIAL). 


3 • Fir st Command from User 

After the first command has been entered by the user, 
DMKCNSIN further determines the type of terminal. If 
the terminal is a 2741, DMKTRMID is called to identify 
it as either a 274 IP (PTTC/EBCD) or a 2741C 
(Correspondence) terminal. If successful, the correct 
device type and translate tables for input and output 
are set; if not, flags are set to indicate the 
terminal is not yet identified. 

Then control is returned to DMKCFMBK, which determines 
if the first command is valid (for example, LOGON, MSG, 
or DIAL). If the first command is not valid, a restart 
message is given, and the read to the terminal posted 
again for the first command. If the first command was 
LOGON (or its abbreviation), DMKLOGON is called to 
complete the process of attaching the user to the 
system. 

4. LOG ON of User 

Operations performed by DMKLOGON include the following: 

• Ensuring that the maximum number of users allowed on 
the system is not being exceeded. 

• Obtaining the userid from the command line, and 
checking for a possible password and other optional 
parameters. 

• Checking the userid and password (entered separately 
if not on the LOGON command line) against entries in 
CP's directory of users. 

• Ensuring that the user is not logged on at another 
terminal (an error condition), or reconnecting the 
user if he was running, but in the disconnect mode. 

• Obtaining pertinent information on the user's 
virtual machine from the User Machine Block portion 
of the directory. 

• Storing the correct userid (replacing the LOGONxxx 
userid used up until now), virtual storage size, and 
other vital information in the user's VMBLOK. 


Allocating and initializing segment, page, and swap 
tables (necessary for handling of the user's virtual 
storage). 






• Allocating an extended VMBLOK (ECBLOK) if the user's 
virtual machine has the capability of running in the 
extended control mode* 

• Allocating and initializing virtual device blocks, 
control unit blocks, and channel blocks, using 
information from the User Device Blocks portion of 
the directory. 

• Establishing links (as feasible) to all DASD devices 

included in the user's directory, the accessibility 
of any disk being determined by the user access mode 
in the user's directory, and whether any other 
user (s) are presently linked to the disk, in 

read-mode and/or write-mode. 

• Initializing all other virtual device blocks as 
appropriate, such as reader, punch, printer, and 
terminal. 

• Mapping all virtual devices to real devices. 

• Performing appropriate accounting. 

• Informing the user of the date-time of the most 
recent revision to the system log message (LOGMSG), 
and of the presence of any outstanding spooled files 
in his virtual reader, printer, or punch. 

• Sending a ready message to the user with the 
date-time (and weekday), and a message to the system 
operator indicating the user has logged on. 

| If the user has a device address or a named system in 
his user directory and he has not suppressed its 
initialization via an option on the LOGON command line, 
| then that device or named system is then loaded (via 
IPL) at the conclusion of the LOGON process. Otherwise, 
when the LOGON functions are complete, the user is 
placed in the console function mode with a read on his 
terminal, ready for the entry of his first desired 
command. 

Under the latter condition of no automatic IPL, the 
user can IPL an alternate nucleus by using the STOP 

option in the IPL command. This option will cause the 

normal IPL procedure to halt execution, prior to 

loading the initial PSW, and issue a diagnose code 8 
placing the user in CP console function mode. A 


hexadecimal character entered in location X'08' will 
change the nucleus name. A hexadecimal character 
entered in location X'09' will change the apparent 
storage size. The BEGIN command allows the IPL 
procedure to continue. 


User I /O R econfi guration 


Three commands are available to alter the I/O 
configuration of a user's virtual machine after he has 
logged on to the system. Two of the commands are 
available to the user, while the third is restricted to 
the system operator, since it affects the status of 
real devices attached to the system. The ATTACH and 
DETACH commands are contained in DMKVDB and DEFINE in 
DMKDEF. Both pageable modules are called by the system 
command scanner (DMKCFM) after their format and 
privilege classes have been validated. These commands 
access the same control-block building subroutines in 
the module DMKVDS that are used by the LOGON processor 
DMKLOG• 

Attachi ng a Real Device: The system operator can 
dedicate a real device of any type to a single user by 
issuing the ATTACH command. The device attached is 
available only to the given user, and all I/O requests 
to it are handled via CCW translation. If the device 
is a DASD, cylinder relocation does not occur when seek 
addresses or home addresses are referenced. The I/O 
Supervisor does not queue operations on the device, nor 
automatically restart it nor do ordered seek queueing. 
Nonsharable devices such as tape drives must be 
attached to a user in order to be accessed by a virtual 
machine. A user can also have a dedicated card 
read/punch or printer. However, this is usually not 
necessary because of the unit record spooling 
facilities of CP. Unit record input or output on a 
dedicated (attached) device is not spooled by CP. The 
unit attached may be given a different virtual address 
than its real address; however, the user may not 
already have a virtual device at the attached address. 
A real device cannot be attached (1) if it is currently 
dedicated to another user, (2) if it contains 
mini-disks that are in use by other users, or (3) if it 
is a system owned volume that is in use for spooling or 
paging. 


SY20-0880-1, Page Modified by TNL SN20-2624, August 15, 1973 


Method of Operation 97 



SY20-0880-1, Page Modified by TNL SN20-2624, August 15 


1973 


IBM VM/370: Control Program Logic 98 


Defining a Virtual Device : A system user can DEFINE a 
new virtual device that does not require the dedication 
of a corresponding real device. Devices that can be 
defined are consoles, spooled readers, punches and 
printers, dialable TP lines, virtual channel-to-channel 
adapters, pseudo timers, and temporary disks. With 
DEFINE, the user can change any existing virtual device 
address whether it corresponds to a shared or dedicated 
real device or no real device unit. 

Temporary disks are dynamically obtained cylinders of 
DASD storage space. They are available to the user for 
as long as they are part of his virtual configuration, 
but the data on them is destroyed after the user 
detaches the area. For all other purposes, however, 
they appear to be a standard disk. 

Detaching a Virt ual D evice : A virtual device can be 
removed from a users configuration prior to logout via 
the DETACH command. A user can detach any of his own 
devices, and the system operator can detach a real 
device from a user. In this case, the user is informed 
of the operator's action. A real device can be 
detached only if it is dedicated to a single user or is 
attached to the system and is not in use when the 
DETACH is issued. 


VIRTUAL CONSOLE SIMULATION 


DMKVCN receives control from the virtual machine I/O 
executive, DMKVIO. When control is received, the device 
is available with no interrupts pending. A console 
control block, VCONCTL, that is obtained from storage 
and chained from the virtual device control block, 
VDEVBLOCK, by DMKLOG is accessed for use during the 
interpretation of the virtual console I/O sequence. The 
user's CAW is examined for validity. If it is valid, 
the TRANS macro is issued to fetch the first user CCW. 
This CCW is moved to the VCONCTL block for analysis. 

The CCW is analyzed to determine if it is a read, a 
write, a control, a sense, a TIC, or an invalid 
operation. Based upon the analysis, the appropriate 
processing routine in DMKVCN is invoked. 

Th e Read Simulation Routin e: Obtains a buffer for 
input data from FREE storage. The location of the 


buffer is remembered in the VCONCTL block. The 
DMKQCNRD routine is called to schedule and perform an 
actual read to the corresponding real device 
representing the user's virtual console. If SET 
LINEDIT ON is specified, the buffer data is edited and 
translated to EBCDIC. When the read is completed, the 
data is moved to the specified user address obtained 
from the address portion of the virtual CCW. If 
command chaining is specified, processing returns to 
fetch and analyze the next CCW. If command chaining is 
not specified, the virtual CSW is constructed in the 
VDEVBLOK and an interrupt is flagged as sending in the 
VMBLOK. 

The Write Simula tion Routine: Obtains a buffer for 
construction of the output message from free storage. 
The users data is located from the virtual CCW address 
in the VCONCTL block and moved to the data buffer. The 
DMKQCNWT routine is called to write the data in the 
buffer and provide the necessary length, translation, 
and format functions. Control is received back at the 
DMKVCN module upon completion of the writing. At this 
point, the virtual CCW is re-examined. If command 
chaining is specified, processing continues to fetch 
and analyze the next CCW. If command chaining is not 
specified, the virtual CSW is constructed in the 
VDEVBLOK and an interrupt is flagged as pending in the 
VMBLOK. 

The Control Simulati on Routine: Is used for the NOP 
and ALARM operations. A NOP operation requires no 
data transfer or I/O operation. An ALARM operation has 
no equivalent on low speed teleprocessing equipment; 
thus, a message indicating the alarm operation is 
constructed. DMKQCNWT is called to output the 
constructed message. If the command is chained, 
processing continues (for NOP or ALARM) to fetch the 
next CCW and analyze it. If command chaining is not 
specified and this is not the first CCW, a virtual CSW 
is constructed in the VDEVBLOK and an interrupt is 
flagged as pending in the VMBLOK. If this is the first 
(and only) CCW, then a condition code of 1 is presented 
with channel end and device end in the virtual CSW. 

A Virtual Sens e O perati on: Is similar to a control 
operation, because no actual I/O operation is 
performed. However, there is data transfer. The sense 
data from the VDEVBLOK is moved to the virtual storage 
location specified in the virtual CCW address. If the 
command is chained, processing continues to fetch the 




O o 


next CCW and analyze it. Otherwise, an interrupt is 
flagged as pending in the VMBLOK. 

A Virtual Ti g; Fetches the virtual CCW addressed by 
the TIC address and analysis of the fetched CCW 
continues. If the fetched CCW is itself a TIC, or if 
the TIC is the first CCW, a channel program check 


condition is reflected to the virtual machine as an 
interrupt or as a CSW stored condition respectively. 

Any other operation is considered invalid. Command 
reject status is posted in the virtual sense byte and 
the operation is terminated with unit check status 
presented in the virtual CSW. 
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ag, 7B1. Virtual Console Simulation, Real Terminal 


From 

DMKVIO 


After a SIO to a virtual machine 
operator's console 



DMKVCNEX - Virtual Console Simulation and DMKQCN 

Analyze virtual CCW operation: if TIC analyze next 
CCW (Note. First CCW cannot be TIC.). 

• SENSE - Move SENSE data from VDEVBLOK to user's 

data area. If chaining 

• READ — Get input BUFFER and read from console into 

BUFFER via DMKQCNRD ■■■■■■■■■■■■■■ 
Upon return from DMKDSP, move data from BUFFER 
to user's data area and post channel end in 
VDEVBLOK. If chaining Q 

• WRITE - Get output BUFFER, move data from user's 

data area to buffer and write to the console 
via DMKQCNWT 

Upon return from DMKDSP, post channel end in 
VDEVBLOK. If chaining Q 

• NOP or ALARM — Post channel end and device end in 

VDEVBLOK. If ALARM, print ring message/sound 
alarm via DMKQCNWT !■■■■■■■■■■■■■■■■ 
If chaining or NOP and chaining 

• OTHERS — Post command reject in virtual sense byte 

in VDEVBLOK, terminate operation, and post 
unit check in VDEVCSW. If chaining 


If ATTENTION from virtual machine 


dmkcfmbk 

Diag. 7B3 


ion 
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Diag. 7B2. Console Function Control 


INPUT 


IOBLOK 



CONTASK 


User Terminal States 

SI - 

Idle and 

keyboard locked 

S2- 

Receiving 

output 

S3 - 

Unlocked for 
input but 
user has no 
entered data 

S4 - 

Unlocked for 
input, user 
has entered 
data 


( From 

Idmkios~/ 

3E_ 


After I/O interrupt resulting from 
the ATTENTION key. IOBIRA 
contains entry point DMKCNSIN. 


PROCESS 



DMKCNSIN — Real Terminal Manager (Console Control) 


Analyze the ATTENTION 

• Keyboard locked and user not running 

• Keyboard locked and user is running; call 
DMKCFMAT to reflect ATTENTION, then Q 

• Read or Write; go to , otherwise 


HI Call DMKIOSQR to queue and start ATTENTION 
channel program then 


Delete active CONTASK 
Get next CONTASK 
IF CONTASK indicates NORETurn 
Otherwise, stack CPEXBLOK and 



OUTPUT 


CONTASK 


CPEXBLOK 





Diag. 7B3. Function Call Control, Command Selection 

c 


INPUT 




PROCESS 


OUTPUT 




Return 

entry ^ 

point 


| User Privilege Classes | 

A 

- System Operator 

B 

- Operator 

C 

- System Programmer 

D 

- Spooling Operator 

E 

- System Analysis 

F 

- Service Representative 

G 

- General User 

H 

- Reserved 


DMKCFMBK — CP Console Functions and Command Selection. — 


DMKQCN 


O 


If virtual machine is in CP mode, go to otherwise, put it into CP 
mode and build CONTASK via DMKFREE to write message on 
console via DMKQCNWT. If from system operator: 


Get the return address for a completed read operation, build a 
CONSTASK for a read, and build a CPEXBLOK and attach it to 
CONTASK. Put return address in CPEXBLOK,^ia DMKQCNRD 
to go DMK/OSQR to queue and start I/O, and 


If entered directly from a virtual machine, put it into CP mode/upon 
return from DMKDSP after a read perform command analysis. If 
entered via DIAGNOSE, put user into console function mode and 
perform command analysis. If entered via a break, do command 
analysis upon return after a read. 


If an invalid command or a user entered an invalid command for 
his class, then issue an error message via DMKQCNWT and 
If command and class are valid, call the appropriate command 
processor (see Command-to-Module Cross-reference in the 
section Diagnostic Aids) 

Upon return from command processor, if the user has entered 
another command, go to 

If entered via DIAGNOSE (DMKHVC), ; otherwise, go to ^ 
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| Diag. 7B3.1, Virtual Machine IPL 


From 

DMKCFMBK- 
IPL Command 



DMKCFPIP - IPL Virtual Machine 


If 'Clear' is specified, or previous system 
was a shared segment system, release 
all virtual machine pages via DMKPGGPC 

Check for IPL by name or address. 

* 1 

© f 

iQl Bring IPL simulation routine DMKVMI 
into middle of virtual storage via 
DMKRPAGT 

Bring user's page zero into real storage 
and set it up for IPL 

Inserted into this page are the IPL device ADDFL, 

The console ADDR. and specified CYL.-NO. 

Virutal PSW is set up to point to DMKVMI. 

4% Bring into storage first saved DASD page 

W from SYSVOL 

Page containing PSW, REGS., and keys required 
to start system 

Set up and/or alter storage tables as required 

The SHRTABLE is built and placed on SHRTABLE 
chain if named system not already in use. The 
SWPTABLE is updated with saved keys. 

A Set virtual PSW, GPRS, and FPRS ■■ 



Return to 
DMKCFM 





| Diag. 7E3<.2. Virtual Tracing 


c 


From DMKCFMBK 
TRACE Command 


) 


INPUT 


DMKTRACE - Virtual Tracing 


TRACE XXX 


VMBLOK 


Pick up operands and options and check for validity 
If 'OFF' specified, turn off flags ( 

If 'END' specified, call DMKTRCPB to restore 
any instructions altered by TRACE, turn off flags 
and return TREXT block to free storage f 


Otherwise, 

Issue 'TRACE STARTED' message 
Get trace control block and set VMBLOK 
pointer to it, if a trace control block 
does not exist 
Set trace flags 

Call DMKTRCIT to initialize branch or full instruction 
spec ied. 


COMMENTS 


Entry via SVC 8 © 


OUTPUT 


If this turns off the last flag, then the TREXT block is 
returned to free storage. If branch and instruction tracking 
are both turned off, call DMKTRCPB to restore any 
instructions altered by TRACE. 


VMTRCTL and TREXCTL 1 are identical 


Entry via SVC 8 as follows: 



Entry Point 

From 

External Interrupt 

DMKTRCEX 

DM K DSP 

I/O Interrupt 

DMKTRCIO 

DMKDSP 

Program Interrupt 

DMKTRCPG 

DMKPRG 

Privileged Instructions 

DMKTRCPV 

DMKPRV 

I/O Operations 

DMKTRCSI 

DMKVIOEX 

Virtual and Real CSWs 

DMKTRCSW 

DMKVIOIN 

SVC, branch or full instruction 
trace 

DMKTRCSV 

DM KPS A 

Restore user instructions altered 
by tracing 

DMKTRCPB 

DMKTRA 

Initialize instruction tracing 

DMKTRCIT 

DMKTRA 


4 


( Return to 'N 
DMKCFM J 


Put trace, prefix and type in output line 
Convert binary and addresses to hexadecimal (DMDCVT) 
Get mnemonic for OP code, if applicable (DMKNEM) 
Write trace line to output device 


If ATTN was hit or if halt after trace 
line was specified call DMKCFMBK to 
enter console function mode 


- equals 


TREXCTL1 


TREXCTL2 


TREXTERM 

TREXPRNT 

TREXRUNF 


Otherwise I 


INPUT 


ADSTOP Address 




From DMKCFMBK^ 
ADSTOP Command> 


DMKCFDAD 


If 'OFF' specified, restore instruction and free 
work buffer 


Otherwise, 

Get work buffer 
Set VMBLOK pointer 
Save instruction and it virtual address 
Replace instruction with SVC B3 



OUTPUT 


VMADSTOP 


Virtual Storage 
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DISCONN E CTI NG A USER: A user may permanently or 
temporarily disconnect himself from the system by a 
console command, or he may be forcibly disconnected by 
the operator or the system. In any case, the routines 
that handle the termination process are in the pageable 
module DMKUSO. 

Per ma nent Disconnect: The user may voluntarily exit 
from the system via the LOGOFF (or LOGOUT) command. 
This command terminates all virtual machine operation, 
releases all storage occupied by control blocks and 

user virtual storage pages, and disconnects the 

teleprocessing line connection to the user's terminal. 

If the user specifies the HOLD option with LOGOFF, all 
of the above occurs, except the teleprocessing line 
remains enabled. This option is especially useful for 
dialed connections that will be reused immediately by 
another user. 

The user can be forced off the system by the system 

operator via the FORCE command. This has the same 

effect as a user-initiated logoff, except that the user 
is informed that the operator has logged him off. A 
user may also be logged off the system: 

• If the time for a read of a system password expires 
(28 seconds)• 

• If he makes a connection to the system but does not 
logon within a given period. 

• If he is running disconnected (without an active 

terminal) and his virtual machine attempts a 
terminal read or enters a disabled wait state. | 


The LOGOFF command is processed by the DMKUSOLG and 
DMKUSOFF subroutines. DMKUSOFF is also called directly 
by DMKDSP to force the logoff of a disconnected user as 
previously described. 

Te mporary Disco nnect: A user may temporarily disconnect 
his terminal from his virtual machine while allowing 
the virtual machine to continue to run via the DISCONN 
command. This command flags the virtual machine as 
being disconnected and releases the user's terminal and 
teleprocessing line. If the HOLD option was specified 
in the DISCONN command, CP allows the line to remain 
enabled, and another user can use the terminal to 
LOGON. The disconnected virtual machine continues to 
be dispatched until it either attempts to execute a 
terminal read to the disconnected console or it enters 
a disabled wait state. At this time, the dispatcher 
(DMKDSP) calls the routine DMKUSOFF directly to force 
the machine out of the system. While the machine is 
disconnected from its virtual console (real terminal) 
any terminal output is lost; in addition, CP may apply 
a disconnected penalty to the machines scheduling 
priority, in order to bias the system in favor of 
interactive users. 

A user may also be disconnected by the system operator. 
If the disconnected user logs on to the system while 
his disconnected machine is still running, he is 
reconnected and can continue to interact with the 
system in the usual manner. 

The DISCONN command is processed by the DMKUSO 
subroutine. 
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RECOVERY MANAGEMENT SUPPORT (RMS) 


The Machine Check Handler (MCH) minimizes the lost 
computing time due to machine malfunction. MCH does 
this by attempting to correct the malfunction 
immediately, and by producing machine check records and 
messages to assist the service representatives in 
determining the cause of the problem. 

The Channel Check Handler (CCH) aids the Input/Output 
Supervisor (DMKIOS) in the recovery from channel 
errors. CCH provides the device dependent Error 
Recovery Programs (ERPs) with the information needed to 
retry a channel operation which has failed. 

This support is standard and model independent on the 
external level (from the user’s point of view there are 
no considerations, at system generation time, for model 
dependencies) • 


SYSTEM INITIALIZATION FOR RMS 


DMKIOEFL is called by DMKCPI to initialize the error 
recording at cold start and warm start time. DMKIOEFL 
will give control to DMKIOG to initialize the MCH area. 
A store CPU ID (STIDP) instruction is performed to 
determine if VM/370 is running in a virtual machine 
environment, or running standalone on the real machine. 
If VM/370 is running in a virtual machine the version 
code will be set to a hexadecimal 1 FF # by DMKPRV. If 
the version code returned is hexadecimal *FF, • the RMS 
functions will not be Initialized beyond putting the 
wait bit on in the machine check new PSW (virtual). 
The logic of this is that machine check interrupts and 
channel errors (other than Channel Data Checks) will 
not be reflected to any virtual machine. VM/370 running 
on the real machine will make the determination as to 
whether the virtual machine should be terminated. 

If the version code is not X'FF, 1 DMKIOG determines 
what channels are on line by performing a Store Channel 
ID (STIDC) instruction and saves the channel type for 
each channel on line. The maximum machine check 
extended logout length (MCEL) indicated by the Store 
CPU ID (STIDP) instruction is added to the length of 
the MCH record header, fixed logout length and damage 


assessment data field. DMKIOG will then call DMKFRE to 
obtain the necessary storage to be allocated for the 
MCH record area and the CP executing block (CPEXBLOK). 
DMKIOG saves the pointers for the Machine Check Record 
and the CPEXBLOK in DMKMCH. DMKIOG obtains the storage 
for the I/O extended logout area and initializes the 
logout area and the ECSW to ones. The I/O extended 
logout pointer is saved at location 172 and control 
register 15 is initialized with the address of the 
extended logout area. The length of the CCH record and 
the online channel types are saved in DMKCCH. It 
should be noted that the ability of a CPU to produce an 
extended logout or I/O extended logout and the length 
of the logouts are both model and channel dependent. 
If VM/370 is being initialized on a Model 165 II or 
168, the 2860, 2870, and 2880 standalone channel 
modules are loaded and locked by the paging supervisor 
and the pointers are saved in DMKCCH. If VM/370 is 
being initialized on any other model, the integrated 
channel support is assumed; this support is part of the 
Channel Control Subroutine of DMKCCH. Before returning 
to DMKIOE the MCH/CCH recording cylinder for error 
recording is initialized. DMKIOE passes control back 
to DMKCPI and control register 14 is initialized with 
the proper mask to record machine checks. 


OVERVIEW OF MACHINE CHECK HANDLER 


A machine malfunction can originate from the CPU, real 
storage or control storage. When any of these fails to 
work properly, an attempt to correct the malfunction is 
made by the CPU. 

Whenever the malfunction is corrected, the Machine 
Check Handler (MCH) is notified by a machine check 
interrupt and the CPU logs out fields of information in 
real storage, detailing the cause and nature of the 
error. The model independent data is stored in the 
fixed logout area and the model dependent data is 
stored in the extended logout area. The Machine Check 
Handler uses these fields to analyze the error, format 
an error record, and write the record out on the error 
recording cylinder of SYSRES. 

If the machine fails to recover from the malfunction 
through its own recovery facilities, the Machine Check 
Handler is notified by a machine check interrupt and an 
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Diag. 8B1. Machine Check Handler (MCH) 


INPUT 


Real Storage 


X'E8' 


X'F8' 


X'2C0' 


Machine Check 
Interrupt Code 


Diagnostic 

Logout 

Area 


Control Reg. 15 



c 


Machine 
Check 
Interrupt — (MCI) 



f 


3 


PROCESS 


DMKMCHIN - Machine Check Handler (MCH) 

Initial Analysis Disable soft MCls, if system damage of unre 
coverable error in CP, attempt to inform operator and 

• If timer damage, 

• If an unrecoverable error in virtual machine area, record 
error via DMKIOEMC , reset the virtual machine, mark 
the page unavailable, and 

or put virtual machine in console function mode via 
DMKCFMBK and 


• If the error is recoverable (soft error), record error via 
DMKIOEMC (if SET recording on), then for CP, correct 
the error, and 

For a virtual machine, mark page for refreshing and 
If a threshold is set, determine the threshold setting and 
necessary, disable the recording of subsequent 
soft errors. 


OUTPUT 



I/O Errors 


106 





interruption code, noting that the recovery attempt was 
unsuccessful, is inserted in the fixed logout area. The 
Machine Check Handler then analyzes the data and 
attempts to keep the system as fully operational as 
possible. 

Recovery from machine malfunctions can be divided into 
four categories: functional recovery, system recovery, 
system-supported restart and system repair. These 
levels of error recovery are discussed in their order 
of acceptability, functional recovery being most 
acceptable and system repair being least acceptable: 

FU NCTIONAL REC OVERY : Functional recovery is recovery 
from a machine check without adverse effect on the 
system or the interrupted user. This type of recovery 
can be made by the CPU Retry, the ECC facility, or the 
Machine Check Handler. The CPU Retry and ECC error 
correcting facilities are discussed separately in this 
section since they are significant in the total error 
recovery scheme. Functional recovery by MCH is made by 
correcting Storage Protect Feature (SPF) Keys and 
intermittent errors in real storage. 

SY STEM R ECOVE RY: System recovery is attempted when 
functional recovery is impossible. System recovery is 
the continuation of system operations at the expense of 
the interruped user, who is terminated. System recovery 
can only take place if the user in guestion is not 
critical to continued system operation. An error in a 
system routine which is considered to be critical to 
system operation precludes functional recovery and 
would reguire a system-supported restart. 

SY STEM-S UPPORTED REST ART : When the machine check occurs 
in a critical routine, the primary system operator is 
notified that the system cannot continue to operate. An 
automatic reload of the system occurs. This type of 
recovery is tried when functional and system recovery 
have failed or could not be tried. 

SYSTEM RE P AI R: System repair is recovery that requires 
the services of maintenance personnel and takes place 
at the discretion of the operator. Usually, the 
operator has tried to recover by system-supported 
restart one or more times with no success. An example 
of this type of error is when a hard error occurs so 
frequently that system-supported restart is not 
successful. 


SYSTEM/370 RECOVERY FEATURES 


The operation of the Machine Check Handler depends on 
certain automatic recovery actions taken by the 
hardware and on logout information given to it by the 
hardware. 


CPU Ret ry 


CPU errors are automatically retried by microprogram 
routines. These routines save source data before it is 
altered by the operation. When the error is detected, a 
microprogram returns the CPU to the beginning of the 
operation, or to a point where the operation was 
executing correctly, and the operation is repeated. 
After several unsuccessful retries, the error is 
considered permanent. 


ECC Validity Chec king 


ECC checks the validity of data from real and control 
storage, automatically correcting single-bit errors. It 
also detects multiple-bit errors but does not correct 
them. Data enters and leaves storage through a storage 
adapter unit. This unit checks each double word for 
correct parity in each byte. If a single-bit error is 
detected, it is corrected. The corrected double word is 
then sent back into real or control storage and on to 
the CPU. When a multiple-bit error is detected, a 
machine check interruption occurs, and the error 
location is placed in the fixed logout area. MCH gains 
control and attempts to recover from the error. 
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Con trol Registers 


Two control registers are used by MCH for loading and 
storing control information (see Figure 8)• Control 
register 14 contains mask bits which specify whether 
certain conditions can cause machine check 
interruptions and mask bits which control conditions 
under which an extended logout can occur. Control 
register 15 contains the address of the extended logout 
area* 



Machine Check Handle r S ubr ou tine s 


VM/370 Machine Check Handler (DMKMCH) consists of the 
following functions: 

1* Initial Analysis Subroutine 

2* Main Storage Analysis Subroutine 

3. SPF Analysis Subroutine 

4* Recovery Facility Mode Switching 

5 * Operator Communication Subroutine 

6* Virtual User Termination Subroutine 
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7. Soft Recording Subroutine 

8. Buffer Error Subroutine 
9* Term Subroutine 


INITIAL ANALYSIS SUBROUTINE: The Initial Analysis 

Subroutine of DMKMCH receives control via a machine 
check interruption* To minimize the possibility of 
losing logout information by recursive machine check 
interrupts, the machine check new PSW gives control to 
DMKMCH with the system disabled for further 
interruptions. There is always a danger that a machine 
malfunction may occur immediately after DMKMCH is 
entered and the system is disabled for interruption. 
Disabling all interruptions is only a temporary measure 
to give the Initial Analysis Subroutine time to make 
the following emergency provisions: 

1. It disables for soft machine check interruptions. 
Soft recording will not be enabled until the error 
is recorded. 

2. It saves the contents of the fixed and extended 
logout areas in the machine check record. 

3. It alters the machine check new PSW to point to 
the Term Subroutine. The Term Subroutine is 
designed to handle second machine check errors. 

4. It enables for hard machine check interrupts. 

5. If a virtual user was running when the interrupt 
occurred, the running status (GPRs, FPRs, PSW, 
M.C. old PSW, CRs, etc.) is saved in the user's 
VMBLOK• 

6. It initially examines the machine check data for 
the following types of errors: 

MCIC=ZER0 

PSW invalid 

System damage 

Timing facilities damage 

The occurrence of any of these errors is 
considered uncorrectable by DMKMCH; the primary 
system operator is informed, the error is 


c 









formatted and recorded, and the system is shutdown 
followed by an automatic restart function. 

7. If the instruction processing damage bit is on, it 
tests for the following types of malfunctions: 

• Multiple-Bit Error in Main Storage — Control 

is given to the Main Storage Analysis 

Subroutine. 

• SPF Key Error — Control is given to the SPF 
Analysis Subroutine. 

• Retry failed — If the CPU was in supervisor 

state the error is considered uncorrectable and 
the VM/370 system is terminated. If the CPU 
was in problem state, the virtual user is reset 
or terminated and the system continues 

operation. 

8. If the CPU Retry or ECC was successful on a soft 
error, control is given to the Soft Recording 
Subroutine to format the record, write it out on 
the error recording cylinder, and to update the 
count of soft error occurrences. 

9. If external damage was reported, control is given 
to the Soft Recording Subroutine to format the 
record and write it out on the error recording 
cylinder. 


MAIN STORAGE ANALYSIS SUBRO UTINE: The Main Storage 
Analysis Subroutine is given control when it is 
determined that the machine check interrupt was caused 
by a multiple-bit storage error. An initial function 
is performed to point the machine check new PSW to an 
internal subroutine to indicate a solid machine check, 
in the event of a machine check interrupt while 
exercising main storage. 

Damaged storage areas associated with any portion of 
the CP nucleus itself cannot be refreshed; multiple-bit 
storage errors in CP cause the VM/370 system to be 
terminated. An automatic restart will reinitialize 
VM/370. 

If the damage is not in the CP nucleus, main storage is 
exercised to determine if the failure is solid or 
intermittent. If the failure is considered solid, the 


4K page frame is marked unavailable for use by the 
system. If the failure is considered intermittent, the 
page frame is marked invalid. The change bits 
associated with the damaged page frame are checked to 
determine if the page had been altered by the virtual 
machine. If no alteration had occurred, VM/370 assigns 
a new page frame to the virtual machine and a backup 
copy of the page is brought into storage the next time 
the page is referenced. If the page had been altered 
VM/370 resets or terminates the virtual machine, clears 
its virtual storage, and sends an appropriate message 
to the user. Normal system operation continues for all 
other users. 


ST ORAGE PROTECT FEATURE i|PFl ANALYSIS SUBR OUT INE: The 
SPF Analysis Subroutine is given control when it is 
determined that the machine check interrupt was caused 
by an SPF error. An initial function is performed to 
point the machine check new PSW to an internal 
subroutine in the event of a machine check interrrupt 
during testing and validation. The SPF Analysis 
routine then determines if the error was associated 
with a failure in the virtual user storage pr in the 
storage associated with CP itself. 

An SPF error associated with VM/370 is a potentially 
catastrophic failure. Namely, VM/370 always runs with a 
PSW key of zero, which means that the SPF Key in memory 
is not checked for an out of parity condition. The SPF 
Analysis Subroutine exercises all sixteen keys in the 
failing storage 2K page frame. If an SPF machine check 
occurs in exercising the sixteen keys five times each, 
then the error is considered solid and the operating 
system is terminated with a system shutdown. The system 
is automatically restarted and the VM/370 is 
reinitialized. If an SPF machine check does not occur, 
the machine check is considered intermittent. The zero 
key is restored to the failing storage 2K page frame 
and this is done transparent to the virtual users. 

If an SPF machine check occurs which is associated with 
a virtual user, the SPF Analysis subroutine exercises 
all sixteen keys in the failing storage 2K page frame. 
If an SPF machine check does not occur, then the 
machine check is considered intermittent and the 
SWPTABLE for the page associated with the failing 
storage address is located. The storage key for the 
failing 2K storage page frame is retrieved from the 
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SWPTABLE and the change and reference bits are masked 
on in the storage key. The storage key is then stored 
into the affected failing storage 2K page frame. If an 
SPF machine check occurs in exercising the sixteen keys 
five times each, then the machine check is considered 
solid and the following actions are taken, (1) The user 
is selectively reset or terminated by the virtual user 
termination subroutine. (2) The 4K page frame 
associated with the failing address is removed as an 
available system resource. This is accomplished by 
locating the CORTABLE for the defective page and 
altering the CORFPNT and CORPBPNT pointers to make the 
page unavailable to the system. The CORDISA bit in 
this CORTABLE is set on to identify the reason for the 
status of this page in a system dump. 

RECOVERY FACILITY MODE S WIT C HING : The Recovery Facility 
Mode Switching subroutine (DMKMCHMS) allows the service 
representative to change the mode that CPU retry and 
ECC recording are operating in. This subroutine 
receives control when a user with privilege class •F* 
issues some form of the SET MODE command. A check is 
initially made to determine if this is VM/370 running 
under VM/370. If this is the case, the request is 
ignored and control is returned to the calling routine. 
The format of the MODE command is as follows: 

SET MODE {RETRY)MAIN} {QUIET|RECORD } 

RETRY and MAIN imply CPU retry and main storage 
respectively. 

QUIET causes the specified facility to be placed in 
quiet mode. RECORD causes the count of soft errors to 
be reset to zero and the specified facility to be 
placed in record mode. 


OP ERATOR COMMUN ICA TION SUBROUTINE: The Operator 
Communciation subroutine is invoked when the integrity 
of the system has degraded to a point where automatic 
shutdown and reload of the system has been tried and 
was unsuccessful, or could not be attempted due to the 
severity of the hardware failure. A check is first made 
to determine if the system operator is logged on as a 
user, next a check is made to determine if the system 
operator is disconnected. If either of these checks is 
not affirmative a message cannot be issued directly to 
the system operator. A LPSW is performed to place the 


CPU in a disabled wait state with a recognizable wait 
state code in the CPU Instruction Counter. 


VIR TUAL USER TERMINATION SUBROUTINE: The virtual user 
termination subroutine is used to selectively reset or 
terminate a virtual user whose operation has been 
interrupted by an uncorrectable machine check. First, 
the user is marked non-dispatchable to prevent the 
damaged user from running before reset or termination 
is performed. The machine check record is formatted 
and DMKIOEMC is called to record the error. Then the 
user is notified by a call to DMKQCNWT that a machine 
check has occurred and that his operation will be 
terminated. The primary system operator is notified of 
the virtual user termination via a message issued by a 
call to DMKQCNWT. If the user is running in the 
virtual=real area, DMKUSO is called to log the user off 
the system and to return the storage previously 
allocated to the user and to clear any outstanding user 
I/O Requests. The hold option of LOGOFF is invoked to 
allow a user on a dial facility to retain the 
connection and thus permit LOGON without 
re-establishing the line connection. However, if the 
user is running in the virtual area, and DMKCFM is then 
called to put the virtual user in console function 
mode, the user must re-initialize the system to 
commence operation. 


SOFT RECORD ING SUBROUTINE: The soft recording 

subroutine performs two basic functions: 

1. Format a machine check record and call DMKIOEMC to 
record the error on the error recording cylinder. 

2. Maintain the threshold for CPU RETRY and ECC 
errors and switch from recording to quiet mode 
when the threshold value is exceeded. In order to 
accomplish this, a counter is maintained by DMKMCH 
for successful CPU retry and corrected ECC events. 


CPU Retry Reco rding Mode: Recording mode (bit 4 of 
Control Register 14 set to one) is the initialized 
state, and normal operating state of VM/370 for CPU 
Retry errors. Recording mode may also be entered by use 
of the CP SET command. When 12 soft machine checks 
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have occurred the soft recording subroutine switches 
the CPU from recording mode to quiet mode. For the 
purpose of model-independent implementation this is 
accomplished by setting bit 4 of Control Register 14 to 
zero. Since in QUIET mode no soft machine check 
interruptions occur, a switch from quiet mode to 
recording mode can be made by issuing the SET MODE 
RETRY|MAIN RECORD command. While in recording mode 
corrected CPU RETRY|MAIN reports are formatted and 
recorded on the VM/370 error recording cylinder, but 
the primary systems operator is not informed of these 
incidents. 


CPU Retry Q uiet Mode: Quiet mode (bit 4 of Control 

Register 14 set to 0) can be entered in one of two 

ways: (1) when 12 soft machine checks have occurred, 
or (2) when the SET MODE RETRY QUIET command is 

executed by a class l F l user. In this mode, both CPU 
retry and ECC reporting are disabled. The CPU will 
remain in quiet mode until the next system IPL 

(warmstart or cold start) occurs or a SET MODE 
RETRY|MAIN RECORD command is executed by a class f F* 
user. 


E CC Reporting Modes: To achieve model independent 
support, RMS does not set a specific mode for ECC 
reporting. The mode in which ECC reporting is 

initialized depends upon the hardware design for each 
specific CPU model type. For the IBM System/370 Models 
I 135, 145, 158, and 168 the hardware initialized state 
(therefore the normal operational state for VM/370) is 
J QUIET mode. For the IBM System/370 Models 155 II, and 
I 165 II the hardware initialized state (therefore the 
normal operational state for VM/370) is RECORD mode. 
An automatic restart incident due to a VM/370 failure 
does not RESET the ECC reporting mode in effect at the 
time of failure. 

The change from RECORD to QUIET mode for ECC reporting 
can be initiated in either of the following ways; (1) 

J by issuing the SET MODE {MAIN|RETRY] QUIET command, or 
(2) automatically whenever 12 soft machine checks have 


occurred. For the purpose of model independent 
implementation this will be accomplished by setting bit 
4 of control Register 14 to zero. 

The change from QUIET to RECORD mode for ECC reporting 
can be accomplished by use of the SET MODE MAIN RECORD 
command. This recording mode option is for use by 
maintenance personnel only. It should be noted that 
CPU RETRY is placed in recording mode if it is not in 
that state when the SET MODE MAIN RECORD command is 
issued. 

While in RECORDING mode, corrected ECC reports are 
formatted and recorded on the error recording cylinder, 
but the primary systems operator is not informed of 
these incidents. 

BUFFER E RROR SUBROUTINE: On CPU models equipped with a 
high speed buffer (155 II, 158, 165 II, 168) or a Data 

Look Aside Table (DLAT) (165 II, 168) the deletion of 
buffer blocks due to hardware failure is reported via a 
DEGRADATION REPORT machine check interrupt. MCH 
enables itself for degradation report machine check 
interrupts at system initialization by setting bit 5 of 

I Control Register 14 to 1. If a machine check interrupt 
occurs which indicates high speed buffer or DLAT 
damage, MCH formats the record and calls DMKIOEMC to 
record it on the error recording cylinder, informs the 
primary systems operator of the failure, and returns 
control to the system to continue normal operation. 

TERM SUBROUTI NE: The Term Subroutine is given control 
in the event of a hard machine check interrupt while 
DMKMCH is in the process of handling a machine check 
interrupt. Note that soft error reporting is disabled 
for the entire time that MCH is processing an error. 

An analysis is performed of the machine check interrupt 
code of the first error to determine if it was a soft 
error, and if it was, the first error is recorded, the 
system status is restored and control is restored to 
the point where the first error occurred. If the first 
error was a hard error, the Operator Communication 
Subroutine is given control to issue a message directly 
I to the system operator, and to terminate CP operation. 
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OVERVIEW OF CHANNEL CHECK HANDLER 


The Channel Check Handler (CCH) aids the I/O Supervisor 
in recovering from channel errors and informs the 
operator or service representative of the occurrence of 
channel errors. 

CCH receives control from the I/O Supervisor when a 
channel data check, channel control check, or interface 
control check occurs. CCH produces an I/O Error Block 
(IOERBLOK) for the error recovery program and a record 
to be written on the error recording cylinder for the 
system operator or service representative. The 
operator or service representative may obtain a copy of 
the record by using the CPEREP programs. A message 
about the channel error is issued each time a record is 
written on the error recording cylinder. 

When the Input/Output Supervisor program detects a 
channel error during routine status examination 
following an SIO, TIO, HIO, or an I/O interruption it 
passes control to the Channel Check Handler (DMKCCH). 
DMKCCH analyzes the channel logout information and 
constructs an IOERBLOK, if the error is a channel 
control or interface control check, and an ECSW will be 
constructed and placed in the IOERBLOK. The IOERBLOK 
provides information for the device dependent error 
recovery procedures. DMKCCH also constructs a record 
to be recorded on the error recording cylinder. 
Normally, CMKCCH returns control to the I/O Supervisor 
after constructing an IOERBLOK and a record. However, 
if DMKCCH determines that system integrity has been 
damaged (system reset or invalid unit address, etc.) 
then CP operation will be terminated. The action taken 
by DMKCCH for CP termination will be to issue a message 
directly to the system operator and place the CPU in a 
disabled wait state with a recognizable wait code in 
the CPU instruction counter. 

Recovery will not be initiated for channel errors 
associated with I/O events inititated by a virtual 
user, however these will cause termination of the user 
after he has been notified of the failure. The error 
will be recorded by DMKIOECC on the error recording 
cylinder. 

Normally, when DMKCCH returns control to the I/O 
supervisor, the error recovery program for the device 
which experienced the error is scheduled. When the ERP 


receives control, it prepares to retry the operation if 
analysis of the IOERBLOK indicates that retry is 
possible. Depending on the device type and error 
condition, the ERP will either effect recovery or mark 
the event fatal and return control to the I/O 
Supervisor. The I/O Supervisor will call the recording 
routine DMKIOE to record the channel error. 

The primary system operator will be notified of the 
failure, and DMKIOE will return control to the system 
and normal processing will continue. 


Channel Control Subrou ti ne 


Control is passed to the Channel Control Subroutine of 
DMKCCH after a SIO with failing status stored, or an 
I/O interrupt due to a channel control check, interface 
control check, or channel data check. 

If "logout pending” is indicated in the CSW, the CP 
termination flag is set. The existence of real device 
blocks (RCHBLOK, RCUBLOK, RDEVBLOK), for the failing 
device address, is determined by a call to DMKSCNRU and 
an indicator is set if they do exist. An indicator is 
also set if the IOBLOK for the failing device address 
exists. A call to DMKFREE obtains storage space for 
the channel check record and the channel control 
subroutine builds the record. If the indicators show 
that the real device blocks and the IOBLOK exist, a 
call to DMKFREE obtains storage space and the channel 
control subroutine builds the I/O error block 
(IOERBLOK); if these blocks do not exist, the IOERBLOK 
is not built. The IOERBLOK is used for two purposes: 

1. The device dependent Error Recording Program (ERP) 
uses the IOERBLOK to attempt recovery on CP 
initiated I/O events. If the I/O events that 
resulted in a channel check are associated with a 
virtual user, the I/O fatal flag is set in the 
IOBLOK and the user’s virtual machine is reset, 
cleared, and put into console function mode with a 
read up on the line. The length and address of 
the channel check record is placed in the IOERBLOK 
and the IOERBLOK is chained off the IOBLOK. 

2. DMKIOECC uses the IOERBLOK to record the channel 
check record on the error recording cylinder. 
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Diag. 8B2. Channel Check Handler (CCH) 
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The channel control subroutine gives control to a 
channel dependent error analysis routine to build or 
save the extended channel status word (ECSW). When the 
Channel Control Subroutine regains control, eight 
active addresses are saved in the channel check record. 

If the CP termination flag is set, the I/O extended 
logout data from the channel check record is restored 
to main storage for use by SEREP. If the system 
operator is both logged on as a user and connected to 
the system, a message (DMKCCH603 W) is sent to him 
advising him of the channel error. A LPSW is then 
executed to place the CPU in a disabled wait state with 
a wait state code of 002 in the CPU instruction 
counter. 

If the CP termination flag is not set, a check is made 
to determine if an IOERBLOK was built by the channel 
control subroutine. 

If an IOERBLOK was not built, DMKIOECC is called to 
record the channel check record on the error recording 
cylinder. The system operator is then sent a message 
(DMKCCH601I or DMKCCH602I) informing him of the error 
and control is then returned to DMKIOS to continue 
system operation. 

If an IOERBLOK was built, control is returned to DMKIOS 
which calls the appropriate ERP. Whether or not 
recovery is successful, DMKIOS eventually calls DMKIOE 
to record the channel check record. DMKIOE examines 
the status of the error CSW in the IOERBLOK to 
determine is it was a channel error; if so, it finds 
the length and pointer to the channel check record and 
records the error on the error recording cylinder. If 
this was not a channel error, DMKIOE continues normal 
processing. 


Individual Routines 


A separate channel error analysis routine is provided 
for each type of channel for which DMKCCH can be used. 

I The purpose of these routines and the Channel Control 
Subroutine is to analyze the channel logout to 
determine the extent of damage and to create a sequence 
and termination code to be placed in the ECSW in the 


IOERBLOK. At system initialization time the correct 
| model dependent channel recovery routine is loaded and 
the storage necessary to support the routine is 
allocated. The model dependent error analysis 

subroutines and routines and their functions are as 
follows: 

INTEGRATED CHANNELS (Model s 135, 145, 155 II, 1581: 

Since all of these systems have integrated channels one 
common subroutine is used to handle all of these CPU 
types. This subroutine: 

• Indicates CP termination if the ECSW is not 

complete, the channel has been reset, or reset codes 
are invalid 

• Moves the ECSW to the IOERBLOK 

• Moves the hardware stored unit address and the I/O 
extended logout to the channel check record 

• Sets the I/O extended logout area and ECSW area to 
ones 

• Returns control to the Channel Control Subroutine 


2860 CHANNEL (Models 165 II, 168): The 2860 logout area 
is checked to determine if a complete logout exists; if 
| not, CP termination is necessary. 

A check is made in the logout area for validity of the 

I CSW fields and bits are set in the channel check 
record's ECSW field to indicate bad fields. 

The channel logout is then checked and sequence codes 
are set based on the presence of a channel control 
check, or an interface control check. If a channel 
control check is present, the codes set are determined 
through parity. The count determines if parity is good 
and sets a resultant condition code. 

The logout area is examined to ensure that the unit 
address has valid parity and is the same address passed 
by DMKIOS. If so, the "unit address valid" bit in the 
ECSW is set. If the unit address is not valid the "unit 
address valid" bit is reset to indicate the invalid 
condition. 

The ECSW field in the channel check record is moved to 
the IOERBLOK, if one exists. 

After completing the ECSW the 2680 routine moves the 
| 2860 I/O extended logout into the channel check record. 




i 



set the I/O extended logout area to ones, and returns 
to the Channel Control Subroutine. 


2870 CHANNEL (Mode ls 165 II , 1681: If the channel 
failed to logout completely, at least part of the 
logout area is all ones. If a full word of ones is 
found, a CP termination condition exists. 

A check is made in the logout area for valid CSW 
fields, and bits are set in the channel check record's . 
ECSW field to indicate bad fields. | 

The termination and seguence codes are set depending on 
the presence of an interface control check or channel 
control check. If a channel control check is present, 
the codes set are determined through parity, count, 
and/or data transfer checks. For the 2870, parity can 
be determined directly from the channel logout. 

The logout area is also examined to ensure valid parity 
in the unit address and to ensure that the address is | 
the same as that passed to DMKCCH by DMKIOS. If so, 

the "unit address valid" bit in the ECSW is set. | 

The 3rd word of the logout area is also analyzed for 
type II errors. If one of these type II errors is 
found, a CP termination condition exists. 

The ECSW field in the channel check record is moved to 
the I0ERBL0K, if one exists. 

Before returning to the Channel Control Subroutine, the 
2870 routine moves the 2870 I/O extended logout into 
the channel check record and sets the I/O extended 
logout area to ones. 


2880 CHANNEL (M odel s 165 II and 16 8): This routine will 
analyze 9 words of the 28 word logout. 

The 2880 Analysis routine handles channel data checks, 
interface control checks, and channel control checks. 

Termination code 3 (system reset) is not set in the 
ECSW because the 2880 channel does not issue system 
reset to the devices. Retry codes of zero to five are 
possible. 


Note : There are several catastrophic conditions under 
which the CP termination flag can be set, in the 2880 
analysis routine. They are: 

1. The channel did not complete the logout. 

2. The CSW is not reliable. 

3. The unit address in the I/O interrupt device 
address field is not correct. 

Only a channel check record is needed if the channel 
has recognized an internal error and has recovered from 
it without any damage. No recovery action is necessary 
in these cases. 

If the channel address in the 1/0 interrupt device 
address field does not match the channel address in the 
logout, a CP termination condition exists. 

If the channel was doing a scan and the unit control 
word had a parity check a CP termination condition 
exists. If there was no parity check, there was no 
damage during the scan and only a channel check record 
is required. 

Depending on the seguence the channel has entered, the 
termination and sequence codes are set; command 
address, unit address, and unit status validity is 
determined; and the sequence code is set valid. The 
ECSW field in the channel check record is moved into 
the IOERBLOK, if one exists. 

Before returning to the Channel Control Subroutine, the 
2880 routine will move the I/O extended logout into the 
channel check record and set the I/O extended logout 
area to ones. 


ERROR RECORDING AND RECOVERY 


The error recording facility is made up of three 
modules. One module (DMKIOE) is resident and the other 
two (DMKIOF and DMKIOG) are pageable. 

The error recording routines records: unit checks, 
machine checks, channel checks, and hardware 
environmental counter sense data on the error recording 
cylinders of the system resident device in a format 
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suitable for subsequent processing by the CPEREP 
program. The recorder also initializes the error 
recording cylinders at IPL time if they are in an 
unrecognizable format. 

When the recorder is entered from DMKIOS, it is entered 
at DMKIOERR. This entry is used for unit checks and 
channel data checks. A test is made of the failing CSW 
(located in the IOERBLOK) to see if the error was a 
channel error. If it was, control is passed to routine 
for recording channel checks. 

The IOERBLOK sense data, IOBLOK flags, and VMBLOK user 
class are examined to determine if the error should be 
recorded. See the section "Errors Recorded" for those 
that are recorded. 


Writing the Record 


After an error record is formatted, it is added to the 
error recording cylinder using DMKRPAGT and DMKRPAPT. 
The error recording cylinders have page sized records 
(4096 bytes). Each page contains a header (8 bytes) 
which signifies cylinder and page number of the page (4 
bytes), next available space for recording within page 
(2 bytes), a page in-use indicator (1 byte), and a flag 
byte. Each record within the page is recorded with a 
4-byte length prefix. 

If an error record is too large to be added into a 
page, a new page is retrieved, updated with record, and 
placed back on the error recording cylinder with the 


paging routines. 

Two cylinders are used for error recording: one 
cylinder is used exclusively for recording the I/O 
errors and the other cylinder for recording MCH/CCH 
errors. The cylinders that are used for error recording 
are specified by the user at system generation time. If 
either error recording cylinder becomes 90 per cent 
full, a message is issued to the operator using 
DMKQCNWT to warn him of the condition. If either 
cylinder becomes full, another message is issued to 
inform the operator and recording is stopped on that 
cylinder. Recording continues on the cylinder that is 
not full. 

If a channel check error is to be recorded, the 
recorder is entered at DMKIOERR or DMKIOECC. The 
channel check handler determines the entry. A channel 
check error record is formatted. 

A machine check enters at DMKIOEMC. Pointers are 
passed from the machine check handler in registers 6 
and 7 to locate a buffer where the machine check record 
and length are saved. A machine check error record is 
recorded with the saved machine check logout and 
additional information. The machine check error record 
is written onto the error recording cylinder by using 
the paging routines. 

Hardware environmental counter records are formed using 
routine DMKIOEEV« This routine is scheduled by DMKIOS 
after control is returned from the ERP. Sense data 
information is stored in the IOERBLOK by the ERP. The 
record formed is called a nonstandard record. 



Er ro rs Re corded 


Feed thru check 


In addition to recording environmental data, the 
following types of errors are recorded for DASD virtual 
machines that are not Class F. 

• Bus-out check 

• Overrun check 

• Seek check 

• Track overrun check 

• Missing address marker check 

• Eguipment check 

• Permanent data check 

• Unrecoverable error for a control program initiated 
channel program. 

The following 3420 errors are recorded if the user is 
not Class F: 

• Bus-out check 

• Overrun check 

• C compare check 

• Write TRIG VRC check 


• Vel/RESTART check 

• Velocity change check 

• Equipment check 

CLE AR a nd FORMA T Recording Area: DMKIOEFM is called by 
the CPEREP program via a DIAGNOSE instruction. DMKIOEFM 
is invoked to reset the specified error recording 
cylinders (if CLEARALL, CLEARIO, or CLEARMC was 
specified). The clear is performed by resetting each 
page-header space-available field. A pointer in storage 
is then updated to point to the first page on the error 
recording cylinder available for recording MCH and CCH 
records and the first page available on the other error 
recording cylinder for recording outboard errors. 
Control is then returned to the calling routine. 

Finding Fi rs t Recording Cylinder at IPL Ti me: DMKIOEFL 
is called by DMKCPI to find the first available page 
that can be used for error recording. The paging 
routines, DMKRPAPT and DMKRPAGT, are used to read the 
error recording cylinder's pages (4096 byte records). 
As each page record is read it is examined to see if 
this record is the last recorded. If so, a pointer in 
storage is saved so recording can continue on that page 
record. Control is then returned to the caller. If 
either error recording cylinder is in an unrecognizable 
format, that cylinder is automatically reformatted by 
CP. 
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PROGRAM ORGANI ZATION 


This section contains the flowcharts for all processing 
modules. The modules are in alphabetical order. To 
determine the pertinent information about a module, see 
the Directory entries DMKACO to DMKWRM. 


FL OWCHART S 
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FUNCTIONAL SYMBOLS 



OFF-PAGE 

CONNECTOR 






The instruction at location GOTO calls either a subrou¬ 
tine within this module or another module that is used 
like a subroutine. If the name in the subroutine block 
begins with DMK, then the call is to another module (see 
the "Module/Entry Point Directory" to determine the 
flowchart location of the called module). If the name 
does not begin with DMK. then the subroutine is in the 
flowchart series for this module (see the "Subroutine 
Directory" to determine the flowchart-part location of 


One-page exit connector control branches to block D3 
on this part of the flowchart. 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***** G 1*********, 


****************1 


SEGHESTSTO .* 
*• PROCESS . ♦ 


o 


•STORE *YB* IB* 
->* CORE TABLB * 
* BHTBY * 


**B1******* 

♦STORE LOCK * 
•COURT OF 1 IB* 


*********** 


♦COHSOLB LOCK * 

* BIT IB CORE * 
* TABLE EBTBY * 
*********** 


**D1******* 
♦STORE BEAL * 

* PAGE BUHBEB ♦ 

* IB PAGE TABLE * 

* EBTBY * 
*********** 


***************** 


*****A2*********’ 
* LOCATE ALL 
t fob E p!ge 8 0 B! 


■"*1 


*****B2*********< 

* FILL IB CORE 
♦TABLE EBTBY FO 

* PAGB 0 


*****C2********** 
•BEAL PAGE 0 IS * 
♦LOCATED AT TOP * 

* OF VIRT-REAL * 

* AREA * 


•*C3»****** 

**GET SEGHEBT * 

► TABLE ADDRBSS « 
* FBOH YHBLOK * 


* VHPAGES ABD * 
•YHHSPBOJ FIELDS* 

* IB YHBLOK * 
*********** 


»bWl« 


* SEHD RESPOHSB * 


**D3*****«« 


*********** 


**B3******* 
♦THIS TIHES * 

* 16 = BUHBEB * 

► OF SEGHEBT « 
♦TABLE EHTBIES* 
*********** 


**F3******* 


*********** 


.* DOES PAGB *. HO 
*. TABLE EXIST .*- 


****••••*** 


♦+B4******* 
•GET ADDRESS* 

* AHD HO. DBL * 

k BOBDS OF SBAP • 

* TABLE * 
*********** 


i»******i 

DHKFRET^ ^ ^ 

"call - Ietdrb" 

‘THE SBAP TABLE 
**************** 


**D4******* 
♦GET ADDRESS* 

* ABD HO. DBL * 

* BOBDS OF PAGE * 

* TABLB * 
*********** 


♦****E4********** 
♦DHKFBBT * 
*_*_*_*_*_*_*_*_* 
* CALL - BETUBH * 
♦THE PAGE TABLE * 
***************** 


* ADVAHC1 


tGHBHT < 


*********** 


**A5******* 

* GET SIZB * 

► AHD ADDRESS « 
OF SEGHEBT 

► TABLB (FBOH < 

* YHBLOK) * 
*********** 


•*B5*****«* 
♦LESS DISP. * 
* TO OBTAIH » 
* BEGIHBIHG OF 
♦STORAGE ABBACY 
*********** 


**C5**»***« 

♦AHD COBPUTE* 

* RUBBER OF * 

* DOUBLE BOBDS * 
♦FBOH THE SIZE* 
*********** 


CALL - BETUBH * 
THE SEGHEBT * 
TABLE * 
**************** 


^♦:* YIRT-RBAL ‘ 
1 *. AHEA .< 


*+**H5********* 

* BETUBH TO * 

* CALLEB * 
*************** 


DMKBID — Build/Belease BEAL Storage Tables; Build VMBLOK (Parts 1 and 2 of 3) 
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DMKELD — Euild/Release Real Storage Tables; Build VMBLOK (Part 3 of 3) 


****ii**»**»*»* 

* DHKBLDVH * 
*************** 


H8 AT IHPDT 
REFERENCES 
TERHINAL BEAL 
DEVICE BLOCK: 


B 1 DB $S§* D2 ********* 

* ABEND - SVC 0 * 
->* (CODING EB80B * 

* BI CALLBB) * 
*************** 


♦♦B3******* 


♦chargi&g dseb* 
*********** 


♦♦C3******* 

* BEFERENCE * 
♦VMBLOK IN Bit* 
*- CLEAR ENTIRE * 
* VMBLOK * 


**D3******* 

* SET VB * 

► CHANNEL TABLE * 

* TO ALL FF*S * 
* * 

*********** 


agog.. 


♦STORE* ADDS 
♦OF VHBT" ” 
* BDEVUS] 

* TEI 
* BDEV] 
*****4 


H (I “ * 

*S*L* 


CALL - TEBH 
* ADDS IN CCO 


***************** 


ADDS IN HEX 


**j3******* 
•FOBH OSERID* 
♦OF 'LOGOHm** 

* - STORB IN * 

* VHBLOK ♦ 

* * 
*********** 


♦♦K3******* 

♦ SET 'NOT ♦ 

♦ VET LOGGBD * 
♦OH* 6 SET OTHBR*- 
FLAGS AS * 


**A4******* 
♦POT DSEB INTO* 
->* DISABLED BAIT ♦ 
♦ STATE * 


*********** 


♦♦D4******* 
♦OBTAIN AND * 
♦STORE DEFA0LT* 
♦LINE LENGTH FOB* 


*********** 


♦BEVISB 

Slips? 


K********* 


****F n ********* 

** H calleb 10 : 
*************** 







i 


“I 


'*1 




02B3 

02E1 


5AVE CALLERS 
REGISTERS 


03D3 


FINDBLOK 1 

***** D1 ********** 

♦SAVE THE DEVICE* 
♦ADDRESS IN CCH * 


► SET SYSTEM * 
TERMINATION 

► INDICATOR < 
* ♦ 

*********** 


♦DMKSCNRU 


♦ADDRESS EXIST* 


.♦IS THE I/O *. 
►.BLOCK ADDRESS. ► 


► LENGTH OF * 


(**C2********* 

CALCULATE 


♦GET THE ADDRESS* 
* OF THE VHBLOK * 


*****£2********** 

* CLEAR CCH * 

* RECORD HEADER * 

* AND MOVE IN * 

* HEADER * 

***************** 


*****F2********** 

* SAVE CPU ID. * 

* NUMBER AND * 

* FAILING CSW * 
***************** 


***»*H2**♦*♦♦♦**♦ 

♦ HOVE FAILING ♦ 

♦ CCH INTO CCH ♦ 

♦ RECORD ♦ 

***************** 


ADDMOVE V 

*****j2*♦*♦*♦*** 

♦ SAVE THE 
♦FAILING DEVICE 

* AND CHANNEL 

* TYPE IN CCH 

♦ RECORD 


♦SEND MESSAGE ♦ 


♦**E3*****♦♦***♦ 
SEND MESSAGE 
♦ TO OPERATOR ♦ 
BEFORE PUTTING 
» SYSTEM DOHN * 
**************** 


^ Cfi *****P3** ******** 

♦MOVE THE ID. IN* 

♦ FOR A * 

♦ CHECKPOINT * 

♦ RESTART * 
***************** 


♦SAVE THE T.O.D.* 
♦CLOCK VALUE FOR* 
♦SYSTEM RESTART * 


****H3********* 
♦PUT SYSTEM IN A* 
* DIABLE WAIT * 
STATE 


.♦THE DEVICE *. NO 
♦.ADDRESS EXIST.*- 


***+*B4♦*♦♦*****< 

* SAVE THE CP * 
—>*SYSTEM NAME IN * 

* CCH RECORD * 
****************4 


■♦.ADDRESS EXIST.* 


****D4********** 

SAVE THE USER * 
NAME IN THE CCH* 


*****A5********** 
* CALCULATE THE * 
♦I/O ERROR BLK. * 


•CALL' GET 


♦BLK IN I/O BLK * 


ERROR BLOCK 


*. DEVICE BLK 


*****£5********** 

**t A M E ora H ; 

* RECORD IN I/O * 

* ERROR BLK * 


.*THIS ERROR * 
ON A TIO 
*. INSTR. ? .1 


♦CHANNEL ROUTINE* 


♦INDICATOR FOR* 

* A TIO * 

* INSTRUCTION * 


.* IS THIS A *. YES 

► .2880 CHANNEL .*-, 

*. TYPE ? .* I 




■■ INSTRUCTION * 


<• MODEL. 1 


* 
♦ 
* 
* 
* 
♦ 
* 
* 
* 
* 
* 
♦ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
: * 
* 
* 
* 

j * 

* 

* 
* 
, * 
1 * 
* 
* 
* 
* 
* 
♦ 
* 
* 


i****J1*********i 


'CHANNEL ROUTINE* 


.* IS THIS A *. YES 

*.2860 CHANNEL .*-, 

*. TYPE ? .* ( 


*GET THE ADDRESS* 


.* IS THIS A ♦. 
*.2870 CHANNEL .*- 
*. TYPE ? .* 


► SET SYSTEM ■ 
TERMINATION 

► INDICATOR > 

*********** 


r 


► THERE AN 
ADDRESS FOR . 
►.DEPENDENT. - 
*. RTN - 


FOR I*-1 

^v 


* GO TO CHANNEL * 

* DEPENDENT * 

* ROUTINE * 
***************** 


.* SYSTEM *. YES 

. TERMINATION .*-, 

♦.INDICATED.* I 


.♦DOES .... 
ERROR BLOCK 
♦. EXIST ° • 


V*'* ) 


‘ ERRROR BLOCK 


£ 


♦MOVE EIGHT BUSY* 

•* CONTROL UNITS *— 
*INTO CCH RECORD* 
****************** 


r 


. TERMINATION .* 


*.DEVICE BLOCK . 
*. ADDR. .* 
♦.EXIST.* 


►♦*B5*********> 
i LENGTH ► 


.*WAS THE*. 


**E5******* 

* SEND * 

* MESSAGE - * 

► CHANNEL CHECK 1 

* RECORDING * 


n*SM! 


****»F5********** 
♦DMKJCNHT ^ * 

*S END~MESSAGE^TO* 


* GO SEND ERROR » 

* MESSAGE TO > 

* OPERATOR 
*******-“““ 


► REGISTERS OF 


RETURN TO 


| DMKCCH — Channel Check Handler (Parts 1 and 2 of 4) 
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| DMKCCH — Channel Check Handler (Parts 3 and 4 of 4) 


***** 01J5 


INTEGEAT .*. 


•'*-1 


CCHSYSM V 

**C1******* 

* SET THE * 

* SYSTEM * 
* TERMINATION 

* INDICATOR 1 


NO * *DOES AN I/O*. 

-*. ERROR BLOCK . 

*. EXIST ? .* 


k****£1********** 

► SAVE THE ECSH * 
" IN THE I/O * 
- ELOCK * 


NO .* IS THIS A * 
<—*. BYTE MPX 


*****C2********** 
♦GET THE LENGTH * 

* OF THE I/O * 
♦EXTENDED LOGOUT* 

* FOR MPX * 


♦****B3********* 

* SAVE CALLER 
♦REGISTERS (I/O 

* INTERRUPT ENTR5 

* ) 


*********** 


*****B4********** 

♦SAVE REGISTERS 1 


***»*C4***»*< 


************* 


*****B5********** 

♦GET REAL DEVICE* 

* ADDRESS FROM * 

* I/O BLOCK * 


*****C5********** 
*DMKCVTBH ^ + * 

*~CALL'"CONVERT - * 
♦DEVICE ADDRESS * 


.♦IS THIS*. 

* AN *. 
INTERFACE .* 


♦ GET .THE DEVICE * 

♦ ADDRESS FROM * 

♦ LOGOUT (X'BA') * 

***************** 


GO SEND ERROR > 
MESSAGE TO < 
OPERATOR 


CCHFAIL 

♦****I 


***************** 


♦ THE ECSH ♦ 

♦FIXED LOCATION * 

♦ TO ONES * 


**»**H1********** 

* MOVE THE UNIT * 

* ADDRESS INTO * 
♦THE CCH RECORD * 
***************** 


CCHMVC1 

♦ **** E 2**< 

♦ CALCULATE THE * 
♦SIZE OF THE I/O* 
♦EXTENDED LOGOUT* 

* AREA * 

***************** 


*****F2********** 


***+*G2********** 

* RE—INITIALIZE * 

* I/O EXTENDED * 


***************** 


.♦HAS THERE A*. NO 

*. REAL DEVICE .*-- 

*.BLK ADDR .* 


* DMKCCH604I * 
♦CHANNEL ERROR, ’ 

♦ USERID® * 

*********** 


***** E 5********** 

♦DHKQCNWT * 

*_*_?_*_*_*_*_*_* 

♦ 'CALL' SEND * 

♦ MESSAGE TO * 

♦ OPERATOR ♦ 


*****F5♦♦*****♦*♦ 


.♦IS THERE AN* . 


I/O 1 
♦ .ADDS! 


***************** 


****G5******* 


.♦IS I/O * 
' EXTENDED 


( PTR^ ; — ] 


.♦IS THE *. 

■ I/O *. YES 

EXTENDED .*-. 

>. LOGOUT .* I 

♦.VALID.* V 


* 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 


♦♦♦*A2********* 

■ BUILT MESSAGE * 


♦ ****B2***< 

* GET FAILING * 
♦DEVICE ADDRESS * 


<♦************* 


***************** 


.♦HAS IT *. 
.* A CHANNEL *. 
'.OR INTERFACE , 
*. CONTROL .* 


♦♦E2******* 

♦SETUP MESSAGE* 

* FOR CHANNEL * 
♦CONTROL CHECK* 
*********** 


* DMKCCH601I 
♦CHANNEL CONTRC 

* CHECK 


■♦.CONTROL CHECK. 1 


* SETUP THE * 


**j2******* 
'*DMKCCH602I " 
CHANNEL 
■ INTERFACE 
♦ CHECK * 


MSGOPERA V 

*****K2******** 
♦DMKfjJCNWT ^ ^ 

♦SEND _ MESSAGE 1 
* OPERATOR 


MSGEXIT 

♦***K3*******+« 
* RETURN TO IN 
->* LINE CODE 















1 



f^s 



CCWGTFRE V 

*****A2********** 
♦DHKFREE^ ^ * 

->*~ CALL~-~gIt ' 
♦STORAGE FOR HDR' 
*AND CCN STRING > 


**B1******* 
♦CLEAR FLAGS* 
*6 WORK AREA, * 


*********** 


**Cl******* 

* FOHH R8 = * 

* A (VDEVBLOK) * 
♦TO CHECK DEVICE* 
♦CLASS 8 TYPE * 




•MWIKici. 

♦ CLASS * 

* * 
*********** 


□ 


**C2******* 

* SET R7 TO * 

* POINT TO * 

* BEGINNING OF * 
•CONTROL WORDS* 


**A4******* 


**B4******* 

* PATCH * 
♦CHAIN, CLEAR 4 


*********** 


**C4******* 

♦STORE ADDRESS* 

* OF NEW 'THIS* * 
* RCWTASK * 
*********** 


03D2 

05B2 

07G1 


**D2******* 
♦INITIALIZE 1 

* RCWVCAW, 

► RCWCCNT, 8 

* RCWHEAD IN 


**E2******* 

* SET R6 TO * 

* POINT TO 4 
’ BEGINNING OF 

* REAL CCWS 4 

* * 
*********** 


♦TRANBRNG 


*;.TAPE t DIV IC E*;.YEsJ W . *' 


:L ASS^I *-1 


♦♦HI******* 
♦SET R5 = A * 

*(OTHBTBL) FOR* 

► ALL OTHER * 
* CLASSES * 


♦DECR R7 BY * 

*4 TO RESERVE * 

* ONE CONTROL * 
♦WORD FOR ISAH* 


**H3******* 

* STORE * 

► ADDRESS OF 4 

FIRST AND 

► 'THIS' 4 

* RCWTASK * 
*********** 


.♦USER'S CAW 4 
►. DBL WORD 
*. ALIGNED .4 


*01 * 
* E r ■ 

CCWBAD 


*1 


885 

02H1 


.♦IS ADDRESS**. NO 
*.OF CCW VALID .*- 


>**' 03 ^TO^FORCE* 
♦CHANNEL PROG.4 
* CHECK 


**F4******* 


CCWBAD2 V 

**F5******* 
♦SET OP-CODE* 

* AND ADDRESS * 

* INVALID = * 

* X'OOFFFFFF' * 
*********** 


**G4******* 
♦GET VIRTUAL* 

* CCW FROH * 
♦USER'S PAGE (IN* 

* R3-R4) * 

*********** 


* REAL CCW, * 
► CLEAR BITE 5 

* (CP FLAG 4 
* BYTE) * 

*********** 


**J4******* 


♦»G5******* 

* SIGNAL * 

► INVALID CCW 4 

(RCWINVL 

► PLAGBIT) 4 
*********** 

L>*03*4 


♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


:ci* l 


♦VIRTUAL COBHAND* 
* OP CODE * 
*********** 


* INITIALIZE * 
♦2ND WORD OF CCW* 

* COBBAND * 


* B1 *-> 
CCWNXT2 


05A3 

05B3 


* REHEHBER * 
♦VIRTUAL FLAG 4 
* BYTE (CC+CD 
* BITS ONLY) 4 


.♦IS ADDRESS 4 _ 
*.IN TIC VALID .' 


“Vi 


**01******* 

♦FORH TABLE * 

* INDEXER * 
M0-30) FROH LOW*<— 
*4 BITS OF CCW* 

*OP CODE X 2* 


**E1******* 
♦GET BRANCH * 

‘ tumia % 

► PLUS TABLE * 

***I525IL 8 *** 


**F1******* 

* ISOLATE * 
♦BYTE-COUNT IN* 

* R4, DECREMENT * 
* BY ONE * 
*********** 




[0 *01 * 

VS* 


**C4******* 

* REFERENCE * 
♦THIS RCWTASK * 
*- CHECK ADDRESS* 
* IN TIC * 


.* PRIOR TO 
► .BEGINNING OF .’ 
♦ .THIS TASK. * 


OF .*-, 

?!■* ( 


r' 


.♦READ OB*. 

YES .* SENSE: IS *. 
-*.SKIP FLAG SET.4 


GO TO CORRECT 
CODE VIA CLASS 
—> (R5f 6 THE LAST 
4 BITS OF THE 
CCW OP CODE 


. CCW STATUS 


**F3******* 


*J+) FROM I 


.♦HAVE WE*. 

* I GENER ATED P CCW I *^ 
*. IN THIS .* 
♦.TASK .* 




►I THE CC6 A Tic! *- 

**YES *01 * 


> CODE TO 08, 


FOR EXAMPLE: 
DASD CCW • 96» 
GOES TO DASDX6; 

TAPE CCW ' 3F' 
GOES TO TAPEXF 


****J2********* 

* GO TO CORRECT * 
♦PROCESSING CODE* 

*************** 


INTO OUR 
► . CONTROL .* 
*.AREA .* 


.* EXACTLY 8 *. 
. BYTES AHEAD . 


''“I 


) 


.* PREVIOUS 4 
*. CCW STATUS 
♦.MODIFIER .< 
♦.TYPE .* 


—>*RELATIVE (FROM 4 
♦BEGINNING OF * 
* TASK) * 
*********** 


‘"I 


ccvxxcu v 

*****j4********** 

♦TICSOBI ♦ 

RESOLVE TIC ”♦ 


.♦HAVE RE HAD*. YES 
*. AH AUTOPOLL .*-, 


1 

* 

************* 
l_>* * 

♦NO * * 

1 * K5 * **** 

******** 

1 

K4 * ■*. 

.* CHAIN *. 

* 

* 


**** * K4 *-> 07C4 

* * 07F4 

1 *•** 07K4 

V CCWTIC4 

♦+K3******* **K4******* 

* K5 * 

CCWTIC3* 

**K5** 


►:pRiviooI T C cw*:*^ 


TO: ES 

12B4 


* 

* 

* 

* 

* 

* 


♦SET FLAG TO* 
♦REMEMBER TIC * 
*^* + 16 FORWARD ^4 

••*•**•*•** 


SIGNAL 

* ADDRESS IS ’ 
> RELOCATABLE, 


♦ADD PRESENT* 

♦ ADDRESS (R6) * 
.* TO FORM REAL * 

* ADDRESS * 


| DMKCCH — Translate a Virtual CCW list to a Real List (Parts 1 ana 2 of 31) 
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| BMKCCW — Translate a Virtual CCW List to a Beal List (Farts 3 and 4 of 31) 


►** 05B1 
1 * 10J5 


CCWCHKPV .*. 


.* PREV. *. 
.*CCW STATUS *. 1 
► .HOD. TYPE OR .*- 
*. FORWARD .* 

*. TIC .* 


CCWHXT13 

**B1** 

* POINT 
♦HCWTASK (THIS* 

• CHAIN FINISHED) * 

*********** 


* IHCREHENT * 
—>*POINTER TO NEXT* 

• USER CCW (B9£* 


P ""LAST* VIRTUAL* 


*********** 


**B2******* 

* REHEHBER * 
•PREVIOUS CCN * 
* COHHAND AND 


*********** 


**C2******* 

* * 

* IHCREHENT * 
•POINTER TO NEXT* 
•REAL CCN (R6£* 
*********** 


* REFERENCE * 
•IOBLOK; FILL » 

,->* IN REAL CAW 

I * ADDRESS * 

**** *********** 


,* DIALED *. 
. LINES BEING . 
*. HANDLED .* 


TERHINIT V 

**J5******* 

* SET R5 = * 

*%8f S8SSL * 

•DEVICE CLASS < 
*********** 


**B4******* 
* REFERENCE ■ 
•VDEVBLOK (.'" 
-- IOB1 


—>*HELL AS 101 


lLOK£* 


*********** 


.♦HAVE HE*. 

.» HAD ANT . . 
>.ISAH READS AT.*- 


~1 




.•THERB HOOH 
LEFT FOR 
*. ANOTHER 




•CALL - PERFORH * 
•ADDITIONAL ISAM* 
' TRANSLATION * 


•NO**** 

I—>*06** 


► E3 *-> 09E3 


**E1******* 

* ALSO * 

♦COMPUTE COUNT* 

* OF REAL CCWS, * 
* STORE IN * 

* HEADER * 

*********** 


E ****E3********* 

* RETURN TO * 
,->*CALLER (DHKVIO * 

* E3 * 


;si?>**. 


NO .* HAS A 

-*. DISABLE 

*. ISSUED . 


SET R8 TO 
DISP. OF 
VDEVBLOK 


.♦DIALED FLAG*. NO 


1 


SETDIAL V 

**E5******* 

* SET R5 = * 

•FOR ( DIALED L LlNE* 
* DEVICES * 


•DISPLACEHENT * 
•OF ISAH READ TC 
♦LAST WORD IN < 
*—T STRING * 


*********** 


**F4****+»* 

* CLEAR R2 * 

*TO ( RBTuU 0 B IN^ 

** 1 OF°DMKCChV 

*********** 


*********** 


PROCESSING 


'•*‘1 ‘ 

IV2 V 


.♦ARE HE *. 
.♦TO START A *. 1 
*.NEH CCH LIST .*- 
♦.FORTHWITH.* 


.♦HAVE HE*. 

.♦HAD ANY UN-*. NO 


* SIGNAL NOT 
—>* FIRST CCH 


PROCESSED . 


?;•*•*-! 


* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


NO .* DOES USER *. 

-*. WANT ISAH .* 

♦.CBECKING .* 


* FLAG - ISAH * 
♦CHECKING WANTED* 


*********** 


CCHINDSD .*. 


► IS DEVICE *. 1 
DEDICATED . *- 


•DASD DEVICE* 
*********** 


**B1*' 

♦SET GLOBAL * 

'UiH-'iH’M*. 




****«£ 1**«*****«! 
•GET VDEVPOSN = 

* VIRTUAL 
♦CYLINDER NUHBEI 

* FROH VDEVBLOK 


****«<; 1**4 

*ADD RELOCATION * 

* FACTOR * 

* * 
***************** 


**H1 
* STORE 
► TENTA5 


*********** 


.•EITHER 3330*. NO 

► . OR 2305 .*- 

*. DEVICE .* 


* SET FLAG TO * 
♦RELOCATE SENSE « 


°¥ 


♦TRY TO RESOLVE * 
* TIC ADDRESS * 


*********** 


'“I 


♦FLAG BIT - AT* 


*********** 


**E4******* 


*********** 


♦THIS RCWTASK 1 
*********** 


.♦HAVE HE*. 


, IN THIS .* 


♦DISPLACEHENT * 
♦OF 1ST UNPROC. * 
* TIC IN * 
RCHHEAD 


♦DISPLACEMENT * 
>* OF LAST 
* UNPROCESSED * 


**H5******* 
♦STORE THIS * 

* IN COUNT * 

« FIELD OF 1 

* PREVIOUS * 

— i TIC* 


♦WE'VE HAD AN * 
♦UNPROCESSED TIC* 


*********** 





1 


♦GET CUT OF ♦ 

♦ UNPROCESSED * 
< TICS, SET TO 

♦ SEARCH ALL * 
♦ CHAINS * 



♦ REHEHBER * 
♦PREVIOUS CCW • 
► COBHAND AND 
♦ FLAGS < 



SUCCESS ^.*-| 


| CMKCCW — Translate a Virtual CCW List to a Beal list (Farts 5 and 6 of 31) 
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J DMKCCH — Translate a Virtual CCW List to a Beal List 

tsnm 3S 02JS 


* POIRIER TO * 
♦"THIS" RCWTASK ♦ 
♦TO HEW BLOCK * 
*********** 


♦ ADDRESSES 


.♦ SHOULD ♦. 
>*. ADDRESS BE 
♦.RELOCATED.* 


♦ TO FORH REAL 
♦^ADDRESS IH ** 
*********** 


(Parts 7 and 8 of 

* 

* 

* 

* 

♦ 


31) 


♦ ISOLATE * 

—>* ADDRESS FIELD < 

* OF CCW * 


'*1 


'‘"I 


.♦ADDRESS IH *. 
*. OLD COHTROL . 
*. AREA .♦ 


* ADJUST * 
—>*ADDRESS FOR HEW* 

* CCW AREA * 
*********** 


***** FI*********1 


**E2******* 

* ADJUST 
1ESS FOR 


*********** 


«.AHY CCWS LEFT.* 


-1 


**D4******* 

* REH EMBER * 

* ADDRESS OF * 
* FIRST CCW IH 
♦THIS RCWTASK^* 
*********** 


**E4******* 

♦REFEREHCE THE* 
♦ORIGIHAL IOBLOK* 


•IBS * * 

I ***** El * 
l->* * * 

* Cl ***** 


.♦IOBWBAP*. 

► FLAGBIT *. YES 
ALREADY SET .*-. 


**61******* 
*SET HEW R7 » * 

* ADDRESS OF * 
♦COHTROL WORDS* 


«*G4«****** 
♦SET IOBWRAP* 
♦FLAGBIT; SET * 


*********** 


**H4******* 

* COMPOTE S * 
♦STORE DISP OF* 

* REAL TIC FROM * 
* 1ST CCW IH * 
TASK 


■ GET REAL ADDR * 
♦OF FIAT TIC (8 * 
* LOCK) * 
***************** 


!**-) 


* AW * 
TICSUB7* . 


* 

* 

* 


**B1******* 

♦SET TO START * 
* AT FIRST RCW 
* CHAIR * 
*********** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 


•HEXT RCWTASK * 


.♦DOES IT*. 

.* HATCH *_ 
*. TERHIHATIHG . 
*. ■VALUE .* 


.♦ADDRESS*. 
YES .* LESS THAR *. 
<—*.START OF THIS. 1 


****D2********* 

* RETURH - R14 * 

► * ("FAILED") * 


*«F;«****** 

* * 

* COMPUTE THE * 
* EHD OF THIS 

* CHAIR * 


.•ADDRESS*. 

.* GREATER *. 
. THAR ERD OF . 


♦TO FIRST REAL* 


*********** 


****«K1********** 

* COMPUTE REAL * 

* ADDRESS * 

* DIRECTLY FROM * 

* DISPLACEHEHTS * 
***************** 


.♦ADDRESS*. 


**K2******* 


•****•**•*41 


* TICSOBI - RW * 

*************** 


.* DOES *- 
. * REAL *. 
*.ADDRESS HATCH.* 
*. VIRTUAL .* 


* IHCREMEHT * 
•VIRTUAL ADDRESS* 

* BI B * 


♦TO FIRST REAL* 
AMD VIRTUAL * 


♦THIS CHAIR 


IHCREMEHT 
♦REAL ADDRESS BY* 


u 


/. 


V J 









i 


rs 


r ^ 


CNTRLSOB^ ^ 

♦CNTRLSOB - BIO « 




tn 


♦♦B1******* 
♦SET R8 = 0 * 

* TO FLAG AS * 
♦CNTRLSOB ENTRY * 
* <f POINT ** 
*********** 


,*»&S VIRTUAL*. NO 


♦.ADDRESS VALID. *- 


CNTRLSB4 

***** & 4******4 

♦TRANBRNG 


♦ CONTROL BYTES * 
***************** 


NO .♦WAS VIRTDAL*. 


USER IDAW 


*********** 


CHTRLBAD . ; 


-♦.ADDRESS VALID.* 


.* CNTRLSBR ■ 
*. ENTRY POINT 


'“I 


10J1 
11B1 
11E1 
13E1 


.♦ VALID - 
‘.WITHIN OSES' 
*. STORAGE . 


*********** 


♦addbess P 0P E last* 

♦^ BITE 
*********** 


> F2 *->( 13B1 


'T»IS.3 k 




J I 0SER'S; 

IORAGB - 


I*:*** 1 


.* CHECK *. 
.♦IP ROOH POR*. 
*. 8 CONTROL . 

*. BITES .* 


‘I 


♦DECREHENT R7 * 

* (CONTROL WORD ♦ 
♦INDEXER) BY 8* 


.♦VIRTOAL IDA*. NO 
*. FLAG SET .*- 

'*, .*" 

♦YES 

*09 * | 

* K1 # *-> 13C1 

CNTRLSB2 .*. 


' BEGINNING E * 
ENDING * 
HALP-PAGE * 


‘ ADDRESL_ 

*********** 


'AGE . * -1 

.♦' V 


**g2******* 

* ADJOST * 

* COUNT POR * 
♦NONBER OF BYTES* 

* IN FIRST * 

* HALP-PAGE * 


♦♦J2******* 

* RBHEBBBR * 

* HOW HANY * 
♦BYTES LEFT OVER* 

* IN SECOND * 

* HALP-PAGE * 


*. POLL WORD 


.♦WAS IT ’ 
.* CNTRLSBR 
>*. ENTRY POINT 




♦♦D4******* 

♦MOVE CONTROL ' 
♦BYTES TO OOR R1 
♦CONTROL AREA < 


' WAS IT 
DMKCCWSB 
». ENTRY 


!*•*'*“! 


TA LEFT TO -. 

BE MOVED .* I 


*. E * 3 * 


♦*F3+****** 

* CLEAR * 

♦CONTROL WORD * 

* AREA, BOHP R7 * 
♦BY 8 FOR ITS * 

* RE-OSE * 

*********** 


L>*< 


10D1 

m 


k F4»******* 

SET R8 = * 

AL VALOE OF * 
(VDEVBLOK) * 

i********* 


****G4********* 

* RETORN - RIO * 
♦**♦♦****♦**♦** 


CNTRLSB5 
****** 1 
♦CCWCHKEY 


rr 


*. STORAGE . 


*********** 


♦♦Cl******* 
♦MOVE DATA TO ' 
* OSER STORAGE 


♦ .DATA LEPT TO .• 
*•BE MOVED .* 


‘I 
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♦ 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

(Parts 9 and 1C cf 31) 




13C4 
1J F 3 

'nil 




♦*C3»****** 
♦ISOLATE START* 

* 8 END ADDRESS * 
* OP DATA * 


♦.IN SAME PAGE 




♦INCREMENT R8 * 
* FOR REMAINING « 
* DATA ^* 
*********** 


* 1 F1**-> 09S4 

**** 1 

cHTBts ! 6 * F1 *i*.*.* 

♦GET VIRTDAL* 
**op G remainibg ; 
*********** 


* S3 *-> 

**** 

CCWHXT9 + ^ 

♦TRANLOci 

***************** 


♦ F4^»—j 13E4 

CCWBAD4 

.♦VIRTOAL*. 


.♦ ADDRESS < *. NO 

->*-2?al s §|chi»e*.*—, 




*********** 


♦♦G4******* 
♦SOBSTITOTB * 
♦"REAL MACHINE* 

► SIZE" IN CCW * 
* ADDRESS * 
*********** 


* GET REAL 
♦ADDRESS OP 2ND 

* IDAW 


CCWNXT11 < 

*****B3*i 

♦CLRSBNSE 


m 

15E4 
15P4 
15K1 


.♦WAS VIRTOAL*. YES 
♦.ADDRESS VALID.* 


ALID.*——| 


* CLEAR ANY OLD 
♦SENSE BYTE DATA' 
***************** 


•GO CHBCK POR < 
* PROTECTION 
* VIOLATION < 
*********** 


CCWIOCHK 

♦****H4********** 
♦CLRSBNSE 
*-*-*_*-*-*-•_*- 
* CLEAR ANY OLD 
•SENSE BYTE DATA' 


'* 11B3 

! **-i ug; 

' V PNOTE 


♦ .RCWINVL FLAG .*- 


IIHED^I*-j 


L>*09*' 


♦ YES 

L>*o*** 

* A1 * 


♦YES 
I—>*03 * 


TO: B3 
14D3 

m 

m 


TO: B3 
18E5 
20B1 
22B1 
22B3 
22B5 
22C1 
22C5 


TO:J5 22G1 
111! 23A4 
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****A1****** 
♦CNTRLSBW - B 


.♦VIRTUAL IDA*. YES 


~1 


****A2********* 

■ IDABSUB - RIO * 


♦TRUNCATE REGS* 

* TO 2048-BYTE * 

* BOUNDARIES * 


**C2******* 

* GET ENDING * 
♦MINUS STARTING * 

* ADDRESSES * 


> *—*i 181 

:e v 


.* IS IT 
• ♦WRITE ' A ‘ 
ERASE 

♦.OR OIL—» 


ml 

HER .' 


.♦DASD DEVICE*. YES 


* GET ADDRESS * 
♦OF LAST BYTE OF* 

* DATA * 

*********** 


ISER'sI*-, 

LGE .* 1 


♦♦F2******* 

* ALLOB FOR * 

* ONE EXTRA * 
♦DOUBLE BORD IF * 
*CC OR CD SET * 


* I 


► —J 17< 
>*-] 17( 


♦.SEARCH ID. * 


* STATUS * 

► MODIFIER TYPE ♦ 
*^OF COMMAND < * 
*********** 


CCHFORCE 

**C5***-—» 
♦RETAIN ONLY* 
♦SKIP AND SILI* 

->* BITS IN CCB 1 

* FLAG BYTE * 


♦INTO CCB FLAG* 

* BYTE TO FORCE * 
♦CHANNEL PROG.* 

* CHECK 


*********** 


INVIDAW 

**E5******* 
♦FOR INVALID* 
♦CCB BIIH IDA * 
->* SET, LET BYTE * 


L>*io*< 


,330.:.^ 


**P5******* 

* SET SKIP * 

* FLAG SO NO 1 

* DATA CAN BE 
♦READ INTO CP « 

* STORAGE * 
*********** 


.♦RELOCATION *. YES 
*. FACTOR = 0 .♦-, 

*♦. .♦* V 

*. .* ***** 


.♦BYTE COUNT *. NO 
‘.^AT LEAST 5 ^.*-j 

"*. .*" ***** 

♦YES *10 ♦ 




L>*- 


19 A3 
19C1 

Mr 


TO: D4 

fill 

26 B4 
26C1 
26C2 


26G4 

27C2 

28B2 
28H1 
28 J4 


* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 


SRCHID3 V 

***«*A3***4 

♦TRANBRNG 


♦IF IDA SET, GET* 


‘ DASDX2 - DASD * 



***************** 



1 * B2 * , 18K2 

,*. SRCHID5 V 

*. **B2******* 

B3* '*. 

j,. 

* B5 *-. 19D1 

CHEKREAD i 

♦****BS******** 


♦ CLEAR ♦ 

♦CONTROL WORD ♦ 

1 AREA, BUHP R7 * 
♦BY 8 FOR ITS ♦ 

♦ RE-USE ♦ 


.♦WAS VIRTUAL*. NO 
♦ .ADDRESS VALID. 


ALID.* i 


* RELOCATE * 
♦CYLINDER NUHBER*<— 

* ONLY * 


■ D1 ♦-> 


18H5 


SRCHID2 V 

**D1******* 

* STORE R7 * 

♦ (ADDRESS OF * 
♦ CONTROL BORDS) 

* IN CCB * 
ADDRESS 


♦♦El** 

* FLAG 
!■ ADDRESS 


♦RESTORE R1 TO* 
♦ITS USUAL VALUE* 


mv 

18K2 

28F1 


.* IS IT *. 

.* 02 (REAL *. 
’.IPL) OR OTHER.* 


♦ROOM FOR 3 *. YES 

CCWS PLUS .*-, 

♦.SEEK ARGS.* i 

.*" ***** 


* INSERT A SEEK 1 

* COMMAND (IF * 

* NEEDED) * 




RECORD RO . : 


>•’-1 


♦BYTES, RELOCATE* 
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BMKCCH — 

Translate a Virtual CCW 

List of a Beal List 

(Parts 

15 and 16 

***** 14C4 

♦ At* 


***** 22A4 
♦15 * 23B3 

V5* 29 A 3 

* 

***** 1525 

vr 

| 


[ 

* 

i 

I 


| 

* 

HNDLXSEN V 

** & 1 ******* 

♦ CHARGE OP * 

♦CODE OF READ ♦ 

♦ IPL TO 06 ♦ 

(RBAD) 

*********** 

■ msb 5L.»3*.«.*.** 

* DASDX3 - DASD ♦ 

♦LAST 4 BITS = 3* 

*************** 

1 

DASDX4 V 

♦♦♦*A5********* 

* DASDX4 - DASD ♦ 

♦LAST 4 BITS = 4* 

*************** 

* 

* 

**21******* 

♦SENSE BITES* 

* PRESENT - * 

* REFERENCE THE * 

* IO ERROR * 

* BLOCK * 

*********** 

1 


of 31) 


***** 15G5 


15G5 

i* 




®*?®JL*a3** ******* 

* DASDX5 - DASD ♦ 
♦EAST 4 BITS = 5* 


♦SAVE ALTERED * 
* COMMAND TO 16 1 
* BITES LATER * 
*********** 


* B2 *-1 23F2 

* * r 24B4 

**** 1 FNOTE 

HNDLNOOP V 

**B2******* 

* FINISH GP * 

* WITHOUT * 

r *CLEARING SENSE * 
* BITES * 

***** *********** 
*10 * .* 

* J5* ** 


>**i 


.* IS IT *. 

=03 ,*NO-OP (03),*. = 
-*. RECALIBRATE .*- 

*-m£**‘* 


♦♦D1******* 

* CLEf 

* V DEV PC 
(VIRTU" 

* NO. 

* VDEV1 


♦CCWPUTSK ^ ^ 


***************** 


IF > 13, HANDLE 
SET SECTOR 
(23) . DIAG LOAD 
(53f , OR DIAG 
WRITE (73) : 


* INSERT A SEEK * 

* COMMAND (IF * 

* NEEDED) * 
***************** 


*15 * 

iy~\' 

DASDT317 V 

***ACCESS * 

* IOBLOK, LET * 
->*I0BCIL POINT TO* 

* USER'S 1ST * 

* CIL * 

*********** 


**C4******* 

► CLEAR * 

VDEVPOSN IN 

► VDEVBLOK * 

*********** 


[S NEEDED (SEE * 
► "PUTSEEK") * 

* * 
*********** 


B5 *. 
.♦ANY OF:*. 
.♦SENSE (04),*. 
♦ .RELEASE 194),.' 
*. RESERVE .* 
*.^B4)^.* 

■*iBS 


HNDLSENS .*. 

C5 *. 

.*" IS SKIP ' 




J CCW .*-, 


**D5******* 

* SET CP * 
♦CONTROL BITE * 
► (BITE 5) AS 
* NEEDED * 


fa'll 


"1 


i t ™* >J ^ 


. SENSE BYTES 




► 13 * 

► C4 * 


♦♦FT******* 
♦INSERT RBAD* 
♦HOME ADDRESS * 

► CCW WITH SKIP < 
* # FLAG ON ** 
*********** 


+*F4*****+* 

.wasiM* 

************* 

L>*To** 


.* IS CP *. IBS 
♦.CONTROL BITE 
*. ZERO 


BYTE^.*-j 


♦♦G1******* 

* ADJOST R6 * 

* TO POINT AT * 

* THE ALTERED * 
♦READ IPL CCW ♦ 


*********** 


♦RESTORE R3,* 

* R4, S R1 TO * 

• THEIR USUAL 

♦ VALUES * 
*********** 


14B5 

22A2 

22E4 

23A3 

FNOTE 


READSKIP -• 


♦. FLAG IN CCW 


• K1 > 


ES ♦1-0 * 

m 


.♦RELOCATION * 
'. FACTOR = 0 


**05******* 

♦ RESET * 

► RCWHMR / 
1CW13T1 FLAG ] 

► CP CONTROL 

* BYTE ' 

*********** 


18G4 

19B2 

FNOTE 


CLEARADD 

**K ,-*** — 
♦LEAVE ADDR 

* IN CCW IF 
♦SKIP FLAG ON 

* ADDRESS WA: 
♦ IRRELEVANT^ 

TO:K1 l 

19F1 ***** 

22F1 *10 * 

23F2 * H3* 


8ff 


IU B , 2 

27 B 2 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*. BITES .* 


***♦*<; 1********** 
♦DMKUNTRS * 

♦CALL - RELOCATE* 
* CYL. NO. IN * 
SENSE BYTES * 


♦REMEMBER 1ST 8 * 

♦ BYTES (OR LESS)* 

* OF USER DATA * 
***************** 


♦♦C2******* 
♦RESTORE R3,* 
* R4, S SI 10 ' 


* INSERT A SEEK 1 

* COMMAND (IF * 

* NEEDED) 1 
***************** 


:T 


.* WRITE *. 

=05 • *DATA 705) , *. I 
i-♦ .WRITE RBC RO .*- 

I ‘ 




PtJTSENS 

♦♦Cl* 3 * 

♦GET LESSER < 
* OP: SEHSE 


*********** 


* OF COMMAND 
*********** 

L>:*o** 

♦ B3 ' 


USE IDA SO 
DHKUHTFR CAN 
FIND USER DATA 
IN CONTROL AREA 
AFTER THE IDAL 


♦IS IT 2311.*. 
2314, OR 2319.' 


'I 


♦LET R8 POINT » 
* TO SENSE DATA 

* * 
*********** 


CRLSBI 


***************** 


♦ ENSURE IDA * 
♦ HOT OH, SET 1 
♦SKIP FLAGBIT ♦ 
*********** 

L>*15% 

» B2 1 




♦♦B3******* 

♦ FOR 3330, * 

* SUBSTITUTE ' 
♦READ RECORD RO, 

♦ WITH SKIP ' 

♦ FLAG ON ♦ 
*********** 




T XE I*** V 

t_>*13 * A 

* C5 * 











i 






n*^********* 




*■ INSERT ft SEEK 
► COMMAND (IP 
K NEEDED) 
***************4 


*. SKI P FLAG SET.*-, 

*•*. .*'* I 


****A4********* 

* DASDXO - DASD * 
♦LAST 4 BITS = 0 * 


*•ISAM READS AT. 


'”1 


■ IS CCW OP *. HO 






SEEK (07) FOR 
' 00 OP CODE < 

* * 
*********** 


DASDRD06 


■ U ~l 


»H0 

1 •*** 
•->*1-3 » 


• ALL ISAM *. HO 

..aiHHf • 


"1 


* E3 t *—. 19F1 
**** V 
IRHAR2 .*. 

* E3 is *’« 

.♦RELOCATION'*. YES 
•*. FACTOR = 0 .*-, 

*-*. BTG * .*•* I 


♦CONTROL BYTE * 
* = RCHHHR FOR 
♦DBKURTFR USE * 
*********** 

L>*16*« 


-a * 


.♦EITHER ♦. 
.♦COMMAND- OR*. : 
—>*• DATA- CHAINED.*- 


*************** 


♦*F5*****»* 

♦FLAG VDBVBLOK* 
♦FOR STAND ALONE* 
* SEEK * 


>1.7 ‘ Wf, 

r* — 


■*;BESTO f RE 1 ll7) 


’"I 


♦ SIGNAL WE’VE * 

* HAD AT LEAST * 
♦ONE ISAM READ* 


**ji******* 

* GET * 
♦DISPLACEHENT " 
' OF THIS CCW 

* FROH BEGIN. ’ 

* OF TASK * 


♦REHEHBER SAAB* 

* IH WORK AREA * 
♦FOR LATER USE* 

*********** 


HANDLE RESTORE 

nti&iHn 

(13) COHNAND: 


■ 17G4 

■ 19B2 
* 19C2 


DASDSEEK .*. 




***************** 


-♦.DATA- CHAINED. ♦ 


♦FLAG VDEVBLOK* 
♦FOR STAND ALONE* 
* SEEK * 


RELCCHH 

CCWRELCH 
RELOCATE 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* '*NO "♦NO 

* ..L 

*14 * *m * 

* vr vj* 

* 

(Parts t? and 18 of 31) 


DASDX9 

****AU********* 

» DASDX9 - DASD * 
♦LAST 4 BITS = 9* 


c******* lc*4 


« HODIFISR TYPE *<— 
» OF COHRAND * 




.* WRITE *. 
.* HOHE ADDR 

"*.^EA^CH°ID. 

wr ?»*•* 




) DEVICE*. YES 


READ ONLY 




.♦RELOCATION *. YES 
>. FACTOR = 0 .*-, 


.♦IS IT 2311,*. ’ 
'.2314, OR 2319.*- 




**p i******* 

* FLAG THAT * 

♦ WE’VE HAD A ♦ 
*SEEK (NO LONGER* 
NEEDED) ^* 
*********** 


****G1»********* 


.*BOTTOH HALF*. NO 


.ATED^.*-j 


**p4******* 

" FOR 3330. « 


**G4******* 

♦SET SKIP FLAG* 

* AND USE 0 * 

* ADDRESS * 
*********** 

Ur. 


************** 


**S5******* 

♦ RELOCATE * 
^♦C YLjE NDER3NO. * 

** (2 byt1s) 3RD ’ 


► VIRTUAL 
CYLINDER 
►. NUMBER 
♦.VALID. 


■,- : U 


.♦BOTTOM HALF*. NO 
'.OF SIMULATED .*-, 


- STORE VALID * 
"IOBCYL" IN 
> IOBLOK * 

*********** 


.♦RELOCATION 


VIRTUAL*. YES 


, HEAD NUMBER .» 


~1 
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™ s °n**„********* 

* DASDXA -DASD * 


*************** 


HANDLE BEAD 
HOHB ADDRESS = 
1A OB 9Ar 


D if** 4 2******«** 

* DASDXB - DASD * 
♦LAST « BITS a B* 

* * 
*«•♦♦♦♦♦♦♦♦♦♦♦♦ 


D **** 4 3*****»*** 

* DASDXC - DASD * 
♦LAST 4 BITS = C* 

*************** 


♦ DASDXD - DASD * 
♦LAST 4 BITS = D+ 


♦♦♦♦A5********* 

♦ DASDXE - DASD ♦ 
►LAST 4 BITS ~ ~ 


>1B .*'CU (OB), ♦. =0B 

r *. SEEK HEAD .♦-, 


♦ INSERT A SEEK 

♦ COHN AMD (IF 

♦ REEDED) 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦■ 


.♦ ENS0BB OP *. 
►.CODE IS TA OR.* 
*. 9A .* 


n 


♦ INSERT A SEEK * 

♦ COWHAND (IF ♦ 

♦ HEEDED) ♦ 
***************** 


:b (OpI*-, 




*****2t********** 

♦PUTSEEK^ ♦ 

* INSERT A SEEK * 

* COMMAND (IF * 

* NEEDED) * 
***************** 


♦:*flag c IePin*:*^ 


DASDXF 

♦♦♦♦A!♦*♦♦♦*♦♦♦ 

♦ DASDXF - DASD ♦ 
♦LAST « BITS = F* 


>1F .*COUHT 

- “IT FILEMASK .*■ 


r' 


♦ SET TO * 

* ENSURE BYTE * 
♦COUNT OF t FOR ♦ 
♦SET FILE MASK* 


♦♦D2******* 

‘ LIMIT BYTE * 
COUNT TO 3 IF * 


*********** 


(Parts 19 and 20 of 31) 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 


POTSBBK 


i**l3********* 

' PDTSEEK - R)0 ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦♦♦♦&!)♦♦♦♦♦♦♦♦♦ 

>* RETURN - RIO * 
♦ ♦ 
*************** 


OUNT EXCEED^!*-1 *'. * CCHJ 




♦♦♦♦D3*****^*** 
♦CCHPUTSK - RIO ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


* NE'VE HAD A 
♦SEEK (NO LO—’ 

♦ NEEDED) 
*********** 


♦ "save CCB ♦ 


,C DO T SS?'< 


♦ FILL IN ♦ 

**\ E N ED ?g E F i§ L E r. 

* COMMAND ♦ 


♦♦H3******* 

♦ ♦ 
♦FLAG THAT HE ♦ 
♦HATE HAD A CP- ♦ 
♦GENERATED CCH^ 

*********** 


■ re5s,gc 
♦RELOCATE £ 
♦ ARGS 


► RELOCATION * 

FACTOR TO 

► CYLINDER 1 
♦ NUMBER ♦ 

*********** 


f 




f ^ 












I 



CCHRLC1 V 

**42******* 

* STORE * 

* RELOCATED * 

L >*CYLINDER NO. IN* 
* SEEK AR6S * 


< 42 * 


^.**SIMULATED**.^NO 


****B3********* 
-* RETURN - RIO * 


♦SET CYLINDER * 
—>*NUMBER INVALID * 
* = 4095 * 


**D1******* 
♦AND REN EMBER « 


*********** 


C2 *. 
.♦VIRTUAL*. 
♦HEAD NOMBER*. 

VALID (9 OR . 
*. LESS) .* 

'♦YES 


^♦BOTTOM HALF*. ] 
* .OF SIMULATED^.*- 


**E2******* 


.*HAS THE CCB*. YES 
, A SEEK HEAD - 


I 


**♦*03********* 
>* RETORN - RIO * 
*************** 


* VIRTUAL * 
♦CYLINDER NO. IN* 

* VDEVPOSN IN * 

* VDEVBLOK * 

*********** 


♦RELOCATED HEAD * 
♦ HUMBER * 
* * 
*********** 


****G2********* 

* RETURN - RIO * 
*************** 


DEDDX1 

****J1< 

* DEDDX1 - DEDD * 
♦LAST 4 BITS = 1* 
*************** 


= 11 . *NRITE (01),*. =01 

r *. ERASE (11), .*-, 

****** 


DEDDX2 

****42********* 

* DEDDX2 - DEDD * 
♦LAST 4 BITS = 2* 


* as Status * 

■ MODIFIER TYPE * 

* OF COMMAND * 


DEDDXj^ 


.£ 1 ********* 
IEDDX6 - DEDD * 
iST 4 BITS = 6* 


DEDDX7 a 


:***E2 ********* 

♦lSISTb^V 

************* 


| DMKCCW — Translate a Virtual CCW List to a Real List 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* ***** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

(Parts 21 and 22 of 31) 


***** 29A2 


DEDDX3 

****43********* 

* DEDDX3 - DEDD * 
*L4ST 4 BITS = 3* 

*************** 




.♦EITHER *. 

.♦WRITE DATA *. TES 

'. (05) OR WRITE. * , 

♦.RECORD RO.♦ I 

*-(15) 


> OP COMMASD * 

***t******** 


L>*io - « 


DEDDX9 

****E3********* 

* DEDDX9 - DEDD * 
♦LAST 4 BITS = 9* 
******•••**•*•* 


DEDDX *J,* E 4*,*.*.*** 

■' DEDDXA - DBDD * 
‘LAST 4 BITS = A* 


**+*E5********* 

* DEDDXB - DBDD * 
♦LAST 4 BITS = B* 


FLAG S sII 






.*IS THE CCB *. YES 

'. A SEEK (07) .*-1 

*'*. .*'* V 


Msr 


—I 


.♦EITHER SEEK*. NO 
•.HEAD OR SEEK .*-, 

% -* cx V'* Zl* 

* *YES *10 * 

l>: tr* vp 


L>***% 


**G3*< 

* FLAG AS * 

* STATUS * 

■ MODIFIER TYPE * 

* OF COMMAND * 
*********** 

i—>*10% 
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| DMKCCW — 


Translate a Virtual CCW List to a Beal List (Parts 23 and 24 of 31) 

* 


TAPEXB 

********* 

* TAPEXB - TAPE * 
*L$ST 4 BITS = B* 


TAPEXC 

****&5********* 

* TAPEXC - TAPE * 
♦LAST 4 BITS = C* 


****A2********* 

* DEDDXD - DEDD * 
♦LAST 4 BITS = D* 


.♦ HRITE ♦. 

•*<COOBT> KEY*. YES 
*.6 DATA (OD OE.*-, 


* AS Statos 

' RODIPIER TYPI 

♦ OP COWHAND 


t FLAG ON ^.*--j 


J 2 il% ifff 

TEPE **i-*E1********* 

SlSIHShIW 


TiPE 8** EI ,**„***** 
* TAPBX5 - TAPE » 
♦LAST 4 BITS = 5* 


TAPEX6 

****j?5* ******** 

♦ TAPEX6 - TAPE * 
♦LAST 4 BITS = 61 


♦IDABSOB ♦ 

*’** - CHB^ _ FOR~*' _ * 
♦ENOOGH ROOM AND* 
♦ HOB HAN^T IDABS * 





i 


TAPEXE 

****A2********* 

* TAPEXE - TAPE * 
•LAST 4 BITS = E* 


TAPBXP 

••••A3********* 

• TAPBXP - TAPE * 
•LAST 4 BITS = F* 


TERM XI 

****44*. 

* TEREX 1 - TERM • 
•LAST 4 BITS = 1* 


TERHX2 

•••*A5********* 

• TERHX2 - TERM * 
•LAST 4 BITS = 2* 


*************** 


* C3 **- ‘ 

**** 

3RMX4 


*************** 


TEHMX4 

****C3********* 

• TERMX4 - TERM • 
•LAST 4 BITS = 4* 
*************** 


*25 * *25 * 

* C4 *-1 27A4 * C5 *— 

5RHX5 V TERMX6 


*************** 


TERMX6 

****C5***»»»»*t 
* TERMX6 - TERM * 
•LAST 4 BITS = (,* 
*************** 


*25 * 

vy ~] 2 

5RHSAD V 


r' 


.♦HO-OP | 
. SADZER { 
*. OH > 


!):*:*— 


REFEREHCE 


.* IS IT A 
, REAL SENSE 
*. (04) . 


'•'1 


5 « 






.•IF > 13, IS*. NO 

’•*” 1°2?r s :?*-*^] 
*». .•’ ***** 
•YES *13 * 

■ **** * 044 

•—>*10 * * * 


•♦.DOES IT EXIST.* 


**F2******* 
•FORM SAD OP* 
•CODE FROM SAD* 
•NOMBBR IN REAL * 
♦DEVICE BLOCK^* 
*********** 


•SET TO BSE AN* 
* OP-CODE OF 
*^SENSE (04) * 

*********** 


TERM SKIPj 


P3******* 

JET SKIP * 

** *h h v G to%lT 

* FINISH OP 


* STORE * 
* CALCULATED OP * 

* CODE IN CCH * 
* • 

*********** 


•«H2******* 

:w: 
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♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

(Parts 


***** 28A3 


TERMX9 V 

****A2********* 

* TERMX9 - TEEM * 
•LAST 4 BITS = 9* 


*************** 


***** 28A4 


•LAST 4 BITS = A* 

*************** 


•LAST 4 BITS = B* 
*************** 


r *I (17), ENABLE -, 


YES .*X'13' BITS *. NO 

r *.- OH (i FOR (i ALL .*-, 

**.CCHS .*' V 

***** *. .* ***** 
*25 * * *13 * 

* D2* * D4* 


STATHODC 

**B3******* 

* FLAG AS * 

* STATUS * 
->* MODIFIER TYPE * 

* OF COMMAND * 


L- 


) 


, * IS IT A *. NO 

2700 BISYNC .*-. 

*. LINE .* i 


•SET FLAG - HE* 

* HAVE HAD AN * 
•AUTOPOLL CCH * 


*********** 


****F1********* 

* TERMXC - TERM * 
•LAST 4 BITS * C* 


?K*~ j : 


T EB M****P2********* 

* TERMXD - TERM * 
•LAST 4 BITS = D* 


* 2 F3**-j 28H3 

ZnB $i**F3********* 

* TBHMXE - TERM * 
♦LAST 4 BITS = B* 
*************** 


SiBFPbE.IW 


DIiL ?J*, P5 ********* 

*************** 


.•IS IT BREAK*. HO 
(OD) 


* l 


, *—_ r - --* • (IP) » DISABLE• *-* 

n r Kin** 0 ?*-* n 


•YES 

L>*1$’« 




L>**o*. 


25 and 26 of 31) 
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| DMKCCW " Translate a Virtual CCW List to a Beal List 


(Parts 27 and 28 of 31) 

* 


♦♦♦♦A2********* 

* DIALX3 - DIAL,* 
♦LAST 4 BITS = 3* 


♦***A4♦♦♦♦♦*♦*♦ 

♦ DIALX5 - DIAL ♦ 
♦LAST 4 BITS = 5* 


•♦EITHER ♦. 

:*SI d §§!b JUT.*” 

*•* < 23 > .•* ^ 


I-EH ABLE I 



♦♦D2******* 
♦REPLACE CCH* 
♦BY HO-OP, SET* 


♦REMEMBER DID* 
* VIRTOAL » 

* ENABLE * 


■*. (IF) , DISABLE.♦- 
*. (2F) OR .* 

*. >2F .* 




f 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

(Parts 29 and 30 of 31) 





♦COMPARE KEY* 


*IN STORAGE TO* 


*KEY IN CHANNEL * 
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DHKCCW — Translate a Virtual CCW List to a Real List (Part 31 of 31) 
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DMKCEE — Process DCP, DISPLAY, DMCP and DUMP Commands 


(Parts 

* 



* CALL - TO 
♦CLEANUP SHADOW 

* -HSUS_ 


X=20->01H2 














i 


! 0474 


" CALL-CONVERT 


************4 


*********** 


BUILD LING 


***************** 


DISKEY 

**** 12 ********* 
♦DISPLAY STORAGE* 
* KEYS * 


DIS 5!2SI i4 ********** 
* * 
♦SET ADDRESS IN ♦ 
OUTPUT BUP7ER * 


***************** 


i&L ^1*—| 


,♦ DUMP 
VIRTUAL 
*. REQUEST . 


*****D3********** 

♦DISINIT ♦ 

*_*_*_*_*_*_*_*_* 
->♦ BAL R7 INIT. ♦ 

* BEGIN AND ♦ 

♦ ENDING ADR. ♦ 
***************** 


***** 71 *♦< 
♦DISNRITE + 

*~COMHON OUTPUT ♦ 
* ROUTINE ♦ 
***************** 


CONTROL HERE 


♦♦F2******* 

♦SET UP RETURN* 
►REG 7 WITH ADR.* 
* KEYRET * 
*********** 


KEYRET 1 
*****G2*' 


* PUT IN BUFPER * 
***************** 


LAST KEYS .♦— 


***************** 


CONTROL HERE 


r^. 


DMKCDB — Process DCP, DISPLAY, DMCP and DUMP Commands 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

(Parts 5 


DISECB V 

****A3********* 
♦DISPLAY CONTROL* 
* REGS * 


IAL ^ 


► INCREBENT * 
*********** 


•*. VIRTUAL CP 
’♦YES 


****************! 


*****E4*********' 


*. VIRT1 


♦*F3*****^* 

* SET UP « 
► DEFAULT ADR. 

* RANGE 0-15 * 


•«G3******* 

♦SET UP RETN. » 
♦REG 7 NITH ADR.* 
* CRBET * 


->* BAL R7 INIT 

♦ BEGIN AND 

♦ ENDING ADR 
****************! 


**H3*********< 


♦CONHON DISPLAY * 


DISCOHH DOES 
NOT RETURN 
CONTROL HERE 


and 6 of 11) 
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DMKCEE — Process DCP, DISPLAY, DMCP and DUMP Commands (Parts 7 and 8 for 11) 


♦COMPOTE LENGTHS* 

* OF BEGIN AND * 

* END FIELDS * 


r >*I HYPHEN OR I*-, 

*. COLON .* 1 


|-».RANGE REQUEST.*• 


REQUEST -j 
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DMKCDB - 


'■■-v 

V J 


Process DCP, DISPLAY, DMCP and DUMP Commands (Part 11 of 11) 


****A1********* 

♦CONVERT ROUTINE* 
*************** 


:****B “| ********** 


CALL-CONVERT 


'**************** 


• AY I*-1 

!s y* \ 


' B4 *-> 03F3 


t**B4 ********** 


* CALL DMKCVTBH * 

* CONVERT FIRST * 

* HALF TO HEX * 
***************** 


♦TRANSLATE FLAG * 


U; 


♦.VALID ADDRESS.*- 


***************** 


* R4 RETURN * 
*************** 


♦.VALID ADDRESS .* 


♦***E2*** 

*R4 RETURN WITH * 
* BAD CC * 

*************** 


SET CC=0 
*********** 


**** E 3*: 

* R4 RETURN 


> CALL DMKCVTBH * 






*****D4********** 


'.DUMP REQUEST .*- 


T”S.« 

>—>*03 • 


:*-r 








*****H2********** 


*****113 ********** 

**TRANS IN USER** 
** PAGE ZERO ** 


****************4 


***************** 


* CALL DMKCVTBH * 
♦CONVERT LOC 72 * 

* TO HEX * 


‘ BUILD MSG. IN 
x OUTPUT BUFFER 
















********* 

;******** 

* ©TCP CUBRAND * 

******* 



i 

*01*** 



***** B2 *|******** 


*****81*' 

********* 


CALLERM^* 


♦♦SAVE REGS AND** 


<************* 


♦♦SAVE REGS AND** 
♦♦SET REAL FLAG** 


L>.“ 


c 


♦SET GPR 8 FOR* 

* RETURN TO * 
* STOLOCD * 


STOSCAN 

****+ Dl ********** 
♦DMKSCNFD * 


■*'1 


* OPERAND 

—>* HISSING HSG = 

* DHKCDS026 


'.REQUEST TYPE . 


*•***82*********> 
♦DMK^CNWT 

♦CALL-SEND STORE' 

* COMPLETE 

* MESSAGE 
.*•*******•> 


S ->03A2 

L ->03A4 

P ->04A1 

Y ---->05A3 
X >05A4 

STAT-> AS 

NTYP* 


♦***G2********* 

* RETURN TO * 

* DMKCFM * 
*************** 


****H1********* 
♦BRANCH ON GPR 8* 
*************** 


' LOAD MODULE ' 
IDENTIFIER 


NO .* CLEAN UP 


* CHECK * 
'LAG - CAI 
;0 DMKTRCI 
. NEEDED 


♦ ****jl)*****> 


RETURN TO 


"*1 


*****C5******* 


*****£5********** 

* STORE PSW AT * 


*****F5********** 

* STORE FLT.PT. * 

* REGS. AT 352 * 


♦****G5********** 


| DMKCDS — Process STCP and STORE Commands (Parts 1 and 


* 

* 

* 

►*. * 

!** * 

♦ 

* 

k * * 

-: * 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

2 of 


STOLOCA 

****A2******** 

* STOLOCA 

* SUBROUTINE 


> .*ADR. EXCEED*. 

■*. REAL STORAGE . *<— 


.***85***= 
REIURi • 


“’1 


R8 RETURN 


.*ADR. EXCEED*. YES 


( STORAGE .*- 


1 STORAGE MSG = 


*****82********* 

** TRANS-BRING * 
♦♦LOCATION INTO* 
♦♦REAL STORAGE * 


*. SHARED PAGE . 


* SHARED 

—>* STORAGE MSG = 

* DMKCDS161 


♦CALL - RESTORE * 

* OLD USER * 

* INSTRUCTIONS ■ 


** D4 ******* 

' SET FLAG TO * 


****E4********* 
* RETURN - R8 * 


****82********* 
* R8 RETURN * 
*************** 


6) 
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DMKCDS — Process STCP and STORE Commands (Parts 3 and 


♦CREGO OR CREG1 


* CONSTRUCT * 

* ERROR MSG * 
♦SHOWING CREG S " 
♦INVALID VALUE* 


♦DMKERMSG 


***************** 


♦ RETURN (R8) 

* STOCREGO < 
" STOCREG1 


**A3******* 

► HEXLOX 
INVALID MSG = 

► DMKCDS033E 


♦ADR. FIELD " 


**+** C 4********** 

♦DMKCVTHB * 


***************** 


*.VALID ADDRESS.* 

"*, .*' 

* *YES 


* INVALID * 

‘ HEXLOC MSG = *<— 

* DMKCDS004E * 


***************** 


STOLOSL 1 
*****F 2*’ 
♦DMKCVTHB # 

*CAIL-CONVERT, 


♦BYTE TO BINARY * 
***************** 


►.VALID ADDRESS." 
'*YES 


STOLOCL V 

*****£4********** 

:?i£e»*_*.*_*_: 

* BAL GPR 8 TO * 

* GET DATA * 

* ARGUMENT * 
***************** 


***************** 


. VALID DATA 
’♦YES 




*****j2********** 
* STORE DATA * 
***************** 


*03 * ( 

* G3^*-1 ( 

)S005* „ V 


* INVALID 

—>* HEXDATA MSG = 

* DMKCDS005E 


*****J4********** 


**K3******* 


4 of 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 


6 ) 




*. VALID DATA 


n 


► OUT OF EC " 


* CALL - CLEAR " 

* SHADOW TABLES < 


**C3******* 

■ RESET " 
•VMfeXTCM’ 

► STATUS BIT " 


* CALL - ENTER " 
♦TRANSLATE MODE * 


STOPSWIC 

****»D3**" 

♦DMKCVTHB 


***************** 


♦CHKJRACE 

♦BAL R8 -“CHECK " 

* FOR TRACING * 

* INSTRUCTIONS J 


.♦MORE THAN 8*. YES 

*. BYTES IN .*-, 

*. LENGTH .* | 


♦STORED EARLIER > 


*********** 


3W BITS 0**. 

) 2-4 ZERO .* 


***************** 


.* VALID HEX * 


STOPSHBD^J 

* CONSTRUCT * 

* ERROR MSG * 
->*SH0WING ILLEGAL* 


*»***P3********** 


***************** 


EC MODE *. NO 


► .^EC-MODE) BIT." 


**?4******* 


♦RESET FLAGBIT* 


1 INVALID PSW " 
MSG = 

1 DMKCDS012E " 


I 


'.EXTENDED PSW*.*-j 

* *YES * * 

U ****** A3 * 























I 


CALL-TRY * 
CONVERT FROM * 
HEX TO BINARY > 



* INVALID 


STOFPR .*. 

A3 *. 

NO .*ADR. FIELD'*. 


JDMKCVTDB ^ ^ 

* CALL-CONVERT 

* ADDRESS TO 

* BINARY 


C3 *. 

-*! VALID ADDRESS! * 


ST0 ?^* D3 *t 

♦STOSCAN 


STOCHG 

.♦ADR. FIELD'*. YES 


*DMKCVTDB 

*_*_*_*_»_*_*_< 

* CALL-TRY 

* CONVERT FROM 

* DEC. TO BIN. 


JALID CONVERT.*-j 


■ CALL-TRY 
' CONVERT FROM 
* HEX TO BIN. 


A1 *. 

NO .*' EC NODE 
,-*. MACHINE 


STOCRG1 

*****B2********* 

*CHKTRACE 

->*1al R8~- — check” 

* FOR TRACING 

* INSTRUCTIONS 


ST0 PI* D1 ** V *****, 

♦BUMP ADDRESS 1 


-*.6 BITS 

*. BE 5 

*****D2*' 

*STOCRGE 

- MUST.* 
ERO .* 

NO 

*Ial 7H8) 

♦WARNING 

”-”s!nd* 

TO USER* 
* 

J 

! 

s * ocm « K 2 *L„** 


**C3******* 

* SET R8 = * 

> A(STOCBEGO^ » 


< NEB CBO = *. YBS 
INVALID *.* - 


♦YES 


* *NO 

*YES * * 

**** * E2 * 

*°F4** > 06D1 ****** 

* 


'*H0 

*03 

* A 

1 

********** 

9 * 


*****F3********** 
♦DMKCVTHB * 

sTo siS* P4 *i******** 

♦STOSCAN * 

* 

* 

**P2******* 

STOCREGO 

**F3******* 



iDDRESS > 15^1*-j 


*.^VALID DATA ^.*-^ 

'♦YES *03 * 


J4 *. 

■'.VALID CONVERT! 


CDS162 

♦*J5******» 

NO * INVALID ECR 1 


vn 
, .* ***** 
♦YES *06 * 


| DHKCCS — Erocess STCE and STORE Commands (Parts 5 and 6 of 6) 
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DMKCFD — Process ADSTOP and LOCATE Commands (Parts 1 


*****01********** 
♦SAVE fiBGISTEKS * 
***************** 


♦ BIND FIRST 

* ARGUMENT 
****************: 


•*Y 


**D2******* 

* OPERAND * 
► HISSING HSG = 

* DHKCFD026 * 


■T 


♦♦D3******* 


*********** ***^ 


3 


*****g1********** 

;£S5g£!is.,_*.*-; 

* CALL DHKSCNAU * 

* FIND VHBLOK * 

:.***isssgi?***,; 


* E3 . 
**** 
CALLERH 


ill! 


c 


**B3******* 

LOAD HODULE * 
IDENTIFIES 

************ 


*.VHBLOK FOUND 


DND + .*-—| 


S3IIS-*-*-*. 

* CALL^DHKCSHSG 


****************> 


mr. 


* CALL DHKCVTBH * 
♦CONTEST VHBLOK * 

♦ ADR. TO HEX. 11 


♦ CALL DHKSCNFD * 

♦ FIND VIRTDAL * 

♦ ADDRESS * 

****************4 


♦♦J2******* 


'"""I 

*****(4********** 

*£*£*I* H t_*_*_*-* 

* CALL DHKCVTHB ♦ 
•CONTEST ADDRESS* 

* TO BINART * 
***************** 


**35******* 


♦.VALID ADDBESJ 


* CALL DHKSCNVO ♦ 
♦GET VIST. DEV. ♦ 

♦ BLOK ADRESSES ♦ 
***************** 


• 01 ♦ 

♦ D5 *-. 0 

♦♦♦♦ { 

?D040 V 


♦. BLOKS FOUND . 

*». .»' 

♦ IBS 


*****E4********** 
*DHKgCNWT_^ ^ * 

* _ CALL DHKQCNWt"* 
♦ WRITE HEADER ♦ 

:*****iisi** * 


♦♦D5******* 

♦DEV DOES NOT * 
►♦ EXIST HSG = 
♦ # DHKCFD040 ** 
*********** 


*«***F4**4 

**£g!£?£?£*.*-*-♦.♦ 

* CALL DHKFREE ♦ 




♦ CALL DHKCTTBH ♦ 
♦CONVERT VCHBLOK* 

♦ TO HEX. * 
***************** 


♦ CALL DHKCVTBH ♦ 
♦CONVERT VCUBLOK* 

♦ TO HEX. * 
***************** 


* CALL DHKCVTBH * 
♦CONV. VDEVBLOK * 

:„**52*gf?*****: 


and 

* 

* 

♦ 

* 

♦ 

♦ 

* 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

* 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

♦ 

♦ 

* 
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rs 818 


CFDWRIT V 

*****A2********** 

♦DHKgCNWT * 


10C »SJI, 


c ™^!* d2 *1 ..... 

* RETURN TO » 

* DHKCFH * 

*************** 


J3********** 


i**************** 


* CALL DHKCVTHB 

♦ CONVERT REAL 
♦ADR. TO BINARY 
****************1 


♦ .VALID ADDRBSS.*- 


♦ CALL DHKSCNRU * 

♦ GET ADR. OF * 
♦REAL DEV. BLOKS* 


= DHKCFD021* 
*********** 

I **** 

>—>*01 * 

* D3 ♦ 


*.^BLOKS FOUND^ 

"*. .*' 

♦ YES 


lUND^I*-j 


*****F3********** 

♦ DHKjjjCNWT + + + J 

♦"call dhkqcnht - * 

* WRITE HEADER * 

t***,*i * 


*****G3********** 

;£S£gzi£i_*_*_*_: 

♦ CALL DHKCVTBH * 
♦CONVERT RCHBLOK* 

* ADR. TO HEX. * 
***************** 


*****03**4 

♦DHKCVTBH f f ♦ 

♦""call dhkcvtIh - * 
♦CONVERT RCUBLOK* 
* ADR. TO HBX. * 
***************** 


* ADR. TO HEX. * 
***************** 


♦FOR REAL DEV.* 
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\ j 






















I 



****A2********* 
♦ADSTOP COMMAND * 
*************** 


***** B 2********** 
♦SAVE REGISTERS * 

***************** 


ADSTPOFF 

ADSTOP ACTIVE* x 

♦IBS 


\ l v 


|-*1 ADSTO] 


SPECIFIED *'.* 


* G« 1 




***»*F . 

unmn 

* BESTOHE 

* IHTHDCTIO! 

****************> 


***** F 2********** 
♦DMKCVTHB * 

* CALL DHKCVTHB * 
•CONVEF" — 


♦.VALID ADDRESS. *- 


**G3******* 

► INVALID 
—>* HEXLOC BSG * 

* DHKCFD004 
*********** 

I ***■ 
l—>*01 


. _JR. BITHIH*. 80 _ 

♦.USERS STORAGB.*->*^STORAG| d M|< 


**g3******* 

• HBXIOC 
EXCEEDS 
-RAGE r~ 
DHKCFD 


.*"PRE¥IOOS '*. 1 
•.ADSTOP ACTIVE. *- 


* RESTORE 

• PREVIOUS 
£****•********* 


CHEKSHR 

*****£4********** 

** TRASS BRING ** 
** ADSTOP *» 

->**LOCATION INTO** 

** STORAGE ** 

********** 


CFD161 

**B5******* 

* HEXLOC IN * 

* SHARED " 
->* STORAGE HSG = 

* DHKCFD161 * 
*********** 


> IS THBRE 
ALREADY 
f. BDFFER . 


* CALL DHKFREB 
*GET STORAGE FOR' 

* BUFFER 
****************> 


SETSTOP V 

*****24********** 
• * 
♦STORE INST. AND* 

* INST. ADR. IN * 

* BUFFER * 


*****F4*i 

* OVERLAY 
** 


ihexit^; 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 


>*»A2******* 

RESTINST 


► TBANS-B8ING 


♦.STILL IN COBE.*- 


***** 02 ********** 

* RESTORE * 

* INSTRUCTION * 

* BITH * 

* INSTRUCTION * 

* FROH BDFFER * 
***************** 


—>*.'0A’ STILL IN.* 


♦POT BACK FIRST * 

* BITE OF V 

* INSTRUCTION » 


*************** 


RESTINX2 Ei 

NO .*’* ’*. 

-*.JB3' STILL IN.* 


*****F3*********< 

•RESTORB SEC< 

—* BYTE OF IN! 

****************< 
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| BMKCP6 


Process SAVESYS Command (Parts 1 and 2 of 3) 


****A2********* 
♦SAVESYS COMMAKD* 
++**+++**++++** 


+4**22*** 

SAVE REGISTERS * 

t * 

**************** 


CALL - GET 
SYSTEH-NAHE 


*I*EIGHT CHAR.*I*- 


♦****F2********** 

**TRANS - BRING** 
** IN AND LOCK ** 
** SYSTBL ** 
** ** 
***************** 


CFG026 

**E3******* 

* OPERAND * 

* MISSING OR 
->* INVALID MSG ' 

* DMKCFG026E - 

* * 
*********** 


■n 


03F2 


**E4******* 

' ZERO PARM REG^ 

* * 
*********** 


♦»G3******* 


.* ENTRY IN *. 
*. SYSTBL FOR 
♦.THIS NAME.* 


.* NAMED *. 1 
♦.SYSTEM FIT IN.*- 
*.VIRT MACH.* 


*********** 


CFG170 

♦****H3********** 
♦SYSTONLC * 


► ONLOCK SYSTBL 1 


CALL - FIND * 
*VOL. FOR VIRT. * 
* SYSRES * 
***************** 


**J3******* 

* SYSTEM * 

* EXCEEDS * 
■ STORAGE MSG = 

* DMKCFG170E * 
*********** 


D2C1 

02D3 

02G3 




—>* CALL - SEND * 
* ERROR MESSAGE * 
***************** 


DMKERMSG HILL 
RETORN DIRECTLY 
TO DMKCFM - NOT 


♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

♦ 


***** 01K2 


***** 12 ********** 
♦DHKSCBVU ♦ 

♦~ CALL~-~GET ♦ 
♦VIRTUAL DEVICE ♦ 
♦ BLOKS ♦ 
***************** 


:*”1 


**d******* 

* VADDR HOT < 
FOOND MSG = 

> DHKCFG17 3E >1 

* * 
*********** 


*****D2********** 
♦DMKSCNVS 


**D3******* 

♦INCOMPATIBLE * 
* SYSRES MSG = 

* DMKCFG172B * 
*********** 


VOLOME 

MOUNTED 


CFG171 

***»*F3********** 
♦SYSTONLC 


'’"I 


* VOLOME NOT 

* MOUNTED MSG = 

* DMKCFG171E 


*********** 


INTPEND 

**A4******* 

* SET OP * 

* INTERROPT * 

♦PENDING MESSAGB* 

* * 
*********** 


«****B4**4 

* DMKjgCNHT ^ 

* CALL - SEND * 

* MESSAGE * 
***************** 


♦CALL - GET READ* 


**D4******* 
*SET OP RETORN* 
* FROM * 

*READ=SAVRETN * 
*********** 


*»***E4********** 
*DMKgCNRD ^ * 

*~ CALL _ READ ~* 
* REPLY * 
***************** 


****F4********* 

* GOTO DMKDSPCH * 


\ 















IT) 


a 

o 

•H 

-P 

(0 
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Cr> 
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o 
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| DMKCFM — Main Console Function Routine (Parts 1 ana 


*DHK£CHRD 

* ~CALL-READ 

* COMMAND 


C0NFBGN3 V 

****E3********* 
♦RETORH TO ALLOW* 
* ATTN ONLY * 



RESET CFWAIT * 
FLAS TO ALLOW ’ 
tJSER TO RUH * 


*match T argomeht*< 

♦AGAINST LIST * 


—>*'.* DIAGHOSE *'.*-j 


ARG.=COMMAHD^.*-1 


*****J1********4 
♦DHKgCHlT ^ ^ 
CALL - SEND 













i 




( 


1 —>* 02 ** 


COHFBBTH 

**** 12 ********* 

* BETOBH FBOH * 

* DHKQCHBD * 
*************** 


TIPB BETOBH I* 


COHFBGB1 ' 
****\3*> 

* BETOBH 

* COBH] 
pbocbs: 


NOBBAL 
BETOBH-BEAD 
NEXT LIME 


DMKCFHAT 

****iu********* 

* attehtioh * 

* SIHOLATOB * 

*************** 


***************** 


**** & 5********* 

* *COMMAND * 


*************** 


B2=8->05A5 


**D4***** , » t * 

♦ SET UP FOR * 
‘ PENDING ATTN. 


*********** 


| DMKCFM — Main Console Function Routine (Parts 3 and 4 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

of 


**** k -\*< 

* BEGIM COHHAMD < 


*****51********** 
* * 
♦SAVE REGISTERS ♦ 

***************** 




*****54*1 

♦SAVE REGISTERS ♦ 
***************** 


**C4******* 

♦SET OP RETORN+8* 
*********** 
L>*o*** 


■ E3 * 


* ABGOHEHT *. HO 


► CALL-COHTEBT * 


***************** 


♦ .VALID ADDRESS. *- 


♦♦F2** 8 ***** 


*********** 


;rr 


: BBBOB hesIage * 

***************** 


***** HI *********’ 
♦DMKTBCPB 


► IHSTBOCTIOHS 


♦DHKTBCIT 

*call _ - - sIt - hIh - 

* IHSTBOCTIOH 

* TBACING 


'*1 


BEGEXIT 

**K2******* 

* SET OP TO * 

* BETOBH TO * 
->* BETOBH 

* ADDBESS+4 * 


************* 


5 ) 
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IBM VM/370: Control Program Logic 154 


Jain Console Function Routine 


(Part 5 of 5) 


DHKCFMQU 

****A1********* 

* QUERY SCAN * 

* ROUTINE * 
*************** 


*****g1********** 
♦SAVE REGISTERS * 
***************** 


*****d*********’ 


, FIRST PASS .* 


**R3******* 

* SET OP TO * 
♦CALL DMKCQPRV* 
* AT PROPER ♦ 
♦DISPLACEBEHT * 


n 


CONHATTN 

A4 

.♦INPUT COURT*. 


:ouSt*. 1 


.*•* I 


.♦USES LOGGED*. YES 


.*•*• "I 


.♦USER LOGGED*,. 


**D2******* 


GENLIST *. YES 


****+C4** 
♦DHK^CRWT ^ + ^ 

♦CALL-SEND ~CP'~ 


* CALL-SIMULATE * 
‘ ATTEKTIOR ♦ 


**D3******* 

* SET OP TO * 
♦CALL DHKCQGBH* 

* AT PROPER * 
♦DISPLACEMENT * 


—>*. SCAN MADE 


‘>•*1 


.♦CLASS B OR *. NO 


SCANGEN 

»*F2»****** 

* SET UP TO * 
♦SCAN GENLIST i 

->* FOR DMKCQGEN 

* CALL ♦ 


** 61 ******* 

* SET UP TO * 
♦SCAN PRIVLIST* 

* FOR DMKCQPRV * 
* CALL 
*********** 


*****H1********** 


* AGAINST LIST 


->* CALL * 

* APPROPRIATE * 

* ROUTINE * 
***************** 

i—>*03** 


<-*. END C 


* YES 









i 



DMKCFPRR 

****A1********* 

* SYSTEM RESET * 


**«**B1********** 
* RESET NOTRANS * 


***************** 


* 02C4 

02D5 

* [ FNOTE 


RESEXIT 

****E2********* 

* RETURN TO * 

->* CALLER * 

*************** 


****FI ********** 


***************] 


HXT SS***« 


►GET ADDRESS OF 
►NEXT DEDICATED 
■ '””lNNEL BLOK 


***************** 


***** B 3********** 

♦DMKgCNWT ^ ► 

*~ CALL~SEND * 


****C3*1 
* GOTO DMKDSPCH * 
*************** 


♦.CHANNELS .♦ 


811 ? 

ofci 1 


***** B 5**** 


♦****cu********** 


SETCKC 

♦****J4********** 

♦DMKVATBC < 


♦GET NEXT SET OF* 
♦VIRTUAL^DEVICE * 

***************** 


*****H4********** 

♦DMKPERT^ # ^ ^ * 
♦"call - reIet ~* 

* TRACING * 


CALL-RESET 


’I 
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* 

* 

♦ 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

(Parts 1 


* B1 *-) 
RESDBK 


INTERRUPTS 


*. LAST DEVICE . 


RIO RETURN 


,*IS THERE AN*, 


V “) 


- DEDICATED *. YES 




. DNIT RECORD . 


* TORN OFF ONIT * 

,->*CHECK FLAG AND 1 

* ZERO CSW * 


I**, 


03B3 

03C3 

03G2 

03J2 


*•“1 


—>*.OUTPUT DEVICE.* 


*•CHAN—TO—CHAN « 
*. ADAPTER .* 

* *Y ES 


*. LOGGING OFF 


"i 


♦ .^REALLY CTCA^.*——j 


V 


—>*. ACTIVE FILE . 


, ACTIVE FILE 
’♦YES 


*****ES********** 
♦DMKVSPCO * 

SO *_*_*_*_*_*_*_*_* 

* -, * CALL - CLOSE * 

i * THE FILE * 

***** ***************** 

*01 * I 

* E2* **** 


>*************** 


***************** 
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| DMKCFP — Simulate CPU Console to Virtual Machine 








LioT- 


***************** 


*****32*** 

* CLEAR CHANNEL * 


bes SS*!*f2 


*Y2********** 

♦RESET INTERRUPT* 
♦PENDING FLAG IN* 
* VCUBLOK * 

***************** 


* 


*****q2********** 


* OTHER *. 1 
. INTERRUPTS .*- 
*. PENDING .* 


♦ RESTE CHANNEL ♦ 
—>*PENDING FLAG IN* 

♦ VMBLOK ♦ 


RESBUSY .♦. 

A4 *. 

NO .♦VIRTUAL SUB*. 
,-*.CHANNEL BUSY . 


—J! 


► CHANNEL BUSY 


*****C 3 ********** 

* RESET SUMMARY * 
♦PENDING FLAG IN* 

* VMBLOK * 
***************** 


‘.SPOOL DEVCIE 




***************** 


'V~i 


► RESET DEVICE 


EL I*-, 

:am*.* ] 


iL OR^ I ♦———| 


(Parts 3 and 4 of 10) 

* 

* 

♦ 

* 

* 


* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 


r 


* IS DEVICE *. 
REALLY CTCA .*< 


CKVIRT .*. 

* A2 * - * 
YES .*IS DEVICE A 


****A5********* 
< ENTER HERE 
‘ AFTER IOBLOK 
■ UNSTACKED 


’•’I 


'^V 


♦ YES 

*04 * 

* B3 *->i 03K4 

CKACTIVE .*. 

B3 *. 

,*' IS I/O '*. 
, ACTIVE NOW . 


‘I 


) TO DISPATCH * 


IBS .*IOBLOK FOR * 
-*. 1 TIO * OR 


* CALL - STACK 


* 4c * * * * * * * * * * * * * * * 


* CALL - STACK * 
♦THE IOBLOK FOR * 

♦ PROCESSING * 
***************** 


***************** 


****D3*** 

♦ GOTO DMKDSPCH * 
*************** 


TERMINAL 
**. .*' 
* *YES 


*****J5********** 


♦ .OPERATION. * 


r 














05K 1 


05J1 


1 


DMKCFPII 

****A1********* 

♦IPL ENTRY FROM * 
* LOGON * 



:T 


***************** 


NAME *. 
ARG.=SYSTBL . 
. NAME .* 


'~1 


IPL *****g1********** 

♦DMKSCNFD * 

*_*_*_*_*_ *_*_*_* 

* CALL-GET NEXT * 

* ARGOMENT * 

***************** 


CFP044 i 

*****G4*i 

♦SYSUNLCK 




*. PARM FOUND 


■"1 


♦****H3** S 

♦GET NEXT SYSTBL* 
—* ENTRY * 

***************** 


**H4******* 

* SYSTEM DOES * 
JOT EXIST MSG = 

* DMKCFP044E * 


hi 


>TED -j 


.* STOP REQ. < 


♦ZERO PARAMETER 1 


***************** 

*05** L>*0*** 

♦ K2 *-. ♦ B1 * 

**** l **** 

:fpoo 3 v 

♦*K2***»*** 

* INVALID ♦ 

->* OPTION MSG = ♦— 

♦ DMKCFP003E ♦ 
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* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

TO: H5 

ol'i * 

08G3 

08K3 jjc 

* 

* 

* 

* 

(Parts 5 


♦♦H5******* 


MESSAGE MODULE 
RETURNS TO 
DMKCFM 


l 


*****&-]****** 
*: SET FLAG I 


NOCLRCHK 

A3 *. 

.♦ARGUMENT =*♦. YES 
CHARACTER^. *-^ 

T 0 

t 


► RESET NOCLEAR ■ 


.* NOCLEAR 
*. PREVIOUSLY 
*. ENTERED 




IPLPARM 

*****C2********** 
♦CHKPARM * 




, PARM FOUND 


::■* “i 


ABREVIATION . 


BIN-... 
************** 


'.GOOD CONVERT^.♦— 

**. .** 

♦YES 


****+G2*♦♦*♦♦♦♦♦* 


* NOCLEAR > 
PREVIOUSLY 
*. ENTERED .< 


“"1 


**D4******* 

* INVALID 
—>* OPERAND MSG 

* DMKCFP002E 

*********** 


**** 1 ** 
:FP013 V 

**E4******* 

* CONFLICTING 
—>+OPERANDS MSG = 

♦ DHKCFP013E 
*********** 


,* CLEAR ♦. YES 

, PREVIOUSLY .*- n 

♦. ENTERED .* I 


♦SET CLEAR FLAG 
**************** 
1 ~>* 05*1 


' G1 * 


* ERROR MESSAGE * 

***************** 


***J2********** 
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| DMKCFP — Simulate CPU Console to Virtual Machine 


"*1 


• SET OP FOR 
CLEAR OR 
■ NOCLBAR 


♦*A4*** 

* STORE IN * 

* PAGE ZERO x 
■ DEV. S CONS. 

* ADR..CYL-NO < 


* B1 *->( 0502 
**** 

:allpgs v 

*****B1********** 
*DHKPG|P0 * 

* — call-clean up - * 

* FROM PREVIOUS * 

* IPL * 

***************** 


♦DMKCFPRR * 

*~CALL - RESET * 

* THE VIRTUAL * 

* MACHINE * 
***************** 


*********** 


, IPL BY NAME . 


AME .*-, 


■ El *-> 05F1 


IPL S5$S1 


***B1********** 

* FIND BIDDLE * 
♦PAGE OF VIRTUAL* 

* MACHINE * 


SET UP TO 
RETURN TO 
DMKCFM+4 


***************** 


.♦PAGING I/O * 


*************** 




**G2******* 


*07 * O' 

* G3 # *-. 1i 

„;;*** I 

PAl 

1 


SB 


**G3******* 

—>* ZERO PARM REG^* 
*********** 




, BLOKS FOUND . *- 


**K2******* 

* * 
♦DBV DOBS NOT * 
►* EXIST MSG = 

* DMKCFP040E * 


(Parts 7 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 
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CFP ***> 


.****E1 ********** 

♦SYSUNLCK * 

*Ial ip”—""UNLOCK *<— 
* SYSTBL * 


►REQUIRES DASD* 
VADDR MSG = * 

► DMKCFP173E * 

*********** 


CFP170 

*****A3********** 
♦SYSUNLCK * 


♦ CALL-FIND * 
♦VSYSRES VOLUME * 
***************** 


VOLUME FOUND^I*--j 


♦CALL-GET DEVICE* 
♦ BLOKS FOR * 
SYSRES 


•*. BLOKS FOUND .* 


♦*G3******» 

♦INCOMPATIBLE * 
* SYSRES MSG = 

* DMKCFP172E * 

*********** 


CFP171 

*****J3*« 

♦SYSUNLCK 


*= DMKCFP17 IE * 


‘"1 


***************** 


f*A4********** 


***************** 


♦DMKRPAGT 


NAMPAGER 

***** C5 *: 

♦SYSUNLCK 


I***************** 

L>*07** 


*♦*♦*04** 

♦RESTORE PSW AND* 


***************** 


***************** 


CFP172 

*****P3«********* 

♦SYSUNLCK 


*****F4********** 

* RESTORE GPRS * 
♦NOT EFFECTED BY* 

* PARAMETER * 
***************** 


♦RESTORE EC REGS* 



V i 
















i 


f > 




TO RESTORE 


.***♦*; 


♦****C1** 

♦HOVE THE SAVED * 
♦KEYS TO BUFFER * 


***************** 


**************4 


♦INITIALIZE FOR * 
->♦ NEXT RANGE OF ♦ 
♦ PAGES ♦ 

***************** 


SHJ W*S F H 


COMPUTE ADDRESS* 
OF NEXT * 
SWPTABLE ENTRY ♦ 
**************** 


*****q1*> 

♦STORE C< 
♦SAVED Pi 


.* MORE *. 

YES .*ENTRIES FOR*. 
-*. THIS GROUP .* 


->♦ CALL-GET * 

* STORAGE FOR * 

* SHRTABLE * 
***************** 


—>* CALL - FRET 
- TREX BLOCK 


DMKCFPIP 

****A5********* 
*IPL ENTRY FROM * 
* DMKCFM 1 


i***; 


'*B2********** 


*****************t 


* * * * * C 2 ********** 


♦ DMKgCNin 


* CALL—FRET * 
♦ORIGINAL PAG S * 

* 5WPTABLES * 
***************** 


CALL - SEND 
TRACE ENDED 
MESSAGE 

t*************. 


*****C3********** 
* FLAG SHPTABLE * 


NAHEXIT 

*****C4********* 
* SYSUNLC K 


♦STORE SHRTABLE * 

* ADDRESS IN ♦ 

♦ VMBLOK ♦ 

***************** 


**«** H 2*****’i 




\->* 


♦♦B5******* 

► SET NOCLEAR * 


♦DMKSCNFD ^ * * 

♦CALL-GET DEVICE* 
♦ADDRESS OR NAME* 


K.PSH IN ECMODE. 


NO * OPERAND * 

K-. * MISSING MSG = > 

I * DMKCFP026E * 


***************** 


♦ENTER TRANSLATE* 


L>;; 


* 

* 


* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 


<** A 2******* 

SYSUNLCK 


♦ PARK OVER ♦ 
♦64 CHARACTERS* 
♦ERROR MESSAGE =* 
* DMKCFP177E * 


****C2****** 


| DMKCFP — Simulate CPU Console to Virtual Machine (Parts 9 and 10 of 10) 
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IBM VM/370: Control Program Logic 160 


| DMKCFS — Process SET Command (Parts 1 and 2 of 14) 


*************** 
♦SAVE REGISTERS ♦ 
***************** 


"i 


SIGHT -n 


♦****F1********** 

•STORE ARGUMENT * 

• IN SAVEWRK2/3 * 

* * 
***************** 


**H2*’ 
• SET FI 
* SAVEW] 


► J2 


••A3******* 


♦AGAINST LIST < 
*********** 


SETLOOP 

Bj 

.*iRG. = LIST*. YES 


Jno 


—>*.VALID ABREV. 




02A2 

03C3 

03C4 

06A3 

FNOTE 


++C4******* 


* C4 *-1 

**** I 

'S003 V 


Pi 


02A3 

04D4 

05K3 

07K4 

FNOTE 


*********** 


*********** 


*********** 


***************** 


DHKERHSG HIIL 
RETURN TO 
DBKCFM - NOT 
HERE 


!K1 TO * 
i AEG. 1 


1 


8111 


. OVER EIGHT 


J FNOTE 
CFS026 V 

**J2******* 
•HISSING OR * 

* INVALID * 

->* OPERAND HSG = * 

A * DHKCFS026E # * 

' J2 * **** 

. * >—>*02 * 


* HOVE SECOND * 

* ARGUMENT INTO *— 

* SAVEHRK5/6 * 
***************** 


04K3 


06C1 
08A3 
08B2 
COL 5 


o T §^ 4 


09D1 
09D4 
09E4 

m 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 


RECDCPU V 

*****AI********** 
♦GET THE ADDRESS* 

* OF THE HCH * 

* COMMUNICATION * 

* AREA * 


* CLEAR THE < 
■ MESSAGE FLAG 




**A3******* 
ZERO PARM REG * 
*********** 
L>:sr* 

* C5 * 


SUBROUTINE 


SUBROUTINE FROM 
BRANCH FOUND IN 
LIST 


•♦El******* 


1 INDICATOR =1 
*********** 


••CALL' LET MCH * 

* HANDLE MODE * 

* REQUEST * 
***************** 

**** 

L—>*Q4 * 


PRI->04A3 

PAGE->04H3 

FAV->05A2 

RESV->06A2 

NOTE->06A3 

RECD->07A1 

DUMP->08 A3 

LOGM->1 0A3 

TIME->1153 


ACNT->12F1 

LINE->12F3 

RUN->13A1 

HNG->13A3 

MSG->13F1 

MODE->02A1 


**F2******* 

• GET ADDRESS * 


*********** 


♦ DMKjjjCNHT 


***************** 


* RETURN FROM * 


*********** 


***»*E4********** 
♦DMKQCNRD * 

*_*_*_*_*_*_*_*_* 

* CALL - READ * 

* MESSAGE * 


****F4********* 

* GOTO DMKDSPCH * 
*************** 


^ : x 
















1 



TSTONOFF^ 


*41********* 


CKEXTRA 

****44********* 
♦EXTRA ARGUMENT * 
* SUBROUTINE ♦ 




♦CALL - LOOK FOR* 
♦MORE ARGUMENTS * 


► CALL - GET NN » 


♦.ON SPECIFIED .*- 


♦ .OFF SPECIFIED.*- 


•'“I 




“1 


♦***D3********* 

* R7 RETORN * 
*************** 


****D4********* 

* RIO RETORN * 

♦ * 
*************** 


♦DMKCVTDB 


***************** 


'.GOOD CONVERT 


:*•*• ~i 


****F5********* 

* * 
* RIO RETURN * 


| DMKCFS — Process SET Command (Parts 3 and 4 of 14) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

♦ 

* 


SENDMSG V 

*****42********* 

♦DMK^CNWT 

* - call~-~sInd " 

♦ MESSAGE 


Q2F1 

05D5 

05F1 

05G3 

05G4 

FNOTE 


c 
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TO:B2 
07E2 
07G1 


'“l 


.♦USER LOGGED*. 


* USER NOT 
.♦LOGGED ON MSG 

* DHKCFS045E 


*•GOOD C 


IVERT^I *-j 


*****G3*********' 

* STORE NEW 

* PRIORITY INTO 

* VHBLOK 
****************. 


► H3 *-> 02C2 


.NT*’* i 


K3 *. 

♦ .‘good CONVERT I*- 


Program Organization 161 
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DMKCFS — Process SET Command (Parts 5 and 6 of 14) 




! > : '1 


CALL - GET * 
STORAGE FOR * 
TRQBLOK * 
************ 


* CALL - GET 1 

* USERID VMBLOK * 


***************** 


?O0ND # I*-1 


♦SET FAVORED AND* 
* PERCENTAGE * 
♦FLAGS IN VMBLOK* 


****♦1)5** ******** 
*DMKSTKIO * 

*_*_*_*_ *_*_*_*_* 

* CALL - POT * 

* TIMER BLOK ON * 


|TACK. 


SETFAVNP .*. 


r' : < 


■BIB* 


SETRESOF^ 


:***P4*«***«***] 


-.OFF 


SPECIFIED. *- 


* TORN t 

- > : aiSE isiLi 


***************** 

L>:sr* 


*****(53 ********** 

* RESET FAVOR * 
♦STATUS FOR THIS* 

* OSES * 


****************9 


* 

RESET RESERVE * 
FLAGS IN * 

CORTABLE * 


***************** 


♦•GOOD COHVERT . 






PERCENT *, 
ALREADY 
, ACTIVE .* 


**r3*****«« 


—>* IN OSE MSG = 


*********** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 


**A2******* 


♦RESERVE REQUEST* 


{->*05*' 


USER I*-, 

.*•* n 


.* OF PAGES 


***** 01 ********** 


*»***E1********** 


*********** 


*.* NHICH ONE .*. 
‘♦OFF 


:**** E 3********** 

TORN OFF * 
'NOTRANS FLAG IN* 
VMBLOK * 

* 

i**************** 


**P3***«*«* 
♦RESPONSE 'I/O* 
*CCW TRANSLATION* 
* RESTORED' * 


♦TORN OF NOTRANS* 
—>*FLAG IN VMBLOK * 


*********** 


L>*04 * 












i 




* CALL - GST 

* RDEVBLOK FOR 

* ACTIVE DEV 

* ** ** ** ** 4c * 4c* 4c ** 


♦SET OP RETORH* 

♦ FROM TSTONOFF * 


r-< 


. WHICH ONE 


***************** 


***************** 


RECDON 
YES .*' 


,************* 


* CLEAR IRHBLOK * 
♦TO BINARY ZERO * 




REAL 

IDDRESS 


♦.SPECIFIED.* 


*****F3********** 

♦DHKCVTHB * 

*_♦_♦_♦_♦_♦_♦-♦_♦ 
♦CALL - CONVERT * 

* ADDRESS TO * 

* BINARY * 

***************** 


♦‘.GOOD CONVERT^. *- 
’♦YES 


♦RADDR HISSING* 
♦ DHKCFS021E * 
*********** 


♦CALL - GET REAL* 
* DBVICB BLOKS * 
***************** 




CFS040 

♦****j4********** 

♦DHKCVTBH * 


, BLOKS FOUND . 


♦YES^ 

1—>*08 < 




♦♦K4******* 


► DHKCFS040E 


| DMKCFS — Process SET Command (Parts 7 and 8 of 14) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 


SECDSCAN V 

*****£ 1 ********** 
♦DHKSCNFD * 


v*~l 


IE/BIT -, 

“».*•* \ 


BITE->14A2 

BIT-> 14A4 

NONE->01C4 


♦***»C2******* : 

♦SET RECORD FLAG 
* IN RDEVBLOK 

***************> 
***♦ 
i—>*04 > 


I- TORN ON ’ALL* 


SETDHPDF^ 


♦E 3** *♦»***♦* 

♦TURN OFF 'ALL* 

* FLAG 

****************! 


" DEVICE « 
PRESENTLY 
*. SPEC. .* 


♦****G3********** 

* GIVE DEVICE 
♦BACK TO SYSTEH 

****************' 


>.AOTO REQUEST . 


*•*•*34********** 

* GET DASD * 
->* RDEVBLOK ADR. * 
♦FROB AUTO WORD * 
***************** 


I « 

I—>♦( 


♦CALL - CONVERT * 

* ADDRESS TO * 

♦ BINARY * 
***************** 


♦IGOOD CONVERT^!*-^ 


SY20-0880-1, Page Hoaified by T8L SH20-2624, August 15, 1973 


Program Organization 163 




















SY20-0880-1, Page Modified by TNL SN20-1624, August 15, 1973 


IBM VM/370: Control Program Logic 164 


DMKCFS — Process SET Command (Parts 9 and 10 of 14) 


* CALL - GET < 

* STORAGE FOR NEW* 

* MESSAGE BLOCK * 













i 




r-a'*'* SETREiL r|1 -*- 4 




■ SET OP fHTLBVEI.* 
• IH VBBLOK * 



* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

❖ 

* 

* 

* 

$ 

* 

* 

* 

* 

* 

* 

* 


DMKCFS 


Process SET Command (Parts 11 and 12 of 14) 


02C2 
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DMKCFS — Process SET Command (Parts 13 and 14 of 14) 


***** 02C2 




♦♦A3******* 


♦****B1*** 
♦TSTOHOFF ^ 

♦BAL IlO - TEST * 
* OH/OPF * 
***************** 


WHICH ONE 


***** C 2********** 


***************** 


*♦*♦♦ 01 ********** 

* TUBS OFF * 
♦VHCFR0H FLAG IH* 

* VHBLOK * 
***************** 


***************** 


WHICH OWE .*- 


***************** 


'li*. 


D. 


** F i******* 

^ TSTOHOFF < 
*********** 


***************** 


vy ~]° 

MIMS._I*. 


set 5«5* p3 .« 


* F4 
SETRAND 


■I' 


'♦.SPECIFIED, 


**************** 
1—>*08** 


***************** 


i:y~]' 

'S013 V 

♦+P5******* 

* CONFLICTING * 
->*OPERANDS BSG = 
*^DHKCFS013B " 
*»**♦»***♦* 

L>;sr, 


*****Q2********** 


*****J<I ********** 


***************** 
I **** 

L->*04 * 

* B2 * 


***************** 
1—>*04** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


.* BAS 'AND' 
». BEES 
♦.SPECIFIED. 




SETRBITE V 

*****A2********** 
♦RBCGETNH ♦ 

♦_♦_♦_*_♦_♦_*_*_* 

* BAL RIO - GBT * 

♦ HN VALOR * 
***************** 


.♦FIRST BITE *. IES 


♦. BEEN STORED . 


.♦SECOND BITE*. 
>*. ALHEADI .* 
*. STORED .* 


♦ ♦♦♦♦♦♦ *♦♦♦♦♦♦♦♦'! 


.♦SECOND BIT *. IES 
►. ALRBADI 
♦. STORED 




*****C2********** 

♦ STORE VALOE * 
♦INTO IRHBIT1 OF* 

♦ IRHBLOK * 

*****C3********** 

* ♦ 

* STORE VALOE * 
♦INTO IRHBYT2 OF* 

* IRHBLOK * 

♦****C4********** 

* STORE VALOE * 
♦IHTO IRHBIT1 OF* 

* IRHBLOK * 

***************** 

L>*08** 

♦ A1 ♦ 

* * 

***************** 

I ♦♦♦♦ 

>*08 * 

* A1 * 

**** 

***************** 

I ♦♦♦♦ 
>*0|i*^ 
**** 




'v y 
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IBM VM/370 


Control Program logic 168 


DMKCFT 


Process TERMINAL Command (Parts 3 and 4 of 6) 


**A3******* 


DEFAULT 

* CHARACTER TO *<- 

* RDEVCDEL * 
***************** 


CHA *****C«********** 
->* ZERO RDBYCDEL * 


*****D3********** 


T0M SS5I* e3 *! 


A *PROCESSING DONE* 
£******************** 


* G3 # *-1 C 

**** 

[REDEL 4 


**Q3******* 


***************** 


► ROWE SYSTEM * 

► DBF AULT INTO *<— 


»**•***• 

—>* ZERO RDETLDEL * 


!*************** 


♦CHARACTER INTO < 




to:e; 

04H2 


05J2 

05J4 

05K2 

05K4 

06C3 

06D4 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


♦♦A3******* 


■ FOR ON-OFF OR * 


* MOYE SYSTEM * 

* DEFAULT TO *<- 

* RDEYLEND * 
***************** 


* HOVE NED LINE * 

* END CHARACTER * 

* TO RDBVLEND * 
***************** 


->* ZERO RDEYLEND * 
***************** 
1—>*03** 


*04 * 

i:y~] ‘ 

SCAPE ^ V 


**P3******* 

!EToInS D FROM " 


***************** 


k***H2********* 


***************** 


*****H4********** 

->* ZERO RDEFESCP * 

***************** 

1—>*03** 

* E3 * 


***************** 


o 












* 


o 


**k3******* 


*****C2********** 

♦TURN OFF PRINT * 

* SUPPRESS FLAG *<— 

* IN RDEVFLAG * 


* SET PRINT 
► SUPPRESS FLAG 




IF RETURN HERE 
- MEANS BAD 
ARGUMENT 


:-*v 


**F4 ******* 

* * 

* INVALID * 
—>*DEVICE TYPE MSG* 
♦= DMKCFT006E ♦ 


** G 3******* 


*********** 


r v 


APLOFF 

- >*'. ALREADY OFF J 


OFF^. *-j 


' ADD EIGHT TO 


IF RETURN HERE 


► *K4*****»***< 


***************** 


* 

♦ 

♦ 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


DMKCFT — Process TERMINAL Command (Parts 5 and 6 of 6) 


***** oic5 


*********** 


♦CALL - CONVERT 
♦ LINE SIZE TO 


*****C1********** 
♦RESET RDEVATOF ♦ 

♦ FLAG IN *<- 

♦ RDEVTFLG ♦ 
***************** 

I—>*03** 


* RETURN ♦ . ( 
ON/OFF OR .♦- 
*. CHAR. .* 


*****C3********* 

♦ SET RDEVATOF 
->* FLAG IN 

♦ RDEVTFLG 
*********: 


! **< 


IF RETURN HERE 


* ZERO *. YES 

LINESIZE .*-, 

*. SPECIFIED.* I 


STORE NEW 


LINESIZE IN 
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IBM VM/370: Control Program Logic 


| DMKCKP — Checkpoint Processor (Parts 1 and 2 of 8) 


^UN-IT FOUND - 


•> ADDBESS IN GPB1 <-, 

**************** **** 




WASH .*CPID EQUAL ♦ . NO 
-*. • CPCP * OB .*-, 

f %:»»«»•.*•* J 


* SENSE CCS AND > 
♦GET FULL DEVICE- 

♦ ADDBESS - 


vnr 


"i r 


► POINT TO NEXT " 
* CHANNEL INDEX < 

► ENTBI « 


*_^ * »2 * 


♦ ZEBO FIBST 8 1 

♦BITES OF BUFFEB- 

* (BECOBD ONE) - 


.♦SUCCESSFUL ♦. YES (YES . 
». HIO .*-, «-*. 

v .♦•* n 


^ FOB OSEB *.*■ -J 


* OUTPUT SECOND 

* DELIHITEB 

* BECOBD 

♦♦♦*♦♦♦♦*♦♦♦♦♦♦4 


SET TO COBPABE ♦ 
CLOCK VALUE ♦ 
(BECOBD 1) TO * 
DHKBSPCV ♦ 


t BUSY -j 


♦SET UP TO HALT 

* ALL BEAL 

♦ DEVICES 


i **** * 14 * 

l _>*01 ♦♦ ♦ 


1 



























i 


LOGEND V 

♦****A1*********' 
♦MOVE DATE TIHT ' 
“► AND DAY INTO 
DELIAITER 
RECORD 


07C3 

07C4 


-*1 


* CLEAR SPBRECS 
•FIELD - OR HOP 


* HOVE * COLD* TO * 

* CPID INDICATE * 

* HOT RESTART * 


* 

♦ 

* 

* 

♦ 

♦ 


>*A2 *********’ 


LOAD GPR10 HITH* 
ADDRESS OF IPL * 
DEVICE * 


•Oft * 08F1 


HXTFILB 7 

*****A4*********' 
•POTREC 


OUTPUT 

DBLIHITER 

RECORD 

t***************> 


SAVE,-SPOOLING 


*****D1**«**>i 


***************** 






**************** 


*****Q-\********** 

•GBT ADDRESS OF * 
•CLOSED PRINTER * 
•FILES- DHKRSPPR* 
* * 
***************** 


CHAIN SCAN, 


**************** 


••.DEVICE CLEAR .* 


***E3*********** 

•START 10 READ * 
DHKSAVRS IN TO 
• STORAGBS * 
**************** 


***F3*> 

* 

,-> TEST 10 


*03 * 05K3 

* H4 *-. 06B2 

****** H 06H1 
3G902E V 


•n 


05G4 

07C1 

07D2 


*****g5********** 


•GET ADDRESS OF * 

* FIRST OR NEXT < 

* FILE * 




>****K5********** 

SET ERROR MSG * 


**************** 


| DMKCKP — Checkpoint Processor (Parts 3 and 4 of 8) 


♦ 

* 

♦ 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 


****C1*< 

* R12 RETURN * 

*************** 


*****g<| *4 

_ 

1 

*****g2********** 

WARM* 

♦**** B 3* 

_ 

* 

__ 

_ 

C0N5LP 

****♦02* 

.,**„« 


******** 

**.** B5 * 

******** 

♦POTREC 


•POTREC * 


* 


* GET COUNT AND * 

* UPDATE 

BRANCH * 

* GET COUNT OF * 

* OUTPUT * 

* DBLIHITER * 

♦“output sfblok - * 

* RECORD * 

•RDEVBLOK OF IPL* 


♦DHKSAYRS ENTRY * 

* POINT * 

• HESSAGE * 

* INDEX 

BY 4 * 

* / PUNCHES * 

* RECORD * 

***************** 

* * 
***************** 

«**•*.* 


* 

******** 

►.**.**** 

******** 

********* 

***************** 

***************** 

1 


•DHKGRAHT 

*~BALR R14.R15 " 
* HRITE HESSAGE 
****************< 




-••LAST HESSAGE . 


.* *. YES 

►.ERROR HESSAGE.*- 


SHDTDOHt 

COHPLET! 


DISK ERROR 
FROGRAH CHECK 
HACHINE CHECK 


****G3**< 

•BRROR iAIT PSH J 
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DMKCKP — Checkpoint Processor (Parts 5 and 6 of 8) 


♦GET NEXT INDEX ♦ 
♦ENTRY AND CLEAR*<— 
♦ ACBDFF * 


•*. LAST DEVICE . 


“•-■-I 


****32********* 

* RETORN TO * 

* CALLER * 

*************** 


*****£3***** 


***************** 


■T 


***************** 


♦ SET UP ACBUFF 
♦AS RECORD TO BE’ 

♦ WRITTEN 


MOVE 'DUMMY BK' 
‘TO SFBDATE DISP’ 
IH ACBUFF 
!**************** 


****D3********** 

♦ 

GET ADDRESS OF * 
NEXT RECORD * 
SLOT IN BUFFER * 
**************** 


♦♦♦♦♦S3♦*♦**♦♦**♦ 


♦GET ADDRESS OF * 

—>* NEXT SLOT IN * 

* BUFFER ♦ 

♦ * 
***************** 


*****E5********** 


GETCLAS: 


* MOVE CLASSES * 

* FROM RDEVBLOK * 

* TO SFBRECS * 
***************** 


***** 01*1 
♦GET FULL DEVICE* 
* ADDRESS AND ♦ 


*♦*♦♦*♦♦♦♦**♦♦*** 


*****F5**1 

* UPDATE 

* DISPLACEMENT 

* INDEX AND 

* RECORD COUNT 


**************** 


rr 


♦INVALID WARM 1 
—>♦ START DATA 


-DMKCKP904E * 


♦***G5********* 

* RETURN TO * 

* CALLER * 


■ H3 *-> 06G1 


*****H3********< 


* RDEVDRAN AND * 
♦RDEVDISA STATUS* 
*IN SFBPNT+1(1) * 
***************** 


**»**J1 

*SET sfbr: 

* SFBFL_ 

* INDICATE 

* SFBRECS IN 

* COMPLETE 
***************** 


* START 10 - * 

WRITE OUT 
* RECORD * 
**************** 


***************** 


:onal^.*-1 


* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

♦ 


***** 05K3 


CC=2 BUSY # .*-1 


‘‘I 


BUSY^I*-j 


**************** 


ACCTOFF COPY 
FILE: TO FILL 
IN USER 
ACCOUNTING 
CARDS 


****B4*< 

* USERCARD 


**»**C1********** 

♦MOVE IN NEW 10 * 
* PSW -JOINT- * 


*. NO 
♦.INTERVENTION .*- 
* .REQUIRED .- 


ITION I*-1 

!ED*.* J 


WAITI 

****D1 *’ 

♦WAIT FOR 10 TO * 

->* COMPLETE *<- 

*************** 


,D 


* FILL IN PAGE * 

* READS AND * 

* WRITES * 

***************** 


*****B4********** 


*. ANY ERRORS 


I 


*****F2********** 

* UPDATE RECORD * 

* NUMBER AND * 

->* CONVERT TO * 

♦TRACK AND HEAD * 


* FILL IN THE 

* USERID AND 
♦ACCOUNT NUMBER 


’"I 


***************** 


HOVE IN 
DELIMITER 
RECORD 


♦****G4********** 
♦FILL IN TODAYS * 


***************** 


♦****H4********** 

* COMPUTE THE * 

* TIME FROM THE * 

* THE DMKSYSCK * 


ACCTOFF COPY 
FILE: TO FILL 
IN DEVICE 
ACCOUNTING 
CARDS 


****B5**i 
* DEVCARD 


***************** 


»****D5********** 
* SET CARD CODE * 


***************** 


***** 05 ********** 


B5********** 

* FILL IN CARD 


****«j2**i 

* MOVE 8 BYTES 
*X*EE' TO FIRST 

* 8 BYTBS IN 

* BUFFER 


***«*j4********** 


START 10 SENSE 


*****K2********** 


***************** 


****K4********* 

* RETURN ON R5 * 
*************** 


n 


o 
















1 



***** 04C4 


<***A3********** 


***************** 


♦GET ADDRESS OP * 
♦STSTEH READERS * 


***************4 


CHK04 „ ? 

******5********** 

* HOVE SISTEH * 

* SPOOLID ♦ 
TO J 


*****g5********** 

♦GET ADDRESS OF ♦ 
* DELETE PILE * 


♦SIS RECOVERY < 
* FAILURE- 
* DHKCKP900E < 
♦♦♦♦♦♦♦♦♦♦♦ 

L>*03*i 


**C2******* 

< SBTUP HSG- 
DHKCKP901E 


*****D2********** 


***************** 


► CLOSED PUNCH 
PILES - 
DHKRSPPU 


♦♦♦♦♦C4♦♦♦♦****♦♦ 
♦GET ADDRESS OF ♦ 

♦ CLOSED .HEADER ♦ 

♦ FILES - * 

♦ DHKHSPRC * 
***************** 


***************** 


DMKCKP — Checkpoint Processor (Parts 7 and 8 of 8) 


♦ 

* 

* 

♦ 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

♦ 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 


***** 04C4 


CHK05 V 

*•***& 1 ********** 
♦GET ADDRESS OF ♦ 

* OHNDLIST AND * 

* COUNT OF * 

* ENTRIES * 
*******♦***♦*♦♦♦♦ 


♦GET ADDRESS OF * 
—>* NEXT RDEVBLOK * 


CHK06 V 

•♦♦♦♦A3********** 
♦GET ADDRESS OF ♦ 

♦ SYSTEM HOLD ♦ 

♦ QOEDE - * 

♦ DHKRSPHQ ♦ 


NXTREC^ 


**£ 1 ********** 


***************** 


. LAST ENTRY 


* IE ***» 

L>*04*< 


♦HOVE ALLOCATION* 
->* RECORD TO * 
* BUFFER * 

***************** 


.*' VALID "*. NO 




.♦VALID USBD *. HO 




*****B4********** 

* SET UP TO * 

* RE-HRITE DISK * 

* RECORD ONE * 

***************** 


'HOVE DELIMITER 




***************** 


I 'HARH* TO * 
CPID * 

L>*03** 

* B3 * 


♦HOVE 'SHUT* TO * 
->* CPID AND * 
* INDICATE SHUT * 

***************** 


*DHKCKP960I S AHD*< 
* DHKCKP961B * 
*********** 
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| DMKCNS — Beal Terminal (Console) Manager (Parts 1 and 


****A3********* 

* DMKCNSIN * 
*************** 


***************** 


N0TCHAN2 

D1 *. 
UNIT CHECK 


'*“5 1 


r 


IDENTIFT^.*.^ 

NO ”*. 

-*.CHANNEL ERROR.*<— 

* *YES 




i 

k*3210 TIPI 
CONSOLE 

"*NO 


.♦■condition"*. YES 
*. CODE .EQ. 0 .*- 


h m 

V FNOTE 


♦ .CHANNEL ERROR. *- 


^SIO EQ CC1 | 


* “L 

*03** 

VS* 


****G4********* 
*- SVC 0 - ABEND* 
* CODE = CNS002 * 
*************** 


*****H3********** 

♦INCREMENT ERROR* 
* RETRY COUNT * 


***************** 


k TO EBCDIC HEX * 
-...-******** 


♦*H5*****k 
• MESSAGE = 


*********** 


CONREPET .*. 


V ’"1 


* WHITE MESSAGE * 
► TO OPERATOR * 


!—>*02** 


STNXTREQ V 
****¥k5* ! ‘ 


********* 


* CLEAR INPUT 
‘ BUFFER TO 
5 BINARY ZEROS 


2 of 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


23) 


' MU 


CONLOGOP V 

*****£ 2 *********’ 
♦DMKgCNCL # # * • 

* CLEAR CONTASK 

* STACK 


*****B2********** 
♦FRETIOBR * 
*_*_*_*_.*_*_*_*_* 

* FRET IOERBLOK * 
***************** 


YES .* VMLOGOF *. 

r*-*-*: NE - °.*-*'* 


*****E2********** 

* MAKE USER * 

* NON-RDNNABLE * 

* (VMFCWAIT ON) * 
***************** 


*****p2********** 

* INDICATE NOT * 

* RECEIVING * 

* MESSAGES * 
***************** 


LOGOUT USER 


c 


04 K4 
07A3 
FNOTE 


.* 3210 TYPE « 


*****A3********** 




***************** 


-* . TTY TERMINAL . 


*****03********** 

* SET CCW PTR * 

* .EQ. WRITE * 
♦BREAK l DISABLE* 

* CCW * 

***************** 


*****03********** 


****»{■ 3**1 

* CLEAR ERROR 

* RETRY COUNT 


***************** 


*.TTY TERMINAL .*— 


JET DEVICE TYPE* 
.EQ. TYPUNDEF * 


c 


01K5 
05D4 
06B5 
06F3 
FNOTE 
'"****♦J3*i»******* 
♦SET IOBCAW .EQ.* 


09E1 
10G3 
11G4 
FNOTE 
:**A4********** 


—>*TURN IOBERP OFF* 


CONREjjSUE^ 


♦QUEUE AND START* 


****C4********* 

* GOTO DMKDSPCH * 
*************** 


i******************** 


12F3 

14E2 

15C4 

15D4 


20H2 12B5 


TO: A4 
14K2 
16K5 



V 


















DMKCNS — Beal Terminal (Console) Manager (Parts 3 and 4 of 23) 
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| DMKCNS — Real Terminal (Console) Manager (Parts 5 and 6 of 23) 


->* S21 iMUk'*': 


DEVICE EHD + -^ 










i 


o 




**n* 


EMERGLOG .♦. 

A3 *. 

.♦‘alternate'* 


*.DISABLE LINE 


I 




*****B2********** 

♦SET IOBIRA .EQ.* 
♦ RTNPRBP ♦ 

***** ************ 


♦****C2********** 

♦ INDICATE PREP * 

♦ ACTIVE ♦ 

♦ (RDEVPREP ON) ♦ 






c**54****»***< 

FRETIOER 


(RDEVDISB ON) 


• SET CPEXADD 
« .EQ. DMKCPIEH 


♦RETURN IOERBLOK* 


*****t)l\**t 
* ZERO IOERBLOK * 


► I 3210 CONSOLE^" 
*‘*YES 

l>:s;% 


♦***E4*** 

♦ RETURN 14 * 

*************** 


* STORAGE FOR 

* MESSAGE 

l<***************] 


l* TO EBCDIC HEX ♦ 
***************** 


**D5******* 

1 MESSAGE = * 


*****25********** 

♦ WRITE HESSAGE ♦ 

* TO SYSTEM * 


♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 


****12******* 




V - : —\ 


♦.CHANNEL ERROR.’ 


n 


IECK *.* -j 


*****F2********** 


.♦ERROR RETRY*. NO 
■*.EXCEEDED . 


♦YES 

L>*02** 




*****P3********** 

♦ IN retry N coont OR * 

***************** 


.♦ERROR RETRY*. YES 
*'*.EXCEEDED .*’* 


IOBIOER '♦. YES 
• EQ. 0 *.*■ -1 


► FRET IOERBLOK < 


‘ - ABEND 8 - 

* FORCE SYSTEM 


| DMKCRS — Real Terminal (Console) Manager (Parts 7 and 8 of 23) 
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| DMKCHS — Beal Terminal (Console) Manager (Parts 9 and 


of 23) 


♦ B5 *-, 21BI 

)NRECI . V 


BITO->2114 

BXT1->2115 

BIT2->21F1 

BXT3->21F2 

| BIT4->21F3 

i BIT5->21F4 

| LSTD->21F5 

TOHG->2211 


♦I0BI0BIR1, SET ’ 
* THE NEW IR1 * 
♦TO 'TTYUERE* 


♦10 ♦ in: 

* F3 *—| nc: 

EITHER V 


♦ I COUNT !♦-, I 

♦.EXCEEDED .♦ I 


CONIOSQ V 

♦♦♦♦♦H3********< 

♦DHKFRET 

















CODE .EQ. 3 + .*-1 


* INDICATE TERM * 

* NOT IN HIO > 

* (RDEVHIO OFF) * 


| DMKCNS — Beal Terminal (Console) Manager (Parts 11 and 12 cf 


Program Organization 179 













IBM VM/370: Control Program Logic 180 


[ DMKCNS t- Real Terminal (Console) Manager 


***** 12K2 




****A2********* 

* EXCLAIM * 

* SUBROUTINE * 


t************ 


—*.MACH IH WAIT .* 


***************** 




>. (RDEYATOF.* 
*. ON) .* 


SIMATTN 

*****E1*** 
JDMKCFMAT^^ ^ * 

* _ SIMOLATE ATTN * 
*INT TO VIRTUAL * 

1—>*03** 

* G5 * 


**»**E2********** 

♦CONSTRUCT WHITE* 

* EXCLAMATION * 

* POINT CCW * 
***************** 


***************** 


—*.TTY TEHHIHAL .* 


*»***H2********** 


***************** 


****************1 


-*.TTY TERMINAL .* 


*****P3********** 




***************** 


*.1050 1 


***** 15B2 


EXCSOADD V 

*****AH********** 

* INDICATE TERM * 

* BEING * 
->* READDRESSED * 

* (RDEVCIRD ON) * 
***************** 


* INDICATE TERM * 

* IN RESET * 

* (RDEVREST ON) * 
***************** 


K READDRESSING 


***************** 


(Parts 13 and 14 of 23) 

* 

* 

* 

RTNEXCLH 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 


rl 


****a 1 ********* 
♦RETURN FROM IOS* 
♦ VIA IOBIRA * 


*************** 


► SCAN FOR REAL * 


PREPCC3 

*****C2********** 

* DMKFRET^ * 

->*Ieto5n~attn CCW* 

* BLOCK TO FREE * 

* STORAGE * 


K CONDITION *. IBS 


PBE !SSJi E2 ********** 

♦DMKFRET 


►.CHANNEL ERROR.'* 


—>*RETURN ATTN CCW* 

* BLOCK TO FREE * 

* STORAGE * 
***************** 


CHANNE! 
>ATA CHEI 


:l *. YES 


YES .*ERROR RETRY*. 


► IjRDEYREST ONJ_I*— 


ATTNFRST 

->*I DHIT CHECK 


>-1 


***************** 


♦ FRETIOER^ ^ + 

* FRET IOERBLOK 


*****D4********** 




, UNIT CHECK 


!CK ^.*-1 

’♦NO ♦ ♦ 

| ***** A4 ♦ 

l—>* * * 

* a5 ♦♦♦♦♦ 


.♦ERROR RETRY*. YES 


—>*RETURN ATTN CCW* 

* BLOCK TO FREE * 

* STORAGE * 
***************** 


tOBPREPl V 

*****£5********** 
♦DMKFRET^ * 

*RBTURN~ATTN CCW* 

* BLOCK TO FREE * 

* STORAGE * 
***************** 


♦****B5********** 

* CLEAR ERROR * 

* RETRY COUNT * 


***************** 


*****C5********** 

♦INDICATE 10BLOK* 


*****D5********** 

* 

♦SET IOBIRA .EQ.* 
♦ DMKCNSNM * 

***************** 


> SET ATTENTION 

: cod 5?o 4? q * 


YES .* RDEVATNC 
*. .EQ. 1 


♦♦***(35 ********** 


****J5********* 

* RETURN Rl * 

* * 
*************** 




V J 


YES 


















15E4 


C0HT1SK *.* -1 


^-**TERMINAL TYPI 


* G1^*-1 "19* 

SEND** V 


TIMEOUT *.* -1 


| DMKCNS — Real Terminal (Console) Manager (Parts 15 and 


of 23) 
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DMKCNS 


Beal Terminal (Console) Manager 


(Parts 17 and 18 of 23) 

* 


■ INDICATE TEEN 

> IH BESET 

> (BDEVBEST OB) 


* INDICATE LINE 
► TURNAROUND 

* (RDEVCIRD OH) 




*****P2********i 

* SET CCB PTR 
*.EQ. HRITE EO& 

* * B ^§i BESS 
















I 


n 


* : %. EQ 0 


--*. COUNT LT 0 .* 


****A4****** 
* TRANS 


****«C1********** 
♦DECREMENT COUNT* 


*****C5********** 

♦TRANSLATE INPUT* 
->* LINE * 

***************** 


****D5******* 
* RETURN R14 


CNS5A .*. 

E2 *. 

.♦'last CHAR**. YES 


—>* COO NT BY 1 




CNS5 

****F1*1 
♦ABEND 5 - FORCE* 
* SYSTEH DUMP - 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ ******* 

* 

* 

HI 

♦ .*RETR 
*. EXC 

* 

* 

* 

* 

* 

* 

* 

l—>*i6 * 

* G V ♦ 

* 

* 

* 

* 

* 

* 

* 

DMKCNS — Beal Terminal (Console) Manager (Parts 19 and 20 of 23) 


(RDEVATTN OH) ■ 


—>♦. RDEVIDNT ON . 


***************** 


TRANS41 

*****H3********** 

♦TRANS ♦ 


***************** 


:***»J3********** 


‘1 


****A3********* 

* DMKCNSED * 


♦INDICATE IOBLOK* 

* NOT ACTIVE * 

* (RDEVACTV OFF) * 
***************** 


*****A4********** 
*SET LIME LENGTH* 




*****B4*********< 
*USE TRT TO SCA1 
* INPUT SOURCE 
♦FOR EDIT CHARS 


CODE .EQ. 1 I*-, 

[ -*. 0B 2 .*•* 


CHANNEL ERROR- 




, UNIT CHECK 






*****p3********** 

* STORE CODE * 

* BYTES INTO ♦ 

* TABLE FOR 4 * 

♦EDIT CHARACTERS* 
***********.****** 


***************** 


♦SET SCAN PTR TO* 
♦START OF INPOT * 
* LINE * 


'.FUNCTION BYTE.* 


**************** 


INCREMENT ERROR* 
RETRY COUNT * 


RETRY COUNT 


*************** 

22A2 
22C3 
* B3 *-> 23D4 






* FRET IOERBLOK * 


C. 256 ^'.*-1 

* *YES * * 

I ***** B4 * 

l_>* * * 
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| DMKCNS — Real Terminal (Console) Manager (Parts 21 and 


22 of 23) 
* 


,♦’* %. HO .*'* **♦. NO ** SET OP r *» 

! FIRST PASS ■*—- ♦. ATTENTION .*-j * MSG=DMKCHS500 ♦ 

* SET OP * 

* MSG-DMKCNS501 ♦ 

* 

* SET OP * 

* MSG=DMKCNS528 * 

♦CHANGE LINE END* 

* CHAR TO X'15< * 

.*■ '*. HO *SET SOORCE PTR * 

♦.^FIRST PASS *.* ->* .EQ. SCAN PTR * 

*’* *’* "♦. .♦* ***** *********** 

**YES *TES *04 * 

, * E3* ♦♦*♦ 

* * *21 * 

j * * B4j*—> ^22A1 

*********** 

* 

1 **** 

«—>*21 * 

* B4 * 

i->*20** 

* H3 * 

'♦IBS 

X **** 

* EHDEDIT SNSFOOND 

B1* •*. ***** B 2********** *****S3********** ??!i;?B4********** 


* 



LINEDELL .*. 

*****B3********** ^B4 ^ ^ 


♦****C1********** 

* ZERO 00T LIME 1 

* END END CHAR * 

* DELETE TRT t 
♦TABLE EDUCTION < 


♦DHKERET 

*_*_*_*-*-.*-*-*-> 
►* RETORN ' 

♦ TRANSLATE TABLE' 

♦ TO FREE STORAGE' 


♦DHKNSHB ♦ 

■♦writ! inioi msg*— 


CCHS505 ♦ |-> 

.****/ ♦!•♦♦ 


• **p5*i***** 

♦ SET OP ♦ 

■ MSG=DMKCNS527 » 


****C3********** 

SET SCAN PTR ♦ 
.EQ. NEXT INPOT* 


■ ****04********** 

' DECREMENT ' 

■ SOORCE PTR TO 1 
k PRETIOOS CHAR ' 


*****£5********** 

♦MOTE SCAN PTR+11 

* TO CURRENT * 

♦ SOORCE PTR * 








***** 20C5 
*23 * 


20C5 





**************** 


IBS •*CH AR DELETE*. 

,-* a . EQ . 1ST CHAR.* 

1 *. IN LINE .* 


***♦*01 

* REDUCE INPUT * 
♦SOURCE COUNT BY* 


***************** 


*****B2********** 


*****C2********** 


***** 02 ********** 


-*. FIRST pass 


***************** 


.♦ESCAPE a EQ a *. 1 
*. LAST CHAR IN . *- 
*. LINE .* 


*****C4*»*< 


.♦REDUCE *. 

. * INPUT *. 
♦ . SOURCE COUNT . 


*****04***»*> 


.*HOVE LENGTH*. YES 

% -*: EQ ' °.*.^-| 




DMKCNS — 

SY20-0880- 


Real Terminal (Console) Manager (Part 23 
1, Page Modified by TNL SN20-2624, August 


of 

15 


23) 

, 1973 


Program Organization 185 





SY20-0880-1, Page Modified by TNL SN20-1624, August 15* 1973 
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| DMKCPB — Process EXTERNAL, NOTREADY, READY, 


****43********* 
♦SYSTEM COMMAND ♦ 


**************** 


***** 41 ********** 

♦DHKVATHD * 
*-*-*_*-*_*-*-*_* 
♦ CALI - ENTER * 
♦TRANSLATE MODE ♦ 
***************** 


* B1 *-> 

* r 

CKZERO 


CLEARMEM V 

*****43********** 
♦DMKCFPRR * 


► CALL - RESET 


*YES 

♦ 

j **** I **** 

;,**,**** 

♦ 

RESXRUN 

•*> **D1*> 

**** **** 

>•**•* do’ 


***************** 


♦.CLEAR REQUEST, 


BEST.* | 


*02*: 

* A3* 


!S *****F2********** 
♦BESYSTBM ^ 


■ ♦.RESET REQDBST-* 


*0V * 02C3 

* 61 ♦-1 03DN 

:♦•** 1 o2k2 

iSHRT V 

*****61********** 
♦DMKgCNHT. ^ ^ ^ * 

* CALL-SEND ♦<- 


RESBXT 

****H1********* 

: r dmkcfm to : 

*************** 


***************** 


**G2******* 

* SET OP ♦ 

I"SYSTEM RESET* 

♦ MESSAGE * 


REWIND, and SYSTEM Commands (Parts 1 and 2 of 4) 

♦ 

* 

jk ***** 01K3 ***** 01E3 

*** *02 * *02 ♦ 

* A1* * A3* 

* v y 

* ■ 

* 

* 

* 

* 

* 

* 

* 

* 

^ *♦*♦*Cl********** **c2******* 

♦ * LOAD CORRENT ♦ ♦ INVALID PSN * 

♦PSN RITE LOC 0 * * MSG = 

* ♦ ♦ DMKCPB012E * 

▼ ***************** *********** 


CFP012 

*****62********* 

♦ DMKCVTBH^ ^ * 

-> *C ALL _ -~CONVEil - 

♦ BAD PSN TO 

♦ PRINT 
**************** 


* CALL - CLEAR ♦ 
♦STOR4GB TO BIN.* 

* ZERO * 

***************** 


DMKCPBEX 

**** 44 ********* 

♦ EXTERNAL 

* SIMULATOR ■ 
*************** 


*****Btt*»****4 


***************** 


***************** 


* G5 *-1 ( 

JVAR** V 


*. PSN RESTART .*• 


* OPERAND 

► MISSING MSG 

* DHKCPB026E 


** 65 ******* 


—>* ZERO PARM REG * 


*********** 


02C2 
' 03E2 


** TRANS-BRING ** 
**IH USER PAGE ** 
** ZERO ** 
** ** 
*•**•***••••****• 


***»*J- 3 ********* 


****************< 


**H5******* 


*********** 


.♦RESTART PSN*. YES 
*. TRANSLATE .*- 
*. MODE 


***** 
*02 * 
* A1* 


MESSAGE MODULE 

k IhSc?h T0 


***** 
*02 * 
* B1* 


* 

* 

♦ 

* 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 


****E1********* 

* RETURN TO * 

* CALLER * 


► CALL-CONVERT 

► INT. CODE TO 
‘ BINARY 


. VALID CODE 


**F5******* 


' DMKCPBOG5E 


SET UP 

* EXTERNAL 4 

INTERRUPT 
► PENDING « 

*********** 
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| DMKCPI — Control Program Initialization (Parts 1 and 2 


♦PSH'S. SET PSH * 

* RESTART TO GO * 

* TO 1 DMKDMPDK' * 
***************** 


;****C1********** 


IPL'ED DEVICE * 


*****D1********** 

* INITIALIZE * 

* CONTROL * 
♦REGISTER . TOD ♦ 
♦CLOCK CO P, CPU* 

;*****ii5*s*****: 


<****£!*********> 
STORE CPU 
IDENTIFIER 


c****pi** 

JISPATCRATINE 
S ”"d1l^nu HBER* 
'***************! 


**G1******* 


► SET PROGRAM 4 
NEB PSN TO 
* *CPIPINT 1 < 

*********** 


‘****H1 ********** 


**************** 


* ADD 2K TO THE ♦ 

—♦ STORAGE * 

* LOCATION * 

* ♦ 
***************** 


NOTE: ROUTINE 
WILL PROGRAM 
CHECK AT THE 
END OF REAL 
STORAGE 


CPIPINT 

****A2*»******* 

* PROGRAM CHECK * 

* NEB PSB * 


SAVE REAL 


*****C2********** 

* POINT TO THE * 
*END OF THE CORE* 

* TABLE * 

* 'CORTABLE' * 


LESS THAN 


*****E2********** 

* 'CORTABLE' * 
***************** 


NOOFFLNE V 

****«F2********** 

* COMPOTE THE * 
•BOMBER OF FREB * 

* STORAGE PAGES * 

* NEEDED * 
***************** 


* STORAGE PAGES * 

* 'FREE' IN THE * 

* 'CORTABLE' * 
***************** 


***** H2********** 

* FLAG TRACE * 

* TABLE (NEXT 2 * 
’"GESf AS * 


*****j2********** 

* SAVE POINTERS * 

* TO THE TRACE * 

* TABLE IN LOB * 

* CORB * 

***************** 


♦♦A3******* 
♦SET SBITCH * 

* AT LABEL * 

i“' CPI955SB' TO A* 

* BRANCH * 
*********** 




B3 *-> 


*****B3********** 

* POINT TO * 
' DHKSAV (THE * 


*****C3**' 

♦FLAG PAGES DOHN* 
♦ TO * DMKCKP' AS * 
♦FREE, CHAIN TO * 


****************: 


*****£3********** 
* * 
* POINT TO * 

***************** 


*****F3********** 
♦FLAG PAGES DOHN* 
*TO 'DMKCPEHD AS* 
♦FREE, CHAIN TO * 


PAGES (CP * 

* RESIDENT * 

* NUCLEUS) AS * 

* '*CP*' * 

***************** 


*****J3********** 


RETURN FREE * 
- STORAGE TO * 
* SYSTEM * 
***************** 


**A5******* 

* MSG = * 

• DMKCPI954E * 
DUPLICATE 
■ VOLUME * 
*********** 




♦CALL TO GET AH * 
♦EXTRA SAVE AREA* 
”~R BXTENr 


********** 


♦CALL TO CONVERT* 
* THE DEVICE * 
ADDRESS 


*****D5********** 


♦TO REAL DEVICE,* 

* CONTROL UNIT * 

* AND CHANNEL * 

* BLOCKS * 
***************** 


*****Ett********** 

* POINT TO THE * 
->* NEXT REAL *<- 

* DEVICE BLOCK * 


***F4*********** 


CALL TO GET 


****************< 


<****F5 ********** 

MOVE MSG INTO * 
FREE STORAGE * 
►AND CHAIN IT TO* 
« 'DUPMSGPT' * 

■ * 
***************** 


. DASD DEVICE 




***H4*********** 


' CALL TO LOOK 
♦FOR A DUPLICATE* 
- VOL SER NO. * 


^TE/.—j 


**A1* 


Of 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

* 

♦ 


6 ) 


CPIDEVEN ’V 

*****& 2 ********** 
* MARK REAL * 
*. HO * CHANNEL, * 


“*-1 


* READ THE * 
ALLOCATION 
* TABLE * 

**************** 


*****D1********** 
* CHAIN REAL * 
♦DEVICE BLOCK TO* 
♦PREFERRED LIST * 

***************** 


*****E1********** 
* SAVE REAL * 
► DEVICE BLOCK 


***************** 


***************** 


VOLUMB 

‘♦YES 


************ 


***& 4 *********** 
♦SENSE TO THE * 


**************** 


. LAST DEVICE 


-1 


S OK . *-1 

.*‘* I 


♦AND SHAP TABLES* 
***************** 


♦CALL TO LOCATE * 
*' RDEVBLOK' FOR * 

:sf$*§siii§*sis*; 


**C4******* 


*********** 


****D4 ********* 

* * 
♦GO TO DMKDSPCH * 


‘.DEVICE FOUND . 


****F2********* 

*SVC 0 CODE = 1 * 
* * 
*************** 


*****23********** 

♦INITIALIZE PAGE* 
—>*AND SWAP TABLE * 
* ENTRIES * 
***************** 


***F3*********** 


**************** 


*. CONSOLE OK 
**NO 


***H3*********** 


**************** 


DHKCPIBM 

*****24********** 

* CHAIN THE * 
♦CONSOLE TO THE * 

->* OPERATOR•S VM * 

* BLOCK * 

***************** 


**F5******* 

* * 
k msg = ^ 

DMKCPI955W 


•CPID• = *. NO 

•WARM* —— | 

■*■*. .*•*'* ***** 


*****G5********** 
♦DMKgCNHT # # # * 

* CALL TO TYPE * 


*. ALTERNETB 


n 


**H4 ******** 

♦MSG * VM/370** 
♦SYSTEM RESTART * 

*********** 


► CALL TO TYPE 




**H5******* 


*********** 


****j5********* 

* GOTO DMKDSPCH * 


* IN •UDRPSTRT 1 * 

* * 
***************** 


CPIERR1 

****K3********* 

* DISABLED WAIT * 

* CODE =5 * 

*************** 


CPI955RT V 

****K5********* 

* DISABLE WAIT * 

* CODE = D * 
*************** 




r 

























03K5 


*****B 1 ********** 
♦D H KgCHH T t ^ ^ » 

* cIll TO TIPS * 

* THE HSG * 


r *I RUNNING AND l* -> 

%. SM .*'* 


***** 82 ********* 

*_*_*_* 

* CALL TO TYPE ' 

* THE HSG 


k««*»C2********** 
►DMKJCHRD * 

CALL TO~READ ”♦ 


*****£■$********** 

*E*^$£*£*_*_*_*_* 

* CALL TO~BEAD ~* 


*»***B4♦*****♦< 
♦DHKgCHWT ^ # 

* CALL TO TYpi 

* THE HSG 


DRCTSBT 

***** 12 **** 

♦DHKUDRBV 


|-*.TEST RESPONSE.*-j r->■ 


HOTCHHG * 

*****131**! 

♦DHKSCHST 


^ LOGON OK *.* -^ 


*DHKgCNBT_* 

* CALL TO TYPE ' 


*****Q2*******> 
♦DHKg CNB D ^ ^ 

♦HEAD TO LET T1 
♦OPERATOR LOG ( 


CALL TO VERIFY * 
THAT THE VOLOHE* 
IS HOOHTED ♦ 



♦DHKgCNHT ^ ^ + 
* CALL TO TYPi ’ 


♦♦♦♦*H5********* 
♦DHKgCNHT * * * 

* CALL TO TYpi 


| DMKCPI — Control Program Initialization (Parts 3 and 4 
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| DMKCPI — Control Program Initialization (Parts 5 and 6 of 6) 

* 

* 




*********** 


*****42********** 


***************** 


***** B 2*********» 

* COMPUTE THE ' 

* SIZE OF THB 

* DUMP FILE 

* (HUMBE OF 

iiu. 


* A3 * 

ALOCLKUP^. 

.*CIL = TEHP *. IBS 


SPACE 




**************** 


DPHXTDBj 


«*C2****^**** # 

► POIHT TO THE * 
NEXT DUMP * 
* DEYICE ♦ 
***************** 


***** D 1* 5 
*DMKgCBRD^ j 

* CALL TO READ * 

* THB RBSPOBSE * 

* * 
***************** 


PROSPOL ^ 
*********** 


****p‘|********* 

♦GO TO DMKDSPCH ♦ 
* * 
*************** 



"1 


*****D3********** 


***************** 


“°$HI* E3 *S***.**** 

* POIHT TO THE * 

: Wcmbii 


**F2******* 

♦ MSS = * 

♦ DMKCPI953I 

*********** 


£H£hl*_*_*_; 

* CALI TO TIPE * 

* THE HSG * 

* * 
***************** 


.♦LAST BITE 
*. ALLO TABLE . 
*.BHD FLAG - 


ILE • * .* 

v* H 


♦'last cilihderI*-^ 


ddh !SS5Ih2 


hottdisk 


..* KEIHOBD = 
*. SHOTDCHH 


:.-—i 


AOTOHHH 1 

*****j1*i 

♦DHKWRHST 


LBH START OK.*-» 

'***, ***1 

♦ BO * ♦ 

^***** b2 ♦ 


***************** 


****************1 


*****((2**4 

♦ ZERO T-DISK * 
♦CYLINDER COURT ♦ 

***************** 


—>^CALL TO GET AH * 




B*~l 


*****AS********** 
♦BUILD ■SFBLOK* ♦ 

* AHD BABK THE ♦ 
♦DUHP CILIHDERS * 

♦ ALLOCATED IH * 
♦THE 1 ALOCBLOK' * 


****B4 ♦♦♦♦♦♦♦♦♦♦ 
BUILD AH « 
ALOCBLOK' FOE ♦ 
T-DISK SPACE ♦ 


BECALOC 




******** 


***************** 


*****C5********** 
♦BUILD A 8ECOBD * 

♦ ALLOCATIOH ♦ 
♦BLOCK AHD CHAIH* 

♦ IT TO T"“ 


BPBVBLOK 
***************** 


*****D5********** 

♦DHKFREE^ ^ * * J 

Ih ": 


:****£ 5********** 

BUILD IOBLOCK * 
TO HBITE THE * 

SIHBOL TABLE * 
EEC 'DHKSTMTB* * 
**************** 


t CALL TO WRITE ♦ 
* WRITE THB ♦ 
e RECORD 


**G$******* 


****B5********* 

* * 
♦GO TO DMKDSPCH ♦ 


***************** 


* 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

♦ 

♦ 

♦ 

♦ 

* 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 

♦ 

* 

♦ 


***** 05F3 


* CALL TO FRET 
*THB ALLOCATIOH * 
♦TABLE FEOH DISK* 
***************** 


.♦LAST EHTBI 
'. IH OHHDED 
*. LIST . 


'‘-I 


♦ ♦&((♦♦♦♦♦♦♦ 


*********** 


4c****B4 ********** 

♦DMKgCNWT ^ * 

♦"call to”typI ”♦ 

♦ THE MSG ♦ 


***************** 


•♦ START MSG ♦. 
RESPONSE * „* 

♦• DRAIN .* 


**CH******* 


*********** 


*****D4♦♦♦*♦♦*♦♦> 

♦DMKgCNWT^^^ 

♦"CALL TO TYPE 

♦ THE MSG 

* 

****************: 


***************** 


STi ?IIHF2*t*******. 


***************1 


*****q2********** 

^*f*2I£L*-*-*_* 

♦ INITIALIZES ♦ 

♦ HCH. CCH AHD ♦ 
♦FORMAT I/O CYL#* 
***************** 


*****B2********** 


****F4********* 

♦ GOTO DMKDSPCH ♦ 

♦ * 
*************** 


*************** 


♦ IS THIS A ♦• YES 
*!i?STM ?*.***- 


****«K2********** 

* INITIALISE * 

* COHTHOL * 

* BB x?iicSo3o 0 ^° ;*- 

***************** 



o 






























0 1K2 


01K2 
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| DMKCPV — 


Process DISABLE, ENABLE, HALT, SHUTDOWN, UNLOCK, 

* 


and VARY Commands (Parts 3 and 4 of 10) 


* OSER NOT 

—>*L0GGED ON MSG 

* DHKCPV045E 


















** 12 ******* 

♦INVL1ID BAUGH* 
>* MSG = * 

* DHKCPV009E * 


.* PAGES *. 
*.WITBIN USERS . 
*. STORAGE .* 


i—>*01** 


CPT160 

**B2******* 

* HBXLOC ♦ 

* EXCEEDS * 
->* STORAGE MSG = 

* DMKCPV160E < 
*********** 

L>:sr, 


♦♦♦♦A3********* 
♦OHLOCK COWHAND * 
*************** 


*****B3*** 

* * 
♦SAVE REGISTERS ♦ 

L>*04** 


DMKCPVSH 

•***AU********* 

* SHUTDOWN * 

* COMMAND * 

*************** 


CALL - GET * 
STORAGE FOB * 

-.OK * 

■ **♦♦♦♦♦♦ 


!D 1 


LOCKPAGE .*, 


r *« ALEE] 
*.*STt 


SiliH foI t thi1 

* PAGE 
****************> 


EES .* PAGE 

,-*. ALREADY 

' *. LOCKED . 


**TRANS - BRING" 
** PAGE IN AND ' 
** LOCK 
**************** 


CORTAELE AND 
DECR. PAGE 


►.FUNCTION . 
" *YES 


i****E2*********' 


**************** 


* CALL - RECORD * 

♦ STAT.^ATA FOR -* 
***************** 


***»*G4 *********. 


♦♦♦♦H4*♦*♦*♦*♦* 

* GOTO DMKDMPRS * 
*************** 


c 


C PAGE ♦. YES 


****K1********** 


♦ 

| DMKCPV — Process DISABLE, ENABLE, HALT, SHUTDOWN r UNLOCK, and VARY Commands (Parts 5 and 6 of 10) 


* 
* 
* 
♦ 
♦ 
* 
* 
♦ 
* 

♦ 
♦ 

* 
* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

* 

♦ 

♦ 

♦ 

♦ 

UNLOCK, 


> ACNT COMMAND 


♦****13»*****»**i 

♦DMKACOTM ' 

* ' CALL SISND 
♦TIME MESSAGE TO< 

* USER < 

***************** 


***••£1»*»*****»» 
♦SATE REGISTERS ♦ 
***************** 
**** 

* Cl ■ 

:ntscan 

*****d*********> 


■ CALL - CREATE * 
► ACCOUNTING ♦ 




► ABGUHEMT ♦. NO 


.V I 


► BAL R9 -CBECK * 
' FCB DEDICATED « 
♦ DEVICES * 
***************** 


ACNTDED 

****14********* 
♦DEDICATED DEV. * 
->♦ ACOUNTING ♦ 

*************** 


.♦ ARGUMENT 


♦*E2*«***** 

► INVALID < 
USERID MSG = 

► DMKCPV007E * 
*********** 


l> J°34* 


m, 


*22»*****»**I 

SET FLAG TO 
INDICATE ALL 
REQUEST 


► USERID VNELCK 


CBECK FOR 




*.VHBLOK FCUNB .♦- 


ACNTLOFF .♦. 

J1 *. 

.♦* USER IN 


. ALL REQUEST . 


****23********** 

■GET NEXT VHELOKV 


NO .♦ IS IT ♦. 

-♦.DEDICATED OR .♦ 

*.'T« DISK .♦ 


♦DHKACODV 

♦call-build~ded" 

♦ DEV. ACNT 

♦ RECORD 

****************: 


♦♦♦*E4********* 

♦ ♦ 
♦ B9 RETURN ♦ 


. MORE USERS 




ARGUMENTS 


*□. 


♦•MESSAGES . 


♦♦♦**K2*********’ 


♦MSG=DBKCPV045E < 


L>." 
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- Process DISABLE r ENABLE, HALT , SHUTDOWN; 


***** B 2********** 

♦SAVE REGISTERS * 




s*!!** - ] 

?V003* i 


*:* iBG v§i?T = 


♦♦E3******* 

* # 

* INVALID ♦ 
► OPTION HSG = 

* DMKCPV003E ♦ 
*********** 

L>:sr* 


♦DEVICE ADDRESS * 
***************** 




♦CALL - CONVERT 

♦ ADDRESS TO 

♦ BINARY 
****************1 




L>*08*< 


UNLOCK r 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 


and VARY Commands (Parts 7 and 8 of 10) 


***************** 


*. BLOKS FOUND . ♦- 


I HD l* -- 


*. OB CR Oil .♦- 


DEDICATED . ♦- 


♦♦E3******* 

♦ DEVICE ♦ 
—>*DEDICATED MSG = 

* DHKCPV140E * 


***G1 *********** 




**G3***< 

► LINE IN USE 

► DMKCPV049E 


♦.DEVICE ECUED 


••-I 


CHEKUR .♦. 

H2 *. 

♦ IspOOL DEVICE*! ♦- 


cbektape h3 .*. < 

->»! TAPE DEVICE 






**************** 


DRAINED 

"♦YES 


’♦♦J3******* 

■ DEVICE NOT 
—>♦ DRAINED MSG = 
♦ DMKCPV142E 


La? 


CBEKDASD .*. 


—>♦. CP-OWNED 


**35******* 

► DEVICE BUSY * 

MSG = 

► DMKCPV124E * 


!->♦** 


Ut. 


V J 








08B5 


09K3 


♦EHKFREE 

IcIlCK 


END INTERRUPT > 
IOB, TC RISC * 
THE EASE VOLID > 


r >*CA!L TO GET AE 
*IOBLOK TO HALT 

i__ 


LOAD TADS 

**»**A2****< 

*DHKSCHPO 


BALTRET 

****A«********* 
♦BETUBH PROH IOS* 


♦DHKSCHDS ^ ^ ^ 
* PHD PIBT 




L>Jo2** 

* Ell * 

* 

* 

***************** 



1 

;t*tbe*** 

COB* IC * 

*****C3********** 

♦DBKSCJFD # # # J 

*****C5********** 

♦DHKIOSQR * 

♦ 

♦ 

SAPEADD 

♦****C1********** 

♦DHKCPTBH * 

**«*C4****4 

«*•** 

p 

C4* 

.*'abgohi 


DHKgCHBD ^ ^ 

~ CALL -~PI«D 
' BEAL DEPICE 
BLOKS 


♦DHKCPPBD ^ 

* CALL TO BISET 


ftft DEPIcI 

TYPE 


>****B1 ********* 
|DHKgCHBT ^ 

■TYPE THE~MSG~TO’ 
> DSBB 


| DHKCPV — Process DISABLE, ENABLE, HALT, SHUTDOWN, UNLOCK, ana VABT Commands (Parts 9 and 10 of 10) 
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DMKCQG — Process QUERY Command (Parts 1 and 2 of 10) 


dhkc SS! 5 a1 


***** B 1*********> 
♦ISSUE SVC—16 T~' 
♦ RELEASE SAVE 
♦AR£A« RETURN TO’ 
♦DHKCFH OH EXIT 


OH EHTBI GPR-6 
COHTAIHS AH 
IHDEX VALUE FOB 
THE FOLLOWING 
BBAHCH TABLE 


GHVECTOB .*. 

D1 ♦. 

.* GPB-6 *. 

.* COHTAIHS *. 
♦. IHDEX VALUE . 


I=9=8H 


=52 --“>08A2 

I =60 --”>°Ia4 
=64->02B1 


DMKCQGFI 

****A2********* 


* HEADING LINE 


*********** 


2 ********** 
* * 
♦COUNT ALL FILES* 

***************** 


t**************** 


**F2******* 
► STORE RESULT 
*********** 


► GET NUMBER OF 


**H2******* 

* * 
* STORE RESULT 

*********** 


****************1 


**K2******* 

* * 
‘ STORE RESULT 
♦ * 
*********** 


° BJF ™I*A3*~**< % 

* SET LINE * 
->*lehgth e ahd SEHD* 

*********** 


***#bH********* 

* QRYFCNT * 


* B3 *-> 


08J3 


QRIHBIT 

*****B3*’ 
♦DHKgCHWT ^ ^ ^ * 

*” CALL- SEHD” * 

* BESPOHSE * 

* HESSAGE * 
***************** 

>2C1 


**B4******* 

* ZEBO FILE * 
► COUNT BEFORE 


*********** 


*. PROCESS .* 


*****B5********** 


***************** 


*************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 


DHKC 8 GLG iV 


* B1^*-> 
QRYLHSG 


****A3*«*»***»* 

* QRYVFHT * 


**B2******* 

* * 
♦HOVE NAHE OF * 
♦ USER INTO 
♦HESSAGE AREA * 


**«**C1********** 
♦DHK^CNWT ^ ^ ^ * 

♦CALL- WRITE LOG* 
♦HESSAGE TO USER* 
***************** 


I **** 

■—>*01 * 


LOCATE USERS * 
TERHIHAL * 
•RDEVBLOK' * 

**************** 


* CALL- CONVERT * 
♦VIRTUAL DEVICE * 
♦ADDRESS TO HEX * 
***************** 


IHFORHATIOH 


♦♦♦*E2********* 

* * 
♦RETURN OH GPR-9* 
*************** 


*****E3******»*** 
♦GET ADDRESS OF ♦ 
* RDEVBLOK FOR * 


***************** 


CLASCHEK 

*****E3********** 

♦DHKSCNVH 


.♦ BRANCH ON ♦. 
*. DEVICE TYPE .♦ 


UR ->09A3 

TAPE->09A1 

DASD->1QA2 

TBRH->10A3 

GRAF->10A4 

->10A5 


FRETCORE 

****A4********* 

♦ FRETCORE ♦ 

* SUBRODTIHE * 


—J.L- RELEASE ♦ 

* STORAGE USED * 

♦ FOE HSG. AREA * 
***************** 


D 


ic 196 


f. \ 
























1 


* 

♦ 

* 

* 


***** 03P2 
*Ott * 03J1 
* E4* 03J3 


♦GET EDDRESS OP 

* THE FIRST 

* REEDER SPOOL 

* BLOCK 


**B3******* 


*********** 


*****C3*********> 
♦DMKFHBE^ 

cIll- 


__LL- GET 
STOREGE FOR 
♦MESSAGE BOPPER 


* CELL- LOCETE * 
*ERG0MENT IH THE* 

* COBHEHD LINE * 
***************** 



* 


FILLOOP .*. 

El *. 

NO .** FILEID = **. 

TESTRET HOFILE ? 

A3 *. *****&4*******««* 

.* *. *PBETCORE * 

YES .*REQOEST FOR*. *_*-*-*_*_*_*_*-* 


* 

V ’*. .*■ 

'*. .*' *FRET TH1 

! BUFFER* 


* 

* 

*03^* "*iES 

"*NO**** 

1~>*03** 

* F2 * 



* 


* 

B1 " ’*. 

B4* 



♦ 

* 


-^*!^ cl||s^*d> J* 

*1 REQUEST I*- 


* 


i 




* 


. 1 . 




* 

* 


.♦FILE BELONG*. NO 
*.TO THIS USER^.*-j 

**. .** ***** 

♦ SET l 
* FILBS 1 

JP NO * 
1ESSEGE * 


* 


♦YES *03 * 

>i , *: i - 




**B5******* 

♦SPOOLID DOES * 
—>*HOT EXIST HSG = 
* DHKCQG042E « 


L>: 


**E4******* 

* OSBR HES * 
—>*REQOBSTED * ELL 1 




r *. ANY 

*'*. 


ENY SFBLOKS .*<— 


YES .‘ARGUMENT = 




r 


n 


>. FILES TO 


* REQUEST *. 
FROM A CLASS . 
*.'D> USER .* 


FILIDCVT^J 

♦DHKCYTDB 
*-*-*_*_*-*_*_*-« 

* CELL- ESSDME 

* ERGOHENT FOR 

* FILE-ID 
***************** 


*03 * 

:*::**! 

)?AR ? 


07B2 


*********** 


**% 5 ******* 

* ZERO PARE REG + * 
*********** 
04B5 


♦ J5 *-> 
**** 

CALLERH 1 

*****j5*i 

♦DBKERBSG 


'“i 


lNY SFBLOKS^’.*-J 


L>: 


**K3******* 

* INDICETE * 

► REQUEST FOB * 

SPECIFIC 

► FILE-ID « 


***** 04S1 
*01 * 04C1 
* C3* 04K1 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


DMKCQG — Process QUERY Command (Parts 3 and 4 of 10) 


* INDICETE ET « 
► LEEST 1 FILE 

* FOUND * 
*********** 


•***•04********** 
♦DBKgCNNT * * * * 
♦CELL -~sInD THE* 


* CELL- CONVERT 


>************i 


HRITREC 

*****j-| ********** 

♦DMKQCNBT * 

*_*_*_*_*_*_*_*_* 
♦CELL- PRINT THE* 
* RESPONSE LINE * 
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DMKCQG — Process QUERY Command (Parts 5 and 6 of 10) 


*****A‘. 

♦GET ADDBESS OF 

♦ THE FIRST 

♦ PRINTER SPOOL 

♦ BLOCK 


♦♦♦♦♦ 01D1 


*****A2********** 

♦GET ADDRESS OF ♦ 
♦THE FIRST PUNCH* 
* SPOOL BLOCK * 


CALL - GET 
STORAGE FOR 




♦♦B1******* 


♦♦B2******* 

* INDICATE ♦ 

■ PUNCH REQUEST * 

*********** 

L>*03** 

* C3 < 


***************** 


*****C3*********j 

*DMKgCNHT_^ 

♦CALL _ SISND THE* 
♦ DATE AND TIME ‘ 


♦CALL- GET SIZE * 

* OF HESSAGE * 

♦ BUFFER * 

***************** 


* TERMINAL ♦ 
♦INFORMATION FOR* 
♦FIRST DATA LINE* 
***************** 


*****C4**’l 
♦DMKgCNNT # ^ ^ 

*~ CALL-‘PRINT " 
* THIS LINE 


CALL - OUTPUT * 
THE CONNECT * 
MESSAGE * 

e**************** 


*****D4*********i 

* MOTE IN 

* TERMINAL DATA 
♦FOR SECOND LINE’ 

* ’ 
****************> 


♦****E4********** 
♦D MK^CNBT * * * * 

SsJ^lISpIf": 

i**** fi i* s IS5l?****** 


s****F4********** 

; dmk f ret^ , „ . * 

CALL- RELEASE * 

IgfFiI s f#if ** 

**************** 

L>*01** 


♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*****& 2 ******* 

♦DMKSCNFD 


•'I” 


INDICATOR 
FLAG FOR 
FURTHER 
* TESTING < 




* CALL- CONVERT 
♦STORAGE SIZE TO’ 


* DETERMINE * 
ARGUMENT 
*. PASSED .* 


DASD->08C4 

TAPE->08C4 

LINE->08C4 

UR ->08C4 

CORE->08C4 

ALL->08C4 


***************** 




qri £S 25* e2 *****.**.* 

*dmkcvthb ^ # ^ * 

*arIuIent^iI B Ior* 
* A DEVICE * 
***************** 


07A5 

08A1 

°olti 




STORAGE FOR 




**F4******* 

♦INVALID VADDR* 


L>*07** 


L>*03*i 


" DEVICE BLOCKS * 


HI *_>) 07E3 


ALL DEVICES^.*-1 

’*NO *07 * 


OUND^.*-j 


.♦REQUEST FOR*. HO 
«.^UR T DEVICES^. *-^ 




c**************** 






















i 



; ^S 



***** 06H2 


*N0 

*07 * 06F3 

* B1 # *—>I 08E3 

QRYUSRID^.*.^ 

•*OVER EIGHT‘S 


**A2******* 

♦ADDR DOES NOT< 
>* EXIST MSG = 

* DMKCQG040E * 


♦♦B2******* 


*********** 

1—>*03** 


*****C1********** 
*DMKSCNAU * * * * 
♦CALL -~SCAS FoI* 


.*OSER LOGGED*. NO 


**D2******* 

* USER NOT < 
—>*LOGGED ON MSG = 

* DMKCQG045E * 
*********** 


ivy*—] 


**14******* 

* INDICATE * 

* REQUEST FOR * 
♦DASDI DEVICES* 
*********** 

L>*06** 


**A5******* 


IPE DEVICES « 


♦INDICATE AT* 

* LEAST 1 * 

♦DEVICE HAS BEEN* 

* FOUND * 


♦FORMAT MESSAGE « 
♦AND SEND REPLY < 


******** 

*GET ADDRESS OF * 

C >* THE NEXT * 
♦VIRTUAL DEVICE * 
****************** 


.* USER IN *. 

►. DISCONNECTED .* 
*. MODE .* 


* CALL- LOCATE * 

* HIS TERMINAL * 

* DEVICE * 
***************** 


* CALL- CONVERT * 
♦DEVICE ADDRESS « 

* TO HEX 


♦STORE DEVICE * 

* ADDRESS INTO * 
♦RESPONSE LINE* 


GET LENGTH OF * 


SEND HESSAGE 

t**************** 


.♦ALL VIRTUAL*. NO 

*. DEVICES .*-. 

*.PROCESSED.* I 


w w*H„*i*.. 

SESHHI*. 


> CALL- RELEASE * 
' REGISTER SAVE * 
* AREA * 
***************** 


♦.DEVICE FOUND 


■’"I 


* MESSAGE- * 

♦DEVICE DOES HOT* 

* EXISTS * 

*********** 


DMKCCG — Process QUEBY Command (Parts 7 and 8 of 10) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 


* INDICATE * 

► REQUEST FOR « 
TERMINAL 
* DEVICES * 


♦♦A2******* 

* INDICATE * 

* REQUEST FOR * 
UNIT RECORD 

> DEVICES * 


♦♦A3******* 

* INDICATE * 
* REQUEST FOR 
♦STORAGE SIZE « 


**A4******* 


L>: 


rv 


‘ MESSAGE AREA 


♦CLEAR STORAGE* 
♦AREA TO BLANKS * 


->* FORMAT USERID « 


************** 


uV /~] 1 

RYUSER V 


QRYUSER 

*CLL«»_ 

♦AREA TO BLANKS 




*• COMPLETELY 


QRYCBKEN .*. 



*****H2********* 
*DMK^CNIT + t + 

*” CALL- PRINT ” 
* THIS LINE 
**************** 


**C3******* 
♦CLEAR HESSAGE* 


| 06C2 

QRYVFND ^ 

.♦RBQUEST FOR*. YES 


’ALL 




***D3********** 




♦DMKSCNFD 


♦CALL- GET NEXT * 

* ARGUMENT FROM * 

* INPUT BUFFER * 


'.STORAGE SIZE 




*. ARGUMENT 




► CALL- CONVERT * 


f*****] 


*********** 


*****G3*****♦*♦*! 




* CALL- CONVERT < 
♦THIS FACTOR TO * 


ITPUT^I*-j 


*****^ 2 ********** 


♦RESPONSE LINE* 
*********** 


i 
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DMKCQG — Process QUERY Command (Parts 9 and 10 of 10) 


i .* DEVICE *. 

ATTACHED TO . *<— 
♦.THIS USER.* 


QRYVnRIO^.*.^ 

YES ,*UNIT RECORD*. 
—\—*.OUTPUT DEVICE.* 


•*~1 


NOT ACTIVE 


.♦DEVICE TYPE*. NO 


*. = PSEUDO 


*•TRANSFER 1 IN* 

* RESPONSE LINE * 
*AND PRINT IT * 


* SET CLASS * 
>* CODE INTO * 
♦RESPONSE LINE* 


NO .*CONTINUOUS * 


■ D3 *-> 


10B5 

10D1 

10D3 

10D5 

FNOTE 

******** 


NRTVIRT 

*****1)3 **< 
*DHKgCNWT * * * 

C >*~ CALL- PRINT " 
* THIS LINE 

* D3 * 


****23********* 

* RETURN ON * 

* GPR-10 * 


**D4*»****» 


► INTO RESPONSE * 


. BEING HELD 


♦MOVE 'NOEOF' * 
* INTO RESPONSE * 
* LINE * 


CALL- CONVERT * 
NUMBER OF * 
IPIES 


***»*J4********** 

* FILL IN THE * 

* REMAINDER OF * 
—* RESPONSE LINB * 

* AND PRINT IT * 
***************** 


TO:D3 

10E3 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*DMKCVTBH 


***** 02G3 


**A5******* 


♦GET ADDRESS OF * 
* THE RDEVBLOK < 


****B1********** 

GET DEVICE * 
ADDRESS INTO * 


***************** 


'’“I 


~1 


**B2******* 


♦RESPONSE LIN] 




* CALL- CONVERT * 

* ADDRESS FROM * 

* BINARY TO HEX * 
***************** 


* REMAINDER OF * 

* THE RESPONSE * 

* LINE * 

* * 
***************** 

I **** 

<->*09 * 

* D3 * 


-*.DASDI DEVICE . 


♦RESPONSE LINE* 
*********** 


QRYVMINI 
"° -*'.MINI 'I' DISK!* 
* *YES 


**F2******* 

♦ MOVE '(TEMP)'* 
* INTO RESPONSE : 


‘ CALL- CONVERT * 


**H2******* 

* MOVE IN * 
♦SERIAL NUMBER* 

* AND STATUS OF * 
* DISK. * 


u 


NOTEMP 

*****G2********** 
♦DMKCVTBD * 


* REMAINDER OF * 
♦RESPONSE LINE S* 

* PRINT IT * 


'.VIRTUAL 270X .* 


'1 


•♦DEVICE TYPE*. YES 


l0 “*-*1 


*.*270xTlINE*.*Y ES 
'♦.^ENABLED^.*' j 

"*. .*" ***** 

*NO *09 * 

** D »* 


**C5******* 

* SET UP NOT * 

' READY MESSAGE * 


*********** 




*+E3+****** 

* CHANGE * 
* RESPONSE LINE * 
*TO 'DISABLED'* 


♦♦E5******* 






<r\ 

\ y 











1 


DHKCQPHV 

***** 1 ********* 

* * 
* DHKCQPHV * 

*************** 


OH ENTRY GPH-6 
CONTAINS AN 
INDEX VALOB FOR 
THE FOLLOWING 
BRANCH TABLE 


PVVECTOR .*. 

.* GPR-6 


=0 ->02A1 


****A2********* 

* WRTOOT * 

*************** 


♦SET RETORN 1 


*****C2*********' 
♦DHKjjlCNWT m ' 

*~ CALL- PRINT " 

* RESPONSE LINE 


****A3********* 

* SCANRSP * 
*************** 


► GPR-1. OSED * 
CO COONT NOHBER* 


a. 


SCANSHQ 

****A5********* 

* SCANSHQ * 

* SOBROOTINB * 


,->*.SPOOL BLOCKS 


CVTBD .*. 

. * * *. 

.* ANY PILES *. NO 


=8 >§4A1 

= 12->08A1 

= 16->08A3 

=20->09A1 

=24->09A2 


32 : 


->09A5 
—>10A1 
—>10A4 

: >11A2 


ii8i *:* 


*****E2********** 

*E5£8£***_*_*_*_* 

♦CALL- PRINT INT* 
* REQ HESSAGE * 


****F2********* 

* RETORN ON * 

* GPH-10 * 

*************** 


*****D4********** 
♦DHKCVTBD ^ * 

CALL-~CONVERT _ * 


***************** 


* an; hore 

FILES TO 
►. PROCESS . 


****E4********* 
♦RETORN ON GPH-9* 
*************** 


*****E3********** 

♦INCREASE TOTAL * 
—* COONT BI 1 * 

* * 

***************** 


•*D5******j 

■ INDICATE 
PON' * PRT’ C 


BOHPPTR*i 


■*E5*********> 


* GETNEXT SPOOL * 


***************** 


**B5******* 

♦CLEAN OP THE * 

* BOFFER FOR ♦ 
♦READ- ABILITY* 


♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***** 03A2 

: # iaS 8U1 

* * 10A1 


* INVALID 

> OPTION HSG = 

* DHKCQP003E 


*02** 07G1 
***** 08F1 


♦DHKEBHSG 


t*************** 


QRYNRIT Y 

*****44********** 
♦DHKgCNWT^* ^^* 

* CALL- IsioE * 
> HESSAGE * 


<**** B1 ********** 


♦CALL * CONYEBT * 

t piI? B IMiE S 

***************** 


H**** D1 *********4 

► STOBE IN * 

► RESPONSE LINE ♦ 


***************** 


*****21 1 
♦ GET TBESHOLD 
****************; 


***************** 


;****hi** 

'GET PAGING RATE* 


* STORE INTO * 
► RESPONSE LINE < 


°0 VA 

FNOTE 


♦ISSOE SVC 16 TO< 

♦ RELEASE SAVE * 

♦ AREA 
****************> 


3 


RETORN TO 


***************** 


DHKCQP — Process QUERY Command (Parts 1 and 2 of 11) 
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DMKCQP — Process COED* Command (Parts 3 and 





i 


















* INDICATE AT * 
♦LEAST 1 DEVICE 

♦ FOOND * 


* LOAD BEAL < 
♦DEVICE ADDRESS * 

♦ INTO GPH-1 < 


♦ .’^ PROCESSED 1 


■>*' m READER | 


—>*PRIHT RESPONSE ♦<-. 

* LINE ♦ 


DMKCQP — Process QUERY Command (Parts 5 and 6 cf 11) 


Program Organization 203 



















IBM VM/370: Control Program Logic 204 


DMKCQP — Process QUERY Command (Parts 7 and 8 of 11) 






PROCESSIHG 




* B2^*-j 08C5 

.*. 

B2 *. 

.♦REQUEST FOR*. YES 


NO .* ANY DATA 


*****Di********** 
♦DMK^CNWT ^ ^ ^ * 

*~CALL- _ OUTPUT “* 

* THIS LAST * 

* RESPONSE LINE * 
***************** 


.*REQUBST FOR*. NO 


.NIT^.*-, 




".*•* "1 


.♦ACTDEV FLAG*. NO 

% -% 0N *•*•*"□ 

* *YES * * 

u.****: 41 : 


**C4******* 
♦HOVE VOLUHE* 
♦SERIAL NUMBER* 

* INTO RESPONSE * 
* LINE * 


♦INDICATE UNIT" 
>*HAS BEEN FOUND 

*********** 

L>* 06 *" 


0R,f 2****E1*i******** 
*DHKFRET # 
*~call- - beleaIe - * 

* STORAGE USED * 

* FOR BUFFER * 
***************** 


♦♦♦♦♦HU********** 
♦DHKCVTBD 




BN0TDASD p4| 


♦.DEVICES FOUND. 3 


**Q1******* 

* ISSUE 'NO " 
♦DEVICES FOUND* 

* 6 EXIT " 


H 


*********** 


* REMAINDER OF * 
♦RESPONSE LINE* 


*********** 


* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 


*BUILD-HSG, FOR * 




**»**C1***’ 

* GET DEVICE * 
♦ADDRESS OF DUMP* 

* COMMAND * 
***************** 


.*' DEVICE 
*. ASSIGNED 


* SET UP NO * 
• * DUMP DEVICE 
♦ASSIGNED MSG " 


*****E1********** 
*DMKCVTBH * 
*—*—*—*—*—*—*—*_* 
* CALL- CONVERT * 
♦DEVICE ADDRESS * 
***************** 


*****F1********** 


***************** 


**A3******* 

* SET SNITCH " 
FOR 

►'QUERY-DASD' " 


09A1 

09A2 

09A3 

09A4 

09A5 


♦.ALL REQUESTED.*- 


**D3******* 

* TURN ON * 
►•REALALL* FLAG " 


*********** 


BE& iS2?I E3 ********** 

♦ GET REAL * 
♦MACBINE z |TORAGE* 


*****P3********** 

;£Sfsii!L*_._*_; 

* CALL- CONVERT * 
♦VALUE INTO HEX * 

* CHARACTERS * 
***************** 


*****G3*+******** 

* BUILD MESSAGE * 

* RBSPONSE LINE * 


***************** 


****************: 


—>* CALL- GET 1 


I—>*02*" 























I 






**A1******* 

♦ * 

► SET SWITCH * 
FOE 

MQUBRT-TAPE'^ 

*********** 

L>* 08 *< 


**B2******* 

■ SET SWITCH * 
*08 

KQOERI-LIHE'^ 

*********** 


♦♦A3******* 

* SET SWITCH * 
•FOB •00881-08* 

*********** 


MQ0EBI-STOH4GEM 


L>; 


B3 * 


♦•A5******* 

* SET SIITCH * 
•FOB 'QOEBI-iLL'* 

*********** 

{—>*08* * 
* B3 * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


QBIHOLD .*. 

• * *. 

.* *. 1 

*•USBRCLASS = D.*- 


* A3 * 

%****-} 
*****A3*********' 

* DHKjjCHWT 

CALL- PBIHT 

* THIS LIES 


***** 01C1 


: BOFFii'IoBK 

;*****{!!}* 


q " ii ;**a5*x*.** % 

. * IIDICATB * 
♦•LIME* BEQUEST « 

*********** 

Ussr* 


*LOiD ADDBESS * 
♦OF FIBST BEADEB* 
* SPOOL BLOCK * 


*****B3*4 
•DHKgCHWl ^ 

*~cIll- p!iIt~b 

* BLAIK LIEB 


♦ ***B4* 
BOILD 
LIKE 0 
FOB • 
TEBH 
COH 

******* 

FIRST 

DATA 

DEBT 

HAL* 

LED 




**D2******* 

♦STORE BESOLT < 
* IB BESP0H5E 
* LIHE < 


**E2******* 

* LOAD * 

* ADDBESS OF * 

► FIBST PBIHTEB * 

* SPOOL BLOCK^* 
*********** 


;SCAHBSP* 


♦CLEAR BOFFBB * 
—>* BOBK ABEL TO * 
* BLAEKS * 
*********** 


♦ ****C4*********' 

:5sy£*"!L*_*_,_; 

♦CALL- PBIHT THB 1 
•FIBST BBSPOHSE 

* LIHE 
*•••**•***•*****1 


****D4********** 
BOILD SECOHD * 
LIHE OF DBTA * 
! 


Vi 


♦CELL- PBIHT THB* 


«****P3**« 

IES!S3!L. 

*C»LLt PBIHT THE* 
* OHES HELD * 


***************** 


♦LOAD ADDBESS * 
♦OF FIBST PORCH < 
* SPOOL BLOCK * 

*********** 


(**************1 


♦STORE RESULT * 
♦ IN RESPONSE 
♦ LINE * 


****************! 


DMKCQP— Process QUERY Command (Parts 9 and 10 of 11) 
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| DMKCSC — Process Spooling Commands (Parts 3 and 4 of 


♦****B1********** 


***************** 


STARTX^^ 

♦DMKSCNFD 







***************** 


CKRADD 

*****J2********** 
♦DHKCVTHB * 


*-, 10FI 

' 1 SIS! 


♦CLASS MISSING* 


V ~1 


*********** 


r~" 


‘.VALID CONVERT. 


"-I 


***** K3*** 

* STORE CLASSES * 

* IN SAVEWRK2 * 


***************** 


ZERO GPRO 


14) 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***** 03K1 


****** 1***** 
♦INDICATE NC 
* SAVEWRKH 


n 


* RESET SCAN * 

* POINTERS TO * 
♦PREVIOUS OPTION* 


TESTDEVI^^ 
♦STARTMSG 


L>*03% 


* B2 *-> 
**** 
PROCESS 


*. DEDICATED .X 


n 


♦.DEVICE ACTIVE.*- 


'’“I 


CALL- BUILD 


****D2********** 


; MOV| f 


. CLASS IF * 
_iNY: TO < 

RDEVCLAS t 


***************** 


*****U3********** 

* SET UP DUMMY * 

* DEVICE END * 

***************** 


*****E2********** 
♦IF NO|EP^ p RESET* 

* OTHERWISE'SET * 

* RDEVSEP * 
***************** 


*****33*** 

: SB 5«ii mi 10 i 


TESTSTAT 




.* START ALL *. YES 
*.^FROM DMKCPI^. *-^ 


**«**F3********** 

♦DMKSTKIO * 

*CALL-*STACK*I0i* 
* FOR DISPATCH * 
***************** 


.♦TYPE = REAL*. YES 


1 


.♦TYPE = REAL*. YES 




******** 
♦RESET RDEVDRAN * 


***** K2****** s 


■*T 


*END OF THIS*. NO 


♦.DEVICE CHAIN . 


****«C5********** 
*DMKSCNFD * 


“1 


L>*** 


♦***K3********* 

* RETORN TO * 

* CALLER * 
*************** 


( ) 














* 
* 
* 
* 
* 
* 
* 
♦ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
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| DMKCSO — Process Spooling Commands (Parts 7 and 8 of 


**TRAbI CORRECT** 
** BOODLE - ** 
**DBKFCB DHKDCS** 
** DBKUCB ** 


I th-zzim 

iCTI —t 


SETBACK V 
*****J1*»< 
♦DBKSCBFD 


****K2********* a 
SET BACKSPACE ’ 
BOBBER IB < 
RSPLCTL ABB SET' 
RDEVBACK ■ 


** 0CS ^rr B bsg HE 4 
* DBKCS0031E « 

































CN 
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| DMKCSG — Process Spooling Commands (Parts 11 and 12 cf 


OCSIRA^ 


* 

* RESTORE 

* REGISTERS 


*****A4~********** 

* HBSBT IOB * 

—>* RESTART FLAG * 

* -IOBRSTRT * 


****35********* 

* FRETIOB * 

* SUBROUTINE * 


****B4********** 


:**************** 
L>* 09 *» 




***************** 




**••*01********** 
♦FRET I O B ^ ^ ^ ^ * 

*~FRET iol ARB * 

* UNLOCK BUFFER * 

* * 
***************** 


**E1******* 

* * 

► BUFFER LOAD < 
FAILED MSG 
► + DHKCS0148E 
*********** 




*•***02*< 

♦ FRETIOB^_ 

•“fret iob'and™*— 

* UNLOCK BUFFER * 
***************** 


**D3******* 

* SET UP * 

► COMMAND 1 
COMPLETE 
■ RESPONSE ^ 
*********** 


*****23********** 
♦DHKgCNBT ^ * 

*“CALL - NOTIFl”* 

* USER * 

* * 
***************** 

L>:sr. 


i .**MOI 
-*. RES 


14) 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 


' GETDEFIC 

****H********* 

* GBTDBVIC * 
*************** 


LOCATE TIPE 


* CALL- CONVERT * 

* ADDRBSS TO * 

* BINARY * 

***************** 


I 1 . VALID ADDRESS. *- 


*RADDR HISSING* 
>* OR INVALID * 
* DHKCS0021E * 


*•**33********* 

* DMKCSOVL * 
*************** 


*****B3********** 
*DHKSCHFD * 

*—*—•_*_•_•—*_•_* 

* CALL- LOCATE * 

* ' VADDR V 

**•*****•*•*•*••* 


*****C3********** 
♦PHKC V T H B t ^ ^ * 

* _ CALL- — CONVERT * 
* ADDRESS TO * 
*****^^****** 


VALID 
DEVICE 
. ADDRBSS . 


♦VADDR HISSING* 
►* OR INVALID * 
* DMKCSO022E * 


L>*$1*« 


*****£1 ********** 
;^£!«?_*_*_*_; B rr 

* CALL- LOCATE *- 

* RDEVBLOK * 
***************** 


* DEVICE DOES 
►* NOT BUST 

* DHKCS0040E 
*********** 


**F1***‘ 

^CALLEl 


♦ ——— - 
** * 
sjij: 


DHKSCHVO ^ 


‘♦♦♦♦<i*********** 


*************** 


—*.3211 PRWTBR^. ! 

*♦. „** 

♦yes 


!” i 

**♦♦* 
*01 * 
vr 


YES .* VIRTUAL *. 

,-*. FORM BUPPER . 

*. PRESENT .* 


*****03********** 

•DMKFREE^ ^ ^ ^ * 

* CALL-”gIt * 

* STORAGE FOR * 

- —"3 BUFFER * 


*****J3********** 
♦SAVE ADDRESS IN* 


♦****K3**4 
♦CLEAR VFCBBLOK 
**************** 


o 





































t 


o 


D 


■i 


► CALL- LOCATE 


EQNAHE 

*****44********** 

* MOTE THE * 

♦ REQUEST BUFFER * 


INDEXCVT 

*****45: 

♦DMKCVTDB 




*.KEYWORD 1 FCB'. 


■ MISSING OR 
INVALID 
► DMKCS0026E 


*********** 


***************** 


*. NAME VALID 






*****F1**1 

** TRANS BRING *- 
**AND LOCK FCB ** 
** BUFFER ** 
** MODULE- ** 
** DMKFCB ** 
***************** 


* SEARCH THE * 

* BUFFER LOAD * 

* LIST FOR THE * 

* REQUESTED * 

* BUFFER * 

***************** 


* MODULE CP *. YES 


"1 


► MODULE CP * 


****B3*i 

<* RETURN R3 


♦DMKSCNFD * 
*_*_*_*_*_*_*_*_* 
♦CALL - GET NEXT* 


SET ERROR 


***************> 


***** E4 *********> 


***************** 


•INDEX VALUE TO 1 

* VFCB-BLOK 1 

* (VFCBNDEX) * 


•VALID INDEX*. 


MOVE INDEX 
VALUE TO 
VFCB-BLOK 
(VFCBNDEX) 


•CALL - GET NEXT* 


»Y HORE 
JPTIONS 


“i 


***************** 
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* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

14) 


***** 03D1 


►.TYPE AND ALL . *<-, 

*. DONE .* j 


► SET GPR6 TO - 
‘ READER DEVICE * 
■ CHAIN * 


***** 03D1 
*14 * 05D2 




*****42********** 

* SET GPR6 TO * 

* READER DEVICE * 

* CHAIN * 

***************** 


•LOCATE RDEVBLOK* 

* -START OR * 

* DRAIN * 


*****43******* 


***************** 


n 


•LOCATE RDEVBLOK* 


* SET GPR6 TO * 

* PUNCH DEVICE * 

* CHAIN * 

***************** 


•LOCATE RDEVBLOK' 

* -START OR - 

* DRAIN 
****************> 


* SET GPR6 TO * 
♦PRINTER DEVICE * 

* CHAIN * 

***************** 


*****(31 ********** 


RDEVBLOK* 
ART OR * 
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* READER VADDR < 

* PRINTER PUNCH * 

* CONSOLE * 
****************1 


*°C2 *—, 03D3 
* * I 04C4 

**** 1 08C1 

5G006E V 


1 04C4 
08C1 

**C2******* 
♦DEVICE TYPE* 

* ERROR * 
—>*HSG=DNKCSP006E * 


*********** 


:*«.*-] 

(IT8** . V 


04H1 

05H3 

05J3 

08B2 


*****C3********** 
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♦ 

* 

* 

♦ 

* 

* 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

♦ 

* 

♦ 
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*****D1* J 
♦ DHKSCNPJ 

********* 

->* CALL - LOCATE * 
* NEXT OPTION * 

j 



V : ’-} 


.♦RDR PRT PUN*. 


I PUN->12E1 

I PRT-> 12E1 

1 “V->12E1 


*01 * 04H4 

* H2 *-, 05C2 

* * 12E1 

**** I 

5G013E V 


.* OPTION = *. 

*. HOLD OB 
*. NOBOLD .* 


* DHKCSP013E * 
*********** 

***** 02B1 

04J5 
12F5 

HSG003E 

**J2******* 

-* INVALID * 

* OPTION * 
~>*HSG=DHKCSP003E * 


*********** 


'I 


***************** 


2BS 




CALL - FRET * 

* FNAHE FTYPE * 

• AREA * 

***************** 


EXIT2 

*.' NORHAL EXIT ! 
’*. .*" 
’♦YES 


****G3*’ 

* RETURN TO 

* CALLER 


EBR !3S!I* F , ********** 

♦ DHKERHSG 


->* CALL- PRINT * 
* ERROR HSG AND * 
♦EXIT TO DHKCFH * 
***************** 


DHKERHSG BILL 
EXIT TO DHKCFH 
VIA SVC 16 


****************< 


* 

* 

* 

♦ 

♦ 

* 

♦ 

* 

♦ 

* 

* 

* 

* 


***** oiBI 
*02 * 12G1 
* A1* 12G5 


♦DHKSCNFD 


***************** 


CSPEXIT^ 




*****D1********** 

* UPDATE SFBLOK * 


‘.INPUT DEVICE . 


CLOSERDR^ 

*DHKVSPCR 
► CALL DHKVSPCR < 




i .*C0NTIN00US"*• 
-*. OUTPUT .* 


*_*_*_*_*_*_*_*_* 

* CALL DHKVSPCO * 

* CLOSE OUTPUT * 

* DEVICE * 

***************** 


♦.TYPE = VADDR . 




03K4 

04J3 


1— 


♦♦♦*A4********* 

* DHKCSPHL * 
*******1 


***************** 


LOCATE TYPE 


.* READER OR *. YES 
*.^ VADDR ^.*--j 

'*. .*’ ***** 

♦NO *01 * 

! ** C ** 

+ E4‘*'*. i(t 

■*.*TYPE * * ALL' 

*. .* 

’♦YES 


****************> 


**«**G4********** 


CALL- GET 

* STORAGE FOR * 

* SHQBLOK * 
***************** 


♦****j4********** 

♦HOVE IN USEBID * 

* AND CHAIN TO * 

* DHKRSPHQ * 
***************** 


SHQEJUJL^ 























*1 TYPE * ALL .*♦-. 


VADDR -j |<—*‘.SHQF 
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Process Spooling Commands (Parts 5 and 


***************** 




)N | 


*•NOHOLD NOCONT.*- 




*****32********** 


***************** 


SP14 V 

*****P2********** 
♦DMKSCNFD * 


***************** 


***************** 


*05 * 

* q3 *-» C 

**** 

3G020E V 
** G3 **** 






♦USERID ERROR * 


SP16 

*****j2********** 

♦DHKUDRFU * 

*_*_*_*_*_*_*_*_* ER R 

* CALL- VERIFY *- 

* USERID * 

* * 
***************** 


*********** 
T. Lar. 
1 

m v 

** H 3***4 

' INVALID * 
OSEBID MSG 
* DMKCSP007E * 
*********** 
»** I **** 

)5 * •—>*01 " 
J3^*-—■ * C3^ 

►*** I J***” 

53E V 

**j 3 ******* 


TO:H3 TO:J 
06D4 06FD 


6 of 12) 
* 
♦ 
* 
* 
* 
* 
♦ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
♦ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


. -'EBM 1__. 

*. STABT STOP 


♦DMKSCNFD 


—>*.KEIB08D •TO* 


***************** 






■ **** * 

•—>*05 ♦ • 

* J2 * 


*****C2********** 

* SET COBBECT * 

* FLAG IN * 

* SAVEHBK8 ♦ 
***************** 


“V"-—l 


Length ;♦—^ 


* CALL- VEBIFY * 


***************** 


♦.DSEBID VALID . 




♦YES *05 < 


****G4********** 


****H4********* 

♦ R4 RETURN * 
*************** 








1 



•*1 


♦SET GPR5 TYPE =' 




+****B3********** 

* SET CC = ZERO ♦ 
***************** 


CALL-LOCATE 


-♦.'ALL' OR TYPE.*- 


n 


♦VADDR MISSING* 
>* OR INVALID 
* DMKCSP022E 


.•*-1 


*********** ***** 


***** C 4********** 


. READER RDR 


*****]?4*****,i 




r 


* POINT TC * 
*VDEVBLOK TABLE * 

* - BLOK SIZE * 


PCH PUNCH 




►-*-*- *-*-*ERR 

- CONVERT *-, 

! ADDRESS * I 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

12) 


****A3******* 
* GETCLASS 


►*B3********** 


►UNIT DOES NOT* 
EXIST MSG * 
► DMKCSP040E * 


*'. DEViCE^TYPE 


J 


♦STORE CLASS IN 
*SAVEWRK1+1 AND 
* SET CC = 0 
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| DMKCSP — Process Spooling Commands (Parts 9 and 10 of 


*ADDR FROH GPR7 * 
******* 


* LOAD GPR7 * 
—>*ADDRESS OF NEXT* 

* SFBLOK * 

***************** 


?ILE PRESENT^*-, 




* CALL- LOCATE 
► COPY VALOE 


*****g5********** 

*LOCATE VDEVBLOK* 
* FOR THIS TYPE * 


***************** 


****C5*******> 
* R3 RETURN 


*********** 


Ls 


*****£3********** 


****P3********* 

* R4 RETURN * 


* SFBCLAS = *. 


****K1********* 

* R4 RETURN * 


12 ) 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


**A2********* 

GETNAME 


*****C2********** 


GN0 *****D2********** 
♦DHKSCNFD ^ ^ * * 




*****P2********** 


***************** 


GN03 

*****G3********** 

*DBKSCNFD * 

*_*_*_*_*_*_*_*—* NONE 

- >* CALL- LOCATE - 

* FTYPE 

********************* 


n 


****H2********* 

* R4 RETURN * 
*************** 


* DMKCSP029E 


*****j3********* 


****k3********* 

* R4 RETURN * 







11C2 


.* GPR6 FFS *. YES 

■*. 1ST TIME .*-t 

*. SWITCH . * 1 
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DMKCSO — Process Spooling Commands (Parts 1 and 2 of 17) 



* G3 *-1 ' 

**** 

MSG006E V 


► CALL DHKSCNFD * 
* LOCATE NEXT * 

► OPTION * 
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DMKCSU — Process Spooling Commands (Parts 5 and 6 of 


IL *§***C2********** 









c 
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DMKCSO — Process Spooling Commands (Parts 9 and 10 cf 




TR04 7 

*****£ 3 ********** 

♦GBTUSER^ # # ^ * 
LOCATE”AND * 


***************** 


***************** 


*****£3********: 


***************** 


*. FILE FOUND 


***************** 




♦UNCHAIN SFBLOK * 


.* SEARCH BY * 


'"I 


17) 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


‘***B2*********> 

IF TEST FOB 
■SYSTEH’ SAVE 
SCAN POINTERS 


* CALL- LOCATE * 
' ’SYSTEH 1 OB * 
’ USERID OPTION * 
***************** 


* BLANK USERID 
SAVE AREA 
-7K2-3 


!RID -1 

[ES *08 * 
* K4* 

Wc a v 


CD *-* : *”~l 


YES •*•SYSTEH’ OR*. 

-*. 1ST USERID .< 

*. TEST .* 




* DHKCSU007E * 
*********** 


*****Q2********** 


***************** 


‘♦♦H2******** 
RETURN R4 




V_y 
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DMKCSU — Process Spooling Commands (Parts 13 and 14 of 17) 


* LOAD GPB6 < 

* SEARCH START < 
•ADDS FBOH GPR7 * 


G "°****»B2********** 
•OHKFREE • 


•SATE ADDRESS IH* 
•SATEHRK*. CLEAR* 
• AREA • 


GH02 t 

•***# D 2*»***«**** 
•DBKSCRFD • 


FILS PftiiSSBT^.*-1 


USERID I*-1 


->*I^ SPOOLID ^1*-j 



.••••. Us 

• A 3 * * 


RETORT 






































i 





n 


—>♦.OPTION = 


***************** 


“•• : * — i 


.♦ OPTION = *. NO 


—>* CALL- CONVERT * 


SliJU 


****F2******^** 

* RETURN R4 * 

* * 


***************** 


**E4******* 


♦•VALID SPOOLID,* 


3********** 

♦ STORE SPOOLID ♦ 

♦ IN * 

♦ SAVEffRK1+2(2) * 
***************** 


****Q3**4 
SET CC = ZERO * 


L >*02 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

3k 

* 

* 

* 

* 

* 

* 

* 

* 




*****£<] ********** 
♦SET GPR6 = ZERO* 
***************** 


*•RDR BIT GPRS 




*16 * 

* D3 **-1 1 

:o**** ? 


***************** 


■**D3********** 

SET GPR7 * 

PRINTER CHEIN * 
POINTER * 

**************** 


.*GPR5 = PRT * 


*16 * 

IT/-] ’ 

:08 v 


♦SET GPR7 PUNCH =* 
->♦ CHAIN POINTER * 


***************** 


****G4********* 

♦ RETURN R3 * 
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DMKCSD - 



Process Spooling Commands (Part 17 of 17) 


'‘IBS 


***** 02 *********’ 


i****i3******«f< 

SET GPB5-GPB6 


****B3********* 

* BETOBH B3 * 
*************** 


•«•*****•**••**** 


•*GPR5 = HDH’*. HO 
*.* BIT ^.*-j 

* *YES *16 * 


****C4********* 

* BETOBH B3 * 


V 


C j 

v y 








I 


n 


o 


****41******* 

* DMKCVTBH 


OF BINARY 


YES •*DIGIT .IT. > 


r'-’-.r 


****a 3 ********* 

* DMKCVTHB * 
*************** 


YES .*DIGIT .LT. *. 


*****55********** 


'1 


HEXIDECIMAL 


♦***D1********* 

* R14 RETURN * 

*************** 




'“1 


.♦DIGIT^.GT. *. # YES 


*****32**4 
♦SUBTRACT X* o/' - 

♦ TO ELIMINATE * 
♦ZONE & CONVERT ♦ 

♦ TO HEX ♦ 
***************** 


*****D3*********a 


****************1 


*****£3********** 


***************** 


*****D5*«****a| 


****£5********** 

“IMPLEMENT ♦ 


> ADD EXPONENT 
' CORRECTION 
FACTOR TO 
EXPONENT 


♦♦♦♦G3***♦**♦♦* 
♦R14 RETURN CC=0* 
*************** 




*****H5*’ 

* SET EXPON1 

* .EQ. 0 


***«*j5********** 

* MOVE C' .' TO * 

* OUTPUT AREA * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

* 

* 


OUTPUT AREA * 
***************** 


■♦.EXPONENT .LT..’ 




♦ CONVERT S * 
♦UNPACK DECIMAL * 

* EXPONENT « 


38 ! «' 


*****pI*********; 

> PLACE DECIMAL 


♦ MULTIPLY * 
♦PRACTION BY 10 * 


***************** 


*****£') ********** 
♦DECREMENT LOOP ♦ 


***************** 


♦♦♦♦Kl* 

♦ R14 RETURN ♦ 

*************** 


*****32********** 
♦DIVIDE PRACTION* 


-♦.EXPONENT . LT. . *<—> 


[yes ** 

CVT1 .♦. 

A4 *. 

.♦* HEX '*. 

,->*.EXPONENT .BQ. • *<-, 

jl .□ 

♦ 02 * *NO ♦ * 

J. "" 

B4 *. 

.♦ HIGH *. 

HO .*ORDER BYTE ♦. 
-*. OP PRACTION .* 




* EXPONENT BY 




*****C3********** 

♦DIVIDB FRACTION* 
* BY 10 * 


REX ♦. YES 


♦.EXPONENT .LT.. J 


* INCREMENT * 

* DECIMAL * 

* EXPONENT BY 1 * 
***************** 




c****35********** 
* 

DECREMENT ♦ 
DECIMAL , ♦ 
EXPONENT BY 1 ♦ 

E**************** 


L.” 


> DECREMENT HEX 4 
‘ EXPONENT BY 1 1 


DMKCVT — Conversion Routines (Parts 1 and 2 of 4) 


Program Organization 229 
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^ REQUESTED j 


R15 RETURN 











I 


n 


DMKDASER 

****A3******** 

* DASD ERROR 


.^IOBKCNT = U^.*-1 


*****C3********* 


-♦.READING VOLID.*<— 


n 


02C5 

8IBI 

02J3 

FNOTE 


♦TORN ON RESTART* 


NO *ERROR_^COUNT*. ^ 


l******************** 


***************** 


****G1********* 
♦EXIT TO DMKIOS * 
*************** 


**«**F2**< 

*NXTPTR ^ ^ + ^ * 

* _ CHAIN”IN THE “♦ 
* IOERBLOK ♦ 
***************** 


* SET RETURN > 

*********** 


*****ph********** 
*D.E. FROM PREV.* 


*.EXPECTED • * 


r.-- : —i 


} 


***************** 


**G4******* 

♦ TURN OFF * 

► IOERPEMD FLAG ■ 


*********** 


♦♦ LOAD GPR 3 ♦♦ 

♦♦KITH ADDR. OF** 




* POINTER TO * 
♦BUFFER AND TURN* 

* ON IOERVOL1 * 


TO:E1 

03J4 

04B2 

04B3 

04C1 

04G2 

04H3 

06C3 

07H4 

07J2 

08D2 

1SJ 

14K2 


l : 


* OPERATION *. NO 

FINISH .*-, 

♦.CORRECTLY.* 


| DMKDAS — DASE Error RECOVERY Procedures (Parts 1 and 2 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

of 


‘.CHANNEL ERROR.*- 


'.PROGRAM CHECK. *- 


. TYPE = 2305 


'“I 


I-*' 


**** 05A4 

S°ll**-, 06K3 
****** 1 07G5 

FAT ***** E 1********* 
♦CKIOB^ + ^ 

* _ FRET 2'ND 


TSTEQUIP^^.*.^ 

.♦'equipment'* 


*.IOBRCHT = 2. . 


. 1 “ 


07H4 
1 2D3 
13J2 


*HSG=DBKDAS503* 


* NO RECORD * 


*. lOBRCNT > 10 .*- 
‘♦YES 


*********** 


♦RETURN HILL BE * 


L>*0‘ 


CONSTRUCT i. 
RECAL. CCH S 
RETRY THE 
OPERATION 


► USED FOR REC. 


*****E2********** 


♦RETURN ANY 2'ED* 


**G1 ******* 

* TURN OFF * 

* IOBERP, * 
*IOBRSTRT. TURN * 

* ON IOBFATAL * 


****************’ 


‘.INT. REQ. MSG. * 


****K2********* 
*EXIT TO DMKIOS I 


04H2 
05B2 
COL 5 


TO: D2 

TO:D5 05B3 
■SSI 05B1 


14) 
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| DMKDflS — D8SD Error Recovery Procedures (Parts 3 and 4 


*********** 


********* 
♦EXIT TO DMKIOS * 
*************** 


01G2 

11C4 


**A2******* 

* MARK THE * 

•OTKMKPV 

*********** 


CONVERT IBB 
REAL DEVICE 

,*** 1553111 *** 


* GET FREE * 

* STORAGE FOR A * 

* MSG BOFFER * 

****************4 


♦FILLING IN THE * 
♦VOLID AND REAL * 
* DEVICE ADD < 


***************** 


**E2******* 
K MSG = 
DMKDAS956S 


*********** 


♦****P2********** 
*DMK^CNWT # # ^ * 

*TYPE~THE MSG TO* 

* OPERATOR * 

* * 
***************** 


****G2********* 

* RETORN R5 * 
*************** 


'^IOERBLOK 


**B3******* 

* TORN ON * 
IOBSTRT FLG 


*********** 


****C3********* 
♦EXIT TO DMKIOS * 
*************** 


****************> 


♦.PACK CHANGED . 


*STATISICAL DATA* 


* IOERBLOK INTO * 


***************** 


***************** 


♦BOILD A BOFFER * 
* UNLOAD CCW IN * 
♦THE STAT BOFFER* 


**j4******* 


♦****C5********** 


TEST IF THE 


' RELEASE WORK 


♦IOBERP, TORN C 


*****H5********** 
* RDEVNRD? ? FLAG * 
***************** 


****j5********* 

* EXIT -DMKIOS * 
♦RETRY OPERATION* 


Of 

* 

* 

* 

♦ 

♦ 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 


14 ) 


r : < 


•*• IOBSCHT = 256.* 


IOBRCHT = 2 


I 


, IOBRCNT = 2 


I 


.*COHHAHD*. 

.* REJ. WITH ♦, 
. SEEK CHECK 


5 B5%-1 07G5 

ST V 

**B5******* 

► COMD. REJ. * 
*MSG=DMKDAS5Q0** 
*********** 

M ! k*. 


,* IOBRCNT A *. 
, MOLTI OF 16 


n 


♦»C2******* 

♦BUSOOT ERROR * 
BSG=DHKDAS502* 


*********** 


♦FLAG - INDICATE* 


***************** 


*HSG=DHKDAS501* 


♦.IOBRCNT = 10 




*MSG=DMKDAS507* 

*********** 




**F1♦♦♦♦*** 


*********** 


♦ F2F*— 
OVERRON 

tz 

.♦' OVERRON 
*. ERROR COND. 

**** 

♦ 04 ♦ I 

♦ G2 ♦->( 12F4 

**** V 
OVERRON1 .♦. 


—>♦. IOBRCNT 




**G4******* 




♦ERROR CTR >♦. YES 


* SET RESTART * 

* ADDR. RETRY * 

* OPERATION * 
***************** 




V ) 














I 


n 


***** 07G5 


EOC CORD. .< 




**B2******* 

♦DEFECT* THE* * 
♦ ERROR - 
♦MSG=DMKDAS506* 


♦♦B3******* 

♦TRK. OVERRUN * 
♦ ERROR - 
♦MSG=DHKDAS509» 


C 


*. PROTECT ERROR. *- 


♦INVALID SENSE* 
>* DATA - * 

*MSG=DMKDAS516* 


* FILE PHOT. * 
* ERROR 1 

*MSG=DMKDAS513* 
*********** 

I—>*02** 


♦ 

* 

♦ 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 


*HSG=DHKDAS518* 


•YES *04 * 1 

**** | * B5* **** I **** 

*05 * * * *05 * *—>*02 * 

*********** 

1->*02** 

♦ 

♦ 

*% 

1‘YES 

# ♦NO 

1 

L>*02**^ 

* Cl *-> 07G5 * * C2^*-. * D2 # * 

FILPROT .*. SHDNOT* 7 

Cl *. **C2******* 

* D2 * 

* 

i 

**C1*’ 

!**♦** 

1 

C2* '*. 

—** C3 ****:;: 

* TORN OFF * 


l%i 2 


| DMKDAS — DASE Error Recovery Procedures (Parts 5 and 6 


♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

of 


*IOERCAL FLG, ' 


.♦ BORE DATA X , 
*• TO UNLOAD * : 


'“l 


.♦ENTRY FROM *. YES 


—>* IOERHA FLG. 


*****E1********** 


**E2******* 

► FALSE ERROR * 
DMKDAS517 


* E3 *->( 01B3 
SKLOOP 


[OBLOK.*-j 


* ADDRESS INTO 


**G3******* 


.♦ENTRY FROM < 
, RD HA CHAN. 
*. PROG .1 


****HM******** 

■ RETORN TO 

■ CALLER 


*.SK. ADD. 




**K3******* 

♦ TURN ON THE ♦ 

‘ IOERCEKD FLAG * 


14) 
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| DMKDAS — DflSD Error Recovery Procedures (Parts 7 and 


IGNORE .*. 

A2 *. 
.♦RESPONSE - 




***************** 


***************** 


**D2******* 

* TURN OFF * 

* IOBERP, * 

IOBRSTRT, 

K IOBFATAL < 

*********** 




! *’ !i 


•♦•DEVICE = 2305.* 


’I 


08B1 


NOTPERM .*. 

G4 *. 

.♦EQUIP CHECK*. NO 


.* BRANCH ON * 
—>*. ERROR TYPE 


*****{]<! ***4 

♦COPY IOERBLOK• 

* TURN ON 
♦IOERSTAT FLG * 

***************4 


* CALL- FOR * 
♦STORAGE TO COPY* 

* IOERBLOK * 


*****J2*********4 

* COPY IOERBLOK * 

* INTO AREA * 

* RECEIVED FROM < 

* DMKFREE * 


1 MSG=DMKD A/S508 * 


e . IOBRCNT = 10 .*— 


in? ::-->04aI 

CR ->04B5 

NRF->06K3 

OVRN->04F2 

TRKO->05A3 

DATA->1 2A3 

PROI —-->olci 
NONE->05C2 


8 of 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


14) 


♦ .DEVICE = 2305.*- 


.♦STATISICAL * 
►♦.DATA PRESENT 




***** 07H1 


' BUILD BUFFER 
' UNLOAD S TIC 
' CCW * S 

**************** 


CALL- GET 
STORAGE FOR 
IOERBLOK 


CALL- FOR 
STORAGE FOR 


*****C2** 

* COPY IOERBLOK * 

* TO STORAGE * 

* RECEIVED FROM * 

* DMKFREE * 
***************** 


*****Di*a 

♦ COPY IOERBLOK * 
***************** 


* GET LAST ♦ 
♦IOERBLOK. RETRY* 

* OPERATION * 
***************** 


***** D 2*«*4 

*IF*I* *_* * * * 

* GE!T~LAST * 
♦IOERBLOK. RETRY* 
OPERATION 


***** E 3********** 


****]? 3********* 
♦RETURN ON GPR-5* 
*************** 


ENTRY FROM 
SHUTDOWN 
COMMAND 


♦GETSTBUF 


*************** 


CALL- GET 


***************** 


♦BINARY ZEROES* 


***** F 4*********> 

♦BUILD SENSE CMD 1 
♦IN THE IOERBLOK 51 


****************: 


*****Q4********** 



* SET IRA TO * 
* SNSRTN 31 


* GOTO DMKDSPCH * 



















i 


| DMKDAS 


CASE Error Recovery Procedures (Parts 9 and 10 of 14) 
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K3’ 


*'.ECC BYTE = 0 - 



f 

V 










i 


r\ 


.* CCH HAVE 




* XC ECC * 

♦CORRECTION BYTE* 

* INTO CORE * 





***************** 


♦YES 
->| 12H3 


♦.DEVICE A 3330. 
* *YES 


*12** 

%H3* 

NO 

n 


—>*.C.U.INDICATE . 


.*C.D. CNT. =*. NO 


IOBRCNT = 10^.*-j 

*’*NO *02 * 

i **** * B3* 

t_>*01 * * * 


■•SUPPRESS LEN.. 


**K3*< 

* SET WLR BIT < 
■ ON IN IOBCSW 


♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 


‘"I 


*****g2********** 


♦STATEMENT EQO* 




L2305 


■***E3********** 


♦.DEVICE = 3330 .* 


****F2*********< 


♦SCHID TIC C 




*****H3*4 
♦BUILD E 


6 TIC CCN 


BUILD 
♦ADDITIONAL TIC * 
CCH AND RETRY * 
>**********4 


♦SET UP RESTART 

* CAH. TORN ON 

* IOERECF. 
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| DMKDEF — Process DEFINE Command; 


Define Virtual Storage or a 

* 


Device (Parts 1 and 2 of 7) 


CALL DHKSCNFD * 
FIND DEVICE * 
TYPE PARM * 


ON EXISTING .*-, 























DEFCONS 


o 


***** 0103 


LINE 
" *YES 


SPECIAL 
HANDLING FOR 
1052-TYPE 
DEVICES 


TYPE PARM 


n 


***************** 


IS IT *. YES 

* IBM 1 1 .*-, 

. ADAPTER .* 


IS IT 
•TELE2' 

, ADAPTER . 


* CALL DMKVDSDF * 
♦DEFINE THE NEW * 

* 1052 DEVICE * 
***************** 


ENDCONS V 

*****D3********** 
♦FREUSER^ ^ ^ * 

♦"unlock usIr~s - * 

♦CONTROL BLOCKS * 


*CALL - CONVERT ■ 


U: 


’!V. 


.*or perhaps**. 

■■iHnZH: :*■ 


**E2******* 
**DHKDEF003E ** 

*********** 


♦CALL - COMPUTE ♦ 
♦ ADDRESS OF ♦ 
♦EXISTING DEVICE* 
***************** 


♦**** B4 ********** 

*CALL - CONVERT * 

* ADDRESS TO * 

* ,*ssjfs., * 


♦CHANGE DEVICE* 
♦ADAPTER TYPE TO* 
* 1 TYPTELE2 1 * 


n 0 !,** 


***************** 


**G4******* 

* MSG- * 

* DMKDEF092E 1 
TYPE VADDR 

** DEFINED ** 
*********** 


I * 


*—>*01 > 


* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

♦ 

* 

♦ 

* 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 


***** 02J1 


REDEFINE AN 


*****62********** 


♦CALL - CONVERT * 


***************** 


**D2******* 

* DMKDEF040E * 
♦DEV VADDR DOES * 

* NOT EXIST * 


.* DEVICE ON *. 
*. DEDICATED 
*. CHANNEL .* 


> CALL DHKCFPRD ♦ 
■ RESET ANY * 

> ACTIVE I/O » 


DEDCHAN^ 

•FREOSER 


♦*P3******+ 

* FORCE NEN * 

* ADDRESS TO * 
> CONTROL ONIT 

* BASE ADDR = • 

* CCO * 
*********** 


**G3******* 


*********** 


DETCULP 

*****63********** 

* SCAN VCUBLOK * 

* FOR OTHER 

* ACTIVE 

* VDEVBLOKS 


n 


**J3******* 

♦MARK VCUBLOK 1 
*AS UNUSED SPAR] 

*********** 


*****K3*»******** 

* SCAN VCHBLOK *NO 

* FOR OTHER *-, 

♦ACTIVE VCUBLOKS* 1 


♦CALL - CONVERT * 
♦VIRTUAL ADDRESS* 
* TO HEX * 
***************** 


*CONVERT CHANNEL* 

* ADDRESS TO * 

* DECIMAL * 
***************** 


**F«******* 
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| DMKDEP — Process DEFINE Command; Define Virtual Storage or a Device (Parts 5 and 6 of 7) 

* 

♦ 


***** 01B3 


*********** 


► B1 ■ 


04K3 


DETDONE 

**B1******* 

* PRESERVE * 
♦ALL AUXILIARY* 

♦BLOCK POINTERS,* 
* ETC. FROM * 

* VDEVBLOK 


r.- ~i 


*****C4********** 


*AT NEW ADDRESS * 


' CALL DMKCVTDB 
" CONVERT NEW 
► STORAGE SIZE 


n 


*IN NEW £l0Ck'* 
*********** 


•*DID HE *. 
.* RE-DEFINE * 
*. DEDICATED 
*. DEVICE .1 


1 


*»D4******» 

* ROUND UP * 

► SIZE TO « 
NEAREST 

► 4096-BYTE * 

* BOUNDARY * 
*********** 


* CALL DMKCFPRR * 
♦PERFORM VIRTUAL* 

* SYSTEM RESET * 
***************** 


•*DID HE *. 


IRY .* 
3LE .* 


**H1******* 

* PATCH * 
♦RDEVBLOK AND * 
♦VMBLOK FOR NEW * 
♦PRIMARY CONS * 


»*****< 


* CALL DMKPGSPO * 
♦RELEASE ACTIVE * 
♦VIRTUAL STORAGE* 
***************** 


.* MORE THAN *. 
. ONE LINK TO . 
*•THIS AREA.* 


**H2******* 

* LINK NEW 1 
VDEVBLOK TO 
< ITSELF 1 


RDEFREE V 

*************** 
♦FRBUSER^ * 

r—>* UNLOCK USER~S - *-, 

♦CONTROL BLOCKS *I 

i************************* 


.* ANY LINK *. 
->*.CHAIN TO THIS.’ 
*.DASD AREA.* 


“1 


“1 


*433******* 

** LIST HP ** 

*VDEVBLOK P BEFORE^ 
* REDEFINED ♦ 

* VDEVBLOK * 


.♦ FOUND * 
, ROINTER TO 
♦.OLD BLOCK.* 


♦*K3****+** 
♦PATCH LINK * 

* CHAIN WITH * 
' NEW VDEVBLOK 

* ADDRESS 1 


♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 


**A3* 


* CALL DMKFREE * 

* FREE STORAGE * 

* FOR ODBFBLOK * 
***************** 


♦DIRECTORY BLOCK* 


* CALL DMKUDRRD * 
♦ACCESS UMACBLOK* 
♦VM DESCRIPTION ♦ 
***************** 


► STORAGE SIZE 


*********** 


* CALL DMKUDRRV * 
♦RELEASE USER'S * 
♦DIRECTORY BLOCK* 


.* IS HE *. 
.♦ALLOWED THE*. NO 

►. NEW AMOUNT .*- 

*. STORAGE .* 


► CALL DHKBLDRL * 


* DMKDEF094E * 

* STORAGE SIZE 

* EXCEEDS * 
* MAXIMUM * 

*********** 


**************** 


**H1**^***» 

♦ REPLACE * 
♦STOBAGE LIMIT* 
♦VALUE IN USER'S* 
* VMBLOK * 


* CALL DMKBLDRT *- 
♦REBUILD VIRTUAL* 
♦STORAGE TABLES * 


DEVICE ON 
- EXISTING 
( CONTROL UNIT 


♦♦♦*A5********* 

* LOKUSER * 
♦SUBROUTINE- PUT* 
♦LOCK ON USERID * 


♦♦B3******* 

♦ BUILD MSG * 

* 'STORAGE = * 

♦NNNNNK' IN SAVE* 

* AREA * 

*********** 


* CALL DMKCVTBD * 

* CONVERT NEW * 

* STORAGE SIZE * 
***************** 


♦♦D3******* 

♦ INSERT * 

* ROUNDED NEW * 
♦STORAGE SIZE IN* 

* MESSAGE * 


♦****B5********** 
♦DMKLOCKCj * * * * 
i'~CALL TO~LOCK ~* 


****C5********* 

* RETURN - R5 * 




V J 










1 


o 




* SUBROUTINE * 
*************** 


.*B3********** 


♦DHKLOCKD 


* 

**** C 3********* 

* RETURN - R5 * 
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DMKDGD — Perform DASD I/O (Parts 1 and 2 of 8) 


* DMKDGDDK * 
*************** 


♦CLEAR USER'S * 
♦ CONDITION CODE ♦ 
* (IN VMPSW) ♦ 


♦♦Cl******* 

* SET UP * 
♦REGISTERS AS " 


**D2******* 


C2 V 


*. ALIGNED . 


~>* ERROR CODE 


RETURN* 
:ODE 5 


* CALL - FIND * 
♦VIRTUAL DEVICE * 
- BLOCK 


)2K4 
J4E2 
, FNOTE 
SETCC2 it 

**D3******* 
♦SET USER'S * 

* CONDITION * 

" CODE = 2 (IN * 

* VMPSW) * 
*********** 


♦♦E3******* 

fc ji? 5 D !r; s HE % * 

► ERROR CODE * 
*********** 


.♦IS VIRTUAL *. YES 

*. CHANNEL .*- 

♦•DEDICATED.* 


**G2******* 


*********** 


REFERENCE 
VIRTUAL DEVICE 
BLOCK 

(VDEVBLOK) IN 


'T 


**J2******* 


*. D£SD DEVICE 

**V .*•* 


, STORAGE IN 


*****G3********** 
* COMPUTE HOW * 
*MANY REAL CCWS * 
♦CONSTRUCTED SO * 


****G4********* 
♦GO TO DMKDSPCH * 


, ANY AT ALL 


* *YES *06 * 

i **** * E 3* 

L_>*06 * * * 

1 J3 *-, * A3 * * 

;*.** i ;*♦** 

:ci v 


♦♦J3******* 
♦SET USER'S * 
♦ < CONDITION 1 


L>* 


* 

♦ 

♦ 

♦ 

♦ 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

♦ 

* 

* 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 


***** oui 


♦SET FOR 2311.* 


YES .*ANY OF THE * 
-*. ABOVE 


""••'—I 


* ^ 
♦ SET FOR 3330 

*********** 


*02 * C 

: E2 **-] c 

(ROR11 V 


.* CCW COUNT *. NO 

'.NUMBER FROM 1.*- 

*. TO 15 .* 


*****A3********** 


NEEDED FOR 


*****B3****' 


* IUdLUK, « 

* REMEMBER CCW 

* COUNT GIVEN * 
- BY USER * 


CALL - GET 
STORAGE FOR * 
RCWTAS.K * 


*****B3********** 


*****P3*«******** 

* STORE NO. DBL * 

* WORDS, ADDR - 


*****G3********** 


***************** 


■ ERROR CODE 6 


*.IS IT A SEEK .*■ 


n 


04A1 
04 A3 
04 A4 
04B1 
04B4 


♦♦K4******* 

♦SET TO RETURN* 

‘ ERROR CODE 7 * 



f A 
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| DMKDGB — Perform DflSD I/O (Parts 5 and 6 of 8) 


***** 0363 


**A2******* 




—>* ERROR CODE 


IT*. 


L>; 


.♦BITE COOHT *. YES 


* 


**B2******* 
♦SET TO RETURN* 
* ERROR CODS 8 


**A3******* 
♦STORE REAL * 
♦DATA ADDRESS.* 
*PLAG TO UNLOCK * 
* LATER * 

* afe- 

*********** 


* CHECK POR * 

* PROTECTION * 

* VIOLATION * 

***************** 


**C2******* 


*********** 

I ***♦ 

L.>*oi < 


:a cross ♦. ho 

! BOUNDARY. 


‘1 


♦COMPUTE END OF 
♦AREA TO READ OR' 
* WRITE 

***************** 


*****D3********** 
♦♦TRANS - BRING** 


KIPiM 1 *:*! 


****+G1********** 
♦♦TRANS - BRING** 
** S LOCK 1ST ** 
** (OR ONLY ** 
** PAGE) ** 


‘ e Ia k SIn^ 


**P3******* 


*********** 


♦♦G3******* 
♦STORE REAL * 
♦IDANS & STORE* 
♦ADDRESS IN REAL* 
* CCN * 

*********** 


*SET TO RETDRN* 




* VIOLATION * 
***************** 


I—>*06** 


**jt4»****** 

* DECREMENT ♦ 
►COUNT OF CCN < 
GROUPS TO 


.♦ANY LEFT 1 


**C4****** 

ADJUST 


*********** 


♦ADJUST INDEXER < 
* FOR NEH GROUP * 
->* OF CONTROL * 


***************** 


* R8 PLUS * 
♦VMDVSTRT AGAIN * 
*= A (VDEVBLOK^* 
*********** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* ADJUST * 
*INDBXER POR CCN* 
♦JDST PINISHBD* 


*********** 


♦SET IOBIRA * 


*********** 


♦DISPLACEMENT * 
♦OF VDEVBLOK IN * 


**E1******* 

* * 

*VMDVSTRT L AGAIN*i 
♦ = A (VDEVBLOK) * 


♦SAVE ADDRESS * 
♦ OF ACTIVE 
♦ IOBLOK » 
*********** 


♦. SENSE BYTES . 




**J1******* 

♦ CLEAR ITS ♦ 
♦ADDRESS AND THE*— 

* FLAG BIT * 
*********** 


♦♦A2******* 
♦SET IOBHVC * 
♦ IN IOBFLAG; < 


*********** 


* CALL - SET TO ♦ 
DO I/O * 

OPERATION ♦ 


♦♦A3******* 

* * 

* SET INDICES * 

* POR UNLOCKING < 

* LOOP * 
*********** 


DGUNLOCK 

B3 

.*' UNLOCK ’*. 
->*. FLAGBIT SET . 


*********** 


YES •*ANY LEFT TO*. 


****A5********* 

* SOBR TO GET < 

* VIRT PAGE * 


*********** 


♦YKDVSTRT - TO* 

* MAKE RELATIVE * 
♦ACROSS TRANS * 

* CALL * 
*********** 


*****C5********** 


;v 


DG12 : 

♦ DMKFI 


;r|t’ 


NO .*DOES AN I/O*. 


■*H3********** 


•♦D4******* 

♦GET IDAW FROM* 

* THE DATA * 
* ADDRESS * 


***************** 


.♦ADDRESS*. 

.* ERROR IN *. 
►. VIRTUAL PAGE . 


**E5******* 

* R8 PLUS * 
*VMDVSTRT AGAIN < 
*= A (VDEVBLOK)* 
*********** 


****F5********* 

* RETURN - R5 * 
*************** 


DGUNLOK2 

♦****G4********** 
♦DMKPTRUL ^ # ^ ♦ 

♦“call - unlock”’ 

* USER PAGE < 


♦»H4******* 


*********** 


.♦ANY LEFT TO*. 















in 

CN 



c 

o 

•H 

-P 

N 

•H 

G 

CT> 

M 

O 

6 

(0 

U 

cn 

O 

u 

eu 



*************************■*****************.******# 






DMKDGD — Perform DASD I/O (Parts 7 and 8 of 8) 





IBM VM/370: Control Program Log 


| DMKDIA — Process DIAL Command, Connect to a 


DBK ^*A2*~~*** % 
* DHKDIAL * 
*************** 


DHKDIAL IS 
CALLED VIA £ 
FROM DHKCFt 


*****C2*«<. 

;^i5Sil*_*,*j S oi.e 

* CALL DHKSCHFD * 


< LOCATE OSEHID * 


>*85S! 




:rr 


* DHKDIA045E * 
* $OSERID$ HOT 

* logged oh * 
*********** 


0 nkn*-*-*-*-*-*-*-*—*invl 
-* CALL DHKSCNAU *- 

* LOCATE VHBLOK * 

* FOE 0SER * 


**D3******* 

* HSG= * 

* DHKDIA020E * 
—>*OSERID HISSING * 

* OR INVALID * 
*********** 


*****E2*> 

: G D E ivir‘ 
: oTSil 
5******?’ 


**F2****»*» 

* SWITCH * 
* VHBLOK AHD * 

*********** 


5S£** 


*****G2********** 

**E5^£?IL*_*_*Jhohe 

* CALL DHKSCHFD *-, 

♦LOOK FOR EXTRA ♦ I 

♦ FIELD - VADD ♦ V 

********************** 


YES 


*02 > 
***** 


’I 


813 

FNOTE 


*********** 


♦SETUP PARHS* 
♦FOR DHKERHSG * 
—>*FOR NO VARIABLE* 
* DATA * 

*********** 


13 *-1 C 

(N V 


♦ CALL DHKSC 


_*_*_*_*_*_*_*_* 
—>*CALL - CONVERT * 
♦ ADDRESS TO * 


l 


* DHKDIA047E » 
► USERID VADDR 

♦ DOES HOT * 
* EXIST * 

*********** 


Virtual System 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


(Parts 1 and 2 of 9) 


.♦IS THE LIHE*. YES 


LIHB0SY 

*****& 2 ********** 
♦DHKSCHVD 


. ALREADY IH 


1 


—>♦ CALL DHKSCHVD ♦ 
* GET DEVICE * 
♦ADDRESS AS CCD ♦ 
***************** 


♦CALL - CONVERT 
* ADDRESS TO 
- EBCDIC 


DHKDIA055E 

LINE^S^NOT 

i*********** 




♦»C2******* 

* HSG= ♦ 

♦ DHKDIA056E ♦ 

‘ LIHE XXX BUSY * 

♦ OH USERID ♦ 


k D1 *->} 01K3 


t TIHERS ,AHD * 
VHBLOKS TO 
* CALLER ♦ 

*********** 


♦ SETUP ♦ 

♦ HODULE ♦ 
♦IDENTIFIER AND * 

♦ OPTIONS FOR ♦ 

♦ DHKERHSG ♦ 


*****£1*1 
JDHKERHSG^ 

♦ CALL DHKERHSG ♦ 
♦CONSTRUCT, TYPE* 

wte 


♦ ***G1********* 

* EXIT - SVC 12 * 

* * 
*************** 


DIALNAD ? 

*****A3********** 

* f§i?iL§§s s §f: 

* DIAL-ED USER * 
♦FOR VIRT LINES * 


JVICE^"*-j 


* B3 * 
DIALSCH* 


*****03********** 


.♦ADVANCE TO * 


ITROL .♦-, 

C .♦*• H 


DLNXTCH 

C<* 

.♦ ♦. 

.♦ADVANCE TO *. 

♦ .NEXT CHANNEL .i 




***** E 3*** ... 

* ACCESS THIS t 
♦VIRTUAL CONTROL* 

* UNIT BLOCK * 

* VCUBLOK * 


IS THIS 
DEVICE 
, DEFINED 


v*"-l 


* ACCESS THIS * 
♦VIRTUAL DEVICE * 
♦BLOCK VDEVBLOK * 
****♦*♦♦♦***♦*♦** 


.* IS If *. 
,♦ CORRECT 
. DEVICE TYPE 




.♦IS THE *. 
.* DEVICE * 
. ALREADY IN 




“1 


♦DONE ♦ ♦ 

| ***** B3 * 

L_>* * * 

* Cl ♦♦*** 



ic 246 


v.y 












♦DEVICE ADDRESS * 
♦OF DIAL-ED LINE* 


DIAL-ER'S 


♦MARK SELECTED* 
♦VDEVBLOK NOW IN* 


*»***D1********** 

♦DMKSCNRD # * 

*~ call~- - gIt * 

♦DEVICE ADDRESS * 
♦DIAL-ER'S TERM * 
***************** 


* CALL DMKFREE * 

* FREE STORAGE * 

*J°* R **5 S *S* B * U *!I E *S*** 


*****FI********** 
♦DMKCVTBH # ^ ^ * 

*~CALL DMKCVTBH~’( 
♦ CONVEF" - J 


tmuh 


;DDRESS*< 


♦ CALL DMKCVTBH ♦ 

* CONVERT LINE * 
♦ADDR TO EBCDIC ♦ 


K USER' MESSAGE « 


VMBLOK, TO 


♦SAVE-AREA TO * 
* LOAD DIAL-ED 
* VMBLOK ON * 
* EXIT ♦ 


■♦♦S3********** 


♦DBKgCNWT ^ 


CALL - TYPE 
DIALED TO ID' 
► FOR DIAL-ER 


' ALTER ACTIVE 


■ TO 'DIALIRA' 


* D5 **—| ON A 2 
DIALIOB .*. 


♦DMKSCNVU 


♦ DIALED LINE » 
***************** 


♦REMOVE DIALED* 

* FLAG FROM * 
* VDEVBLOK * 
*********** 


****S3********* 

* EXIT - SVC 12 * 


OTHR * - 'HIO' - *CC = 3 

r REMOVE ACTIVE - 

* 'PREPARE' CCW* 


SHORT CTL 


‘.UNIT BUSY.* 


INTERRUPT 




| DMKDIA — Process DIAL Command, Connect to a Virtual 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

System 


' INCREMENT * 


* CALL DMKCVTBD ' 
‘CONVERT DIALED ' 
■ USER COUNT ' 


♦DMK^CNWT + ' 

*CALL - -~sInD MSG' 
* TO OPERATOR ' 
♦W/NORET OPTION ' 


^"SI^aZ-W ! 




♦ LINE VDEVBLOK 


♦CONNECT DIAL-ER* 

* TERM RDEVBLOK ♦ 
♦TO VDEVBLOK OF * 

* DIAL-ED LINE * 


IOBLOK FROM 

• DIALED * 

* VDEVBLOK * 


♦ CALL DMKIOSOR * 

* START REAL * 
♦ENABLE SEQUENCE* 


DMKDIADR^^^^ 
* DHKDIADR 


ENTERED VIA i 


FROM DMKDIASM 
OR DMKCFPRD 


♦CALL - PERFORM * 

♦ DEVICE RELEASE * 

* ACCOUNTING ' 


♦MARK VDEVBLOK* 

‘ DISABLED AND * 
* AVAILABLE * 


**E3******* 

* DETACH » 
♦RDEVBLOK FROM* 
♦VDEVBLOK, MARK * 
* FOR DMKCNS * 


*CALL - BUILD A * 

* VMBLOK AROUND ' 

* RDEVBLOK « 


CALL - GET FREE* 
STORAGE FOR * 


♦SETUP IOBLOK ' 




SENSE COMMAND * 


•♦CALL - GET REAL* 
♦DEVICE ADDRESS * 


♦CALL - CONVERT ' 
* ADDRESS TO < 


* DECREMENT * 


‘CALL - CONVERT ■ 


♦DMK^CNWT + + * 
♦CALL”- SEND MSG* 
* TO OPERATOR * 


♦ *EU**** *** 

* CONSTRUCT * 

* MSG 'LINE * 
♦RADD DROP FROM ' 
♦USERID VADD' * 


iETURN TO* 


***************** 


DMKgCNWT ^ ^ * * 


♦***H4***»***' 


* MODIFY * 

*SAVE-AREA TO * 

♦LOAD VMBLOK OF * 
* DIAL-ED * 

* SYSTEM * 

*********** 


****H5********* 

► EXIT - SVC 12 ' 


* MESSAGE BUFFER 1 


(Parts 3 and 4 of 9) 
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| DHKDIfl — Process DIAL Ccmmand, Connect to a 


'♦♦A2********* 
RELEASE A * 
VMBLOK * 


♦♦B2******* 

* PICK OP * 
♦VMBLOK CHAIN * 
♦ANCHOR 'ASYSVM'* 


■ RELEASING *. 
'RUNUSER' 
VMBLOK .* 


**D2******* 
♦SET •RUNUSER'* 
■ TO SYSTEM 
♦ VMBLOK 1 
*********** 


FRETVM2, 


'*E3********** 


.♦ MORE THAN ♦. ’ 
♦ .ONE VMBLOK IN.*- 
♦. CHAIN .♦ 


SET CHAIN 


***************** 


♦♦F3******» 

♦REMOVE VMBLOK* 

* FROM VMBLOK * 
* CHAIN * 


FRETVM3 

♦♦G2******* 
♦MOVE CHAIN ♦ 

* ANCHOR IN * 
♦CASE FIRST USER* 

* DELETED * 


:ALL - RELEASE * 
THE VMBLOK * 
STORAGE < 


♦♦**J2******< 
* RETURN - RS 


Virtual System 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


(Parts 5 and 6 of 9) 




r *I INI 

%??- 


!°*1**-, 07C1 
****** | 07E2 


*07 * 

* a4***»* 

* * *06 * . 

* * F2 *-> 07C2 


r 


i 


CALLED VIA SVC 


♦♦C3******* 

* INITIALIZE * 

* FLAGS AND * 
♦IOBLOK STATUS* 

*********** 


*****03********** 

* PICK UP START * 

* OF CCW STRING * 
♦FOR EXAMINATION* 


■ E3 *-> 07D1 


.*IS THIS CCH*. YES 


* ADVANCE TO 
CC» AT TIC 
« ADDRESS 


♦DMKDIADR 


:ALL - DROP THE* 
DIALED LINE * 











l 




*****32*' 

* GET REAL DATA * 

* ADDRESS FROM < 

* SENSE CCW * 


► SET STATUS 


*IS THE CCW » 


♦STORE STATUS 1 
1 IN IOBCSH 


I 06H4 
I 06J3 
06J4 


|-*. + CHAINED ^.*<— 


♦ ADVANCE TO * 
♦NEXT CCW IN CCW* 

* STRING * 


SETSENS 

**D3**' 
♦STORE SENS! 
-- ADJUST 


♦BYTE, ADJUST ► 
—>*RESIDUAL COUNT 


**E2*’ 

►SET STATUS = * 
PROTECTION 
► CHECK > 

*********** 

L>* 06 *i 


CALL - GET 
STORAGE FOR 
IOERBLOK 


**E5******* 

* INITIALIZE 
‘IOERBLOK, MOV! 
♦IN SENSE DAT! 


♦SET IOBUSER, 


► CALL - STACK 


► EXIT - SVC 12 ► 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


♦MODIFY ENABLE* 
* CCW TO 'WRITE * 
* CIRCLE-C' * 


► 'IOBRSTRT', * 
'IOBRCAW' TO 

► START AT 1 
* ENABLE * 


* ADDRESS FOR * 
►'DIAL' COMMAND,* 
♦SET VDEVENAB * 


****D1********* 

► EXIT - SVC 12 * 
*************** 


► **A2»*******> 
DMKDIACP 


DIACPADI!^^ 

♦DMKSCNFD 


► CALL - GET 

► FIRST DEVICE 


♦CALL - CONVERT * 

* ADDRESS TO 
:***.»»» *********** 


■n 




.-*-*-*-*-*-*-*-*ERR 

* CALL DMKSCNFD * 
*FIND USERID C~ * 

* OPTIONAL 'TC 




• CALL DMKSCNFD 
FIND USERID 
■ FIELD 


n 


♦.CONNECTION TO.* 


DIACPOTH 
♦****J3 
♦DHKSCNAU 

->*~ HaIl^'fInd 

* V M BLOK FOR 

* GIVEN USERID 


♦SET FLAG FOR * 
♦WRAP TO SINGLE * 
♦VIRT HACHINE * 


>* CALL DMKSCNFD * 
♦ LOCATE SECOND * 
♦DEVICE ADDRESS * 


“1 


♦DMKCVTHB * 

*_*_*_*_*_*_*_*_*ERR 
♦CALL - CONVERT *-, 

* ADDRESS TO * I 

* BINARY * V 


. SECOND ADDR . 


****D4*< 

DHKSCNVU * 

• .*_*_*_*_*_*—*_*ERR 
CALL - LOCATE *— 
■X-SIDE VDEVBLOK* 


k n 


->* CALL DMKCVTBH * 
♦CONVERT ADDRESS* 
* TO EBCDIC * 
***************** 


♦INVALID DEVICE * 


(**************** 


♦****S4********** 

♦DMKVCARS # ♦ 

♦CALL~- - Di0P ANY* 

♦ PREVIOUS * 

* CONNECTION * 

***************** 


Y-SIDE VM 


► CALL - LOCATE « 

► VCUBLOK AND ' 


♦.CONNECTION TO. 




| DMKDIA — Process DIAL Command, Connect to a Virtual 


* 

System 


(Parts 7 and 8 of 9) 


Program Organization 249 





















IBM VM/370: Control Program Logic 250 


| DMKDIA —— Process DIAL Command, Connect to a Virtual System (Part 9 of 9) 


»CALL - CONVERT > 
‘ FIRST ADDRESS > 
> TO EBCDIC < 


♦BUILD •CTCA* 
*XXX COUPLE TO* 
♦ USERID XXX' MSG* 
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| DMKDMP — System Dump Processor (Parts 3 and 4 of 9) 


CC=1->0744 

CC=2-> H4 

CC=3— 1 —> F3 

cc=o—■ 


DSKNTRC2 V 

♦♦♦*D1******* 

* DSKHTRC2 


* ISSUE SENSE * 
■ COMMAND ID DUMP 
* DEVICE * 


TRANS V 

*****E3*********4 

♦TRANSLATE DATA * 


♦CONVERT STORAGE* 
♦KEY INTO PRINT * 
* LINE * 


1 RBCBLOK* * 

>♦**♦*#***# 

***************** 

L>*02** 

* J1 * 

**** 

'♦YES 

* 

**************** 

* ************** 

♦ ♦♦ | **********< 

; 

♦03 * I 

* H4 ♦-> 07A4 

DSKBWAIT V 

**H4******* 

* 

* 

*****H2********* 

PARTLINE l 

* *****H3******* 

CLEARL V 

*** *****p4 ***3( 


ROVE •LINEID 1 
INTO SUPP 
LINE (S) MSG 
ENDING ADD 


* MOVE STARTING X 
X ADD FROM SUPP * 
f PAGE (Si MSG * 
►INTO ENDING ADD* 


. KZH 

SKIPTST 

J5 *. 

. *" *SKIPSUP 1 * * . NO 









* ADD 1 TO LIKE * 

* COUNT * 

* * 





DHPPRGCK 

****A4********* 

♦PROGRAM NEW PSH* 



DMPHCHCK 

****& 5 ********* 

* MACHINE CHECK * 

* NEW PSH * 



| DMKDMP 


System Dump Processor (Parts 5 and 6 of 9) 


DHPT1PE 
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DMKDMP — System Dump Processor (Part 
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DMKDRD — Process Input Spool File (Parts 1 and 2 of 8) 


**A4******* 


CALLED VIA SVC 
FBOB DBKHVCAL 
TO PROCESS 
DIAGNOSE CODE 


*********** 


.* EVEN-ODD *. 
♦.REGISTER PAIR.* 
♦. GIVEN .* 


DRDSPEC^ 


*22******* 

.* s !o t dIs et ?§S % 

SPECIFICATION * 
► INTERROPT ^* 
*********** 






.* IS DEVICE *. NO 


♦Iaddress VALID.* 


*****Gi********** 

*DMKSCNVD * 

*_*_*_*_*_*_*-*-*ERR 

* CALL DHKSCNVD *- 

* LOCATE READER * 
***************** 

10.K. 


* PASS RETORN * 
—>* CODE BACK TO 

* CALLER * 
*********** 


****23********* 

* EXIT - SVC 12 * 
*************** 


oil* 


* SET INVALID * 
—>*DBVICE ADDRESS * 

* CODE 4 * 




02G1 

03A1 


*. DEVICE A CARD.*- 


**H2******* 

> SET INVALID ' 
DEVICE TYPE 
‘ CODE 8 ’ 

*********** 


)0->02A2 

„J4->08A2 

008 ->08A4 

" x - ->03A3 

->04A1 

->04A2 

->04A3 


8«: 


U“ 


07E4 

07H4 

07J5 

08K3 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


****A2********* 
♦READ NEXT PAGB * 

* BOFFER FROH * 

* SPOOL FILE * 
*************** 


**»**B2********** 


VALIDATE * 
♦VIRTUAL BUFFER * 
* ADDRESS * 
***************** 


*****G2********** 


IS THBRE AN 


NO .* IS THIS *. 

r *.PAGE THE LAST.* 
*. PAGE .* 


** 22 ******* 

♦SET •SFBBOF* * 
* NOB AT END OF * 
* FILE * 


**C3******* 

* * 
♦SETUP TO GIVE* 

>* CC = 2 IF NO *- 
* BORE FILES * 
*********** 


>*. CONTINUOUS .*- 
*. SET FOR .* 


.* FILE *. 

' SPECIFY *. 

MULTIPLE 
‘. COPIES .* 


EXAM02 

*****24********** 

♦DRDLOSE * 


•*F3******» 

*********** 


***************** 


**f4******* 

♦SETUP TO GIVE* 

* CC = 1 IF NO *- 
* BORE FILES * 


.* IS DEVICE *. NO 
«*. BUSY VIA 
♦.DIAGNOSE . 


*********** 


HA . *-, 

1S V* n 


*02 * C 
* G1 *-, C 

RDIOEB V 


*°G2**->I 04E3 


♦»G1******* 


*********** 

L>*01** 


GIVEPAC 


*****G2********** 
•DBKRPAGT * 

IOER*—*—*—*—*—*—*—*—* PHOT 
-*CALL - GIVE VB *- 


rr 


DRDPBOT 

♦♦G3******* 
♦SET RETURN * 

* CODES FOR * 
->♦ PROTECTION * 

* INTERRUPT * 


***************** 


* SAVE NEXT * 
♦PAGE POINTER IN* 
♦VSPLCTL BLOCK* 


GETSFB2 V 

*****fj5* ********* 

♦CONNECT * 


**************4 















02D3 


01J1 



* SET DEVICE 
* BUST CODE 1 


u 


DMKDRD - 


.♦ FILE *. 
.* INDICATE 
*. BOLTIPLE 
». COPIES . 


SELECT? 


: -J 


.* A 3********* 

- SELECT SPOOL * 
♦FILE BT FILE ID» 


n 


04B1 

04C3 

06J4 


»*B4»****** 


* TO START OF « 
INPOT FILE 
► CHAIN < 
*********** 


SADNXT V 


.♦IS THIS*. 

REQUESTED i 
*. SPOOL .* 
♦.FILE .* 


********************* 


SETCOD1*,, 


SET VIRTUAL * 
^♦CONDITION CODE^ 

i*** *********** 


c 


► TO START OF * 
INPOT FILE 

► CHAIN < 

*********** 


.♦ DOES ♦. 

.* THIS FILE ♦. 
>. BELONG TO . < 
♦.THIS OSER.* 


♦ERROR BEIT R15 * 
*************** 


t IN 1 


,♦ IS THE ♦. NO 

, INPUT CLASS .♦-, 

♦. CORRECT .♦ 1 


.♦SHOULD ♦. 

* HE SKIP ♦. NO 

OVER DOBP .*-, 

*. FILES .* 1 


♦. SISTEB DOBP .’ 


♦ ♦♦♦J5* 3 
♦ RETOHN 


'"I 




* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


- Process Input Spool File (Parts 3 and 4 of 8) 


ACTIVB FILE 


i~l 


n 


♦♦»*A4********* 




.♦DOBS FIELD *. HO 


t******************** 


**C2******* 


♦YIBTUAL BUFFER * 
♦ ADDBESS * 

***************** 


*. CROSS PAGE * 
♦.BOOHDABY 




, COUNT VALID 


“i 


*****C3********** 

♦CHKBOSI * 

*-♦—*-*—*—♦—♦—♦—♦NO 

* IS THERE AN * 

♦ ACTIVE FILE 


n 


♦SET NEH COPX ♦ 
♦COONT IN SFBLOE 

*********** 

L>*oi% 


.. IBS 

*■ "l 


.♦IS ADDRESS * 
♦. IN VIRTUAL 


****04********* 

♦ RETURN - R14 * 


DRDADDR 

♦SET RETURN * 

♦ CODES FOR 
->♦ ADDRESSING 

* INTERRUPT 


•*S3*****«* 

♦ BACK DP ONE * 
♦PAGB RECORD IN * 

* FILE * 
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DMKDRD — Process Input Spool File (Parts 5 and 6 of 8) 


SEAHCHB' 


*A1********* 
LOCATE SFBLOK * 
FOB THIS OSBR * 


SETTS PL 

**** 12 ********* 

* SET TSPLCTL * 

* BLOCK FOR * 
TDETBLOK 


CORRECT 

****a4********* 
♦CORRECT SFBLOK ♦ 
♦TO TSPLCTL AHD ♦ 
TDETBLOK 


**81******* 


♦ FILE CHAIR ♦ 
*********** 


TSPLCTL ♦. HO 


♦.BLOCK ALREADI.*- 


**B4******* 
♦HARK SFBLOK* 
*IR OSB, OPER t * 
* RECORD ALLOC * 
* CHAIR * 
♦IRCOHPLETE * 


*****C3********** 


,* IS DETICE *. 1 
, IH BSE TIA .*- 
♦.DIASBOSB .♦ 


**** 02 ********* 

* * 

* RETURN - B6 * 

* * 
*************** 


► CALL DHKFREE * 

► ALLOCATE ♦ 
■ TSPLCTL BLOCK * 


**D3*****«« 

* HARK * 
♦TDETBLOK BBST* 

♦ TIA DIA6H0SE, * 
* COHHBCT * 

* TSPLCTL * 
*********** 


****g3********* 

♦ RETORH - R6 * 

* * 
*************** 


♦****C4** 
♦GETTSPL^ ^ 

*"siT - A _ TSPLCTL”* 
♦BLOCK IF HEEDBD* 
***************** 


**D4******* 

* CORRECT * 

* SFBLOK TO * 

• TSPLCTL. IHIT > 

* DASD START * 

* POIRIER * 
*********** 


****B4********* 

* * 
* RETORH - RIM * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CHKBOSX 

****&-) ********* 
♦CHECK TDETBLOK * 

* FOR BIASHOSE * 

* SPOOL FILE 


DRDLOSE 

****A3********* 

* CLOSE THE * 

* ACUTE IRPOT * 

* SPOOL FILE * 
*************** 




♦.DIAGHOSB . 


**** 02 ********* 

* * 

—>*BHROE EXIT R15 * 
* * 

*************** 


* CALL DHKTSPCR * 
♦CLOSE A READBR * 

* FILE * 

***************** 


****03********* 

* RETORH - R6 * 


»«**£3********* 

* RETORH - 814 * 

*************** 


****A4********* 

* DHKDRDHP * 
*************** 


CALLED TIA STC 
FROH DHKHTCAL 


TO TSPLCTL, 

* TDETBLOK 
***************** 


.♦ARE HE *- 
.*ALREADY AT *. XES 
*. EHD OF FILE . ~ 


LE^.*- 


*«C4******« 
♦SET TIRTOAL* 
*CC=0, SET TO * 

► PROCESS DORP * 


*****D4********** 
♦ADDCHEK^ ^ * 

* TALIDATB * 
♦TIRTOAL BOFFER * 

* ADDRESS * 
***************** 


**D5******* 

♦SET 'SFBEOF* 
* HOH AT EHD 01 


*********** 


DHP **I«*E5********** 
PBOT*-*-*—*-*-*-*—*-*I0E8 


•*IS THE *. 

.* TIRTOAL -. -w ,____ 

♦ . DETICE ADDR .*-, ,-*CALL - SITE TH *-. 

*. # TALID # .* | [ JACCESS^O PAGE * J 

"*. .** ******************************* 


*****F4********** 

•DHKSCHTO * 

*_*_*_*_*_*_*_*_*ERB 

* CALL DHKSCHTO *-, 

♦LOCATE TDETBLOK* j 

********************** 


O.K. 


*01 * 
* S2* 


■'n 


**•••*•*•******•* 


-*—*—*—*—*—*—*IBS 

* IS THERE AH * 

* ACTITB^SPOOL 
********************* 


n 


***«*J4*> 

♦SEARCHB 
*_*_*_*_ •—*_*—*_*ROHE 

♦ FIHD AN SFBLOK *-, 

* FOR THIS OSBR * J. 
********************** 


.* IS THIS A *. 
*. SISTBH DOHP .< 
*. FILB .* 






r^\ 

\ j 



















* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 


DMKDRD — Process Input Spool File (Parts 7 and 8 of 8) 
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IBM VM/370: Control Program Logic 260 


| DMKDSP 


Dispatcher (Parts 1 and 2 of 10) 


NO ,*DELAYED PER*. 
[“•—* . INTERRUPT 
1 *. PENDING .* 


BASK PROS * 
VMBLOK EXTENDED* 
AREA * 



■ ^ ACTIVE jf .*-—^ 



** - TRANS - > 
**FETCH USER'S ■ 
** PAGE 0 







PRESINT 



| DMKDSP — Dispatcher (Parts 3 and 4 of 10) 


* 

♦ 

♦ 

4C 

* 

4c 

♦ 

* 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4e 

4c 

4c 

4c 

4c 

4c 

* 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 
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IBM VM/370: Control Program Logic 262 


| DMKDSP — Dispatcher (Parts 5 and 6 of 10) 


> INTERROPTING * 

* ONIT FROH * 

* VCHBLOK * 
***************** 


♦ CALL - LOCATE * 
♦VCHBLOK VCOBLOK* 


GETVCOI V 

♦♦♦♦♦AS********** 
♦GET BIT BAP OF * 

♦ C.O.'S NITH * 

♦ PENDING * 

♦ INTEBBOPTS * 


VDEV|LOK 


*****65********** 
♦SHIFT AND TEST ♦ 
♦BIT BAP TO GET * 

♦ INDEX INTO * 

♦ VCHCUTBL * 


-‘1 


***♦♦***« 

♦ SVC 0 - ABEND * 

♦ CODE DSP001 * 

♦ * 
*************** 


8M 




•♦CSV STATOS ♦. NO 
♦ .^ PCI ALONE # .*— 


*****65********** 

♦GET INDEX INTO ♦ 
♦VIBTUAL CONTBOL* 
♦ONIT TABLE FOB * 

♦ INTEEBUPTING ♦ 

♦ DNIT ♦ 

***************** 


.♦ CHANNEL 
•. IHTEBEDPT 
*. PENDING . 


*****22*********' 

♦ SAVE CSW, 

♦ BEBOVE PCI FBOB> 

♦ VDEVBLOK, 

♦ ONFLAG CE 

:****sig2ig§****, 

i06*t 


, COE PENDING . 
♦ , . ♦ 

‘♦YES 


***** F 3********** 

* GET STATOS ♦ 

* BYTES FBOB ♦ 
♦VCOBLOK, ONFLAG* 

* COE PENDING * 
***************** 


•'1 




*****64********** 

♦ GET STATOS ♦ 

* BYTES FBOB ♦ 

♦ VDEVBLOK ♦ 

* * 
***************** 


******** 

ONFLAG DEVICE ♦ 
INTERROPT ♦ 
PENDING ♦ 


♦ VCOBLOK FOR ♦ 

***************** 


♦GET BIT HAP OF * 

♦ INTERROPTING * 

* DEVICES ♦ 
♦♦♦♦*♦♦♦**♦♦**♦*♦ 


ies ijsij f5 ********** 

♦SHIFT AND TEST * 

♦ BIT HAP TO ♦ 

->♦ INDEX INTO * 

♦ VCODVTBL ♦ 
***************** 


*****65**4 
♦GET INDEX INTO ♦ 
♦VIBTOAL DEVICE * 

* TABLE FOB * 

* INTERROPTING ♦ 

* DEVICE * 

'"‘~“-'********* 


***************** 


*. COE PENDING 


* 

* 

* 


*****£1********** 


;>• “i 


* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***** 05F4 


C STATOS 
CES FROH 

r. 


*****£ 2 ********** 


'“•■•■* J 


.♦VCOBLO K*. 
,* ON SHARED 

, sobchann: 


ZB 


i********** 
;SET p SDBCH|NNBL * 
• VDEVBLOK” * 
:**************** 

L>*05** 

* C2 ♦ 


*****D2*******^*» 

♦SET I/O OLD PSN* 
♦ ■ VHPSN * 

***************** 


*****E2********** 

♦SET VHPSN = I/O♦ 
♦ HEN PSN ♦ 

***************** 


« REFLECTED 

* CSH, STORE 
♦ADDRESS OF ONIT* 

* * 
***************** 


NOTRAC2A .*. 

J2 *. 

• ♦‘any ihts.**. 

♦. STILL IN 
♦. DEVICE .♦ 


*»***A3********** 


**A4******* 




♦♦A5******* 


MNTS. IN C.O.. 


‘"I 




*****C3*♦♦♦♦*♦♦♦♦ 
♦ * 
♦ONFLAG BIT HAP * 
♦IN VCHBLOK FOR * 
♦ CONTROL ONIT * 
***************** 


****«C4********** 


* CTL REG. 2 * 

* ♦ 
***************** 


► D4 *-> 01D3 


* ANY BORE 
INTS. IN 
*. CHANNEL . 


r' 

*****4*** 


* K2* D4 * 


.♦DOES OSER =*. YES 


*****E3*********4 

* ONFLAG BIT IF “ 
♦VHBLOK SOHHAR1 

* BASK FOR 

* CHANNEL 
***************** 


lNNELS. ♦-1 


***************** 


,* IS VIRT 
HACHINE 
♦.RONNABLE . 


SCHDL 

♦****J4♦♦*♦*♦**♦* 
♦DBKSCHDL ^ ^ ^ 

*~ CALL- ALTER " 


*♦♦**65*♦**♦*♦♦♦♦ 

* STOP CHARGING * 

* ORIGINAL OSER * 

* FOB TIHE * 
***************** 


*****65********** 

♦GET 1ST IOBLOK * 

♦ ON CP REQOEST ♦ 

♦ STACK ♦ 

***************** 


♦. STACK EHPTY 


PTl^« ♦--j 


*****65********** 

♦ ONCHAIN THE * 
♦IOBLOK FBOB THE* 

* STACK ♦ 

***************** 


***** F 5********** 

♦GET ADDHESS OF ♦ 
♦IOBOSEB AND OF ♦ 

Wograsiss s 


********* 















***** 07H<I 




***** 06D5 


CKCPBBQ 

♦****A1 


********** 


***************** 




CKOSERS 

***** lit ********** 

* GET LAST RON * 

* USER AND HIS * 
♦REMAINING TIME * 

* SLICE * 


* GET EXECUTION * 
->* ADDRESSES FOR * 

* EXTEND * 

***************** 


lABLE^.*-j 


* C2 * 
CKLIST** 


. STACK EMPTY . 


IPTY^.*——| 


*. STACK EMPTY . ♦- 


CKCPREjjJB^ 


Dl********** 

* UNCHAIN THE * 
♦BLOCK FROM THE *<- 

* STACK * 


***************** 


♦****D3********** 
* SET RUNUSER = * 
♦SYSTEM VMBLOK, * 


*****£ 1 ********** 

* SAVE THE * 
♦REGISTERS FROM * 

* THE BLOK IN * 

* TEMPSAVE * 


***** 22 ********** 


♦ SET RUNPSW = 


***************** 


*****E3********** 


***************** 


♦****F1********** 
♦DMKFRET^ ^ ^ ^ * 

*~CALL ~ iETURN~* 
*THE CPEXBLOK TO* 
* FREE STORAGE * 
***************** 


* INTERVAL * 
♦TIMER TO AVOID * 

* UNNECESSARY * 

* INTERRUPT * 


*****61*i 

* LOAD THE * 
♦REGISTERS FROM * 

* TEMPSAVE, GET * 

* EXECUTION * 

* ADDRESS * 
***************** 


«****H1********** 
♦START CHARGING ♦ 

* THE OWNER OF * 

* THE CPEXBLOK * 

* FOR CPU TIME ♦ 


♦♦63******* 

* * SSM' ALLOW* 
♦EXTERNAL AND * 
*1/0 INTERRUPTS * 


****J1********* 

* GOTO CPEX * 

* EXECUTION * 

* ADDRESS * 

*************** 


IDLE - OR 


♦RUNNABLE USERS * 


-*. LIST EMPTY 


-♦.COMPUTE BOUND.* 

"*. .*" 

♦YES 


! ****G«********** 


SYSTEM IS 


***************** 


♦CONDITIONS. I/O* 


*****H4«*******«* 

♦START CHARGING * 
•>* NEW USER FOR * 
CPU TIME * 

i******************** 


r 


| DMKDSP — Dispatcher (Parts 7 and 8 of 10) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SETJUANT 


;****& 1 ********** 


***************** 


****B1*’ 

SET UP VMPSW * 

i**************** 


♦LOAD USERS REAL* 

* CREGS WITH * 

* USERS VALUES * 


.♦IN EC MODE *. HO 


***************** 


.* CREGO OR *. NO 


.♦IN VIRTUAL *. 1 
'♦. TRANSLATE .♦- 
*. MODE .♦ 


**^ G r _____ 

♦ CODE DSP002 * 
*************** 


**G2******* 
♦USE C-REGS 0 * 

*5.i.I!Om,oser.s, 


♦ SHADOW TABI 


**F3******* 


*********** 


♦STORE C-REGS ♦ 
—>♦ 0 S 1 FOR USB 
♦VERY SHORTLY < 
* * 
*********** 


* CALL - ♦ 

♦INVALIDATE THE * 

* SHADOW TABLES * 


* PURGE TRANSLATE* 

* LOOK-ASIDE *— 

* BUFFER * 

***************** 


**************** 


' 1 


♦****G4********** 


***************** 


c 


******************** 


,* VIRTUAL ♦. NO 

, LOCATION 80 .*- 

♦.AVAILABLE.* 


* LOCATION 80 « 

► TIMER = SAVED * 

* VHTIMER ♦ 


*****j5********** 


•USER'S GPRO-15 1 


♦♦***B5******4 


♦TIMER "'QUANTUM* 


♦♦♦♦C5********* 

♦ LPSW RUNPSW * 


SY20-0880-1, Page Modified by TUI. SN20-2624, August 15, 1973 


Program Organization 263 












SY20-0880-1, Page Modified by TNL SN20-1624, August 15, 1973 



IBM VM/370: Control Program logic 264 


*****j3********** 

* USE PENDING * 

* MASK TO GET * 

* EXTERNAL * 
♦INTERROPT CODE * 








(01 V 


**A4******* 

* SET RETRY * 

* CODE TO 3 5 < 
TERMINATION 

* CODE TO 1 1 


* GET THE I/O * 
♦EXTENDED LOGOUT* 


.♦IS I/O *. 

.* EXTENDED *. YES 

*. LOGOUT ETR. .*- 

*. ZERO .* I 


;T 


* HAS THE 
CHANNEL 
♦.LOGOUT ? . 


* SET RETRY * 
—>* CODE INVALID 

* FLAG * 


IS THIS 

? BR §!o°? \ 


.♦IS UNIT*. 
.* ADDRESS * 
, SAME AS IN 
*. LOGOUT .* 


► SET SYSTEM < 
TERMINATION 

► FLAG 1 




SET0303 

**K2******* 
* SET RETRY * 


♦♦***C4********** 

* SAVE THE I/O * 
♦EXTENDED LOGOUT* 

* IN THE CCH * 

* RECORD * 

***************** 


**♦**04********** 
♦INITIALIZE THE * 

* I/O EXTENDED * 
♦LOGOUT AREA TO * 

* ONES * 

***************** 


CCHEXIT4 V 

****E4********* 

♦RESTORE REGS. S* 
'* RETURN TO CCH * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 


YES •*THIS ERROR *. 

-*. ON AN I/O .* 

♦ .INTERRUPT.* 


JYES 


SYNCH LATCH . 


***** C 4****** 


♦THIS ERROR *. YES 




C 


♦SET THE UNIT * 

* ADDRESS VALID * 
* FLAG * 


**********> 


.* IS TIO *. 
. ADDR. EQUAL . 
*. DCHAR . * 


r’ - ! 


.♦IS THIS CC *. 
>. RESELECT 
*. MAJOR ? 


—I 


SET0401 

**F4******* 

* SET RETRY * 

* CODE TO 4 & 1 


CKCCHLCH .*, 


r *. XFERHED 

•.JCHDOUT) .* 

**** "*.'.*‘ 

* * *YES 


* H2^*—| ( 




‘•"1 


: 63 :.> 

**** 

SET0410 V 

**Q3******* 

* SET RETRY * 

* CODE TO 4 £ * 
* TERMINATION 

* CODE TO TO * 

\«iMl* * 


)3A1 


‘I 


.♦IS THE UNIT^. 
-♦.STATUS VALID .♦ 


n 


■ TERMINATION * 


*SET SELECTIVE* 

* RESET FLAG IN * 
♦BUILDED ECSH * 

* * 


*********** 


L>.- 


*********** 


| DMKEIG — 2880 Channel Module (Parts 1 and 2 of 3) 
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IBM VM/370: Control Program Logic 264.2 


2880 Channel Module (Part 3 of 3) 


SET0210 V 

**41******* 

* SET RETRY * 

* CODE TO 3 6 * 
* TERMINATION 

♦ CODE TO (10) * 


.* *" l 


*. MAJOR ON ? 


•♦. MAJOR ON 


-♦I Subchannel ? ! 
"*• .♦* 
‘♦YES 


*********** 


SET0510 

**G2******* 

♦ SET RETRY ♦ 


♦ GET THE SCS * 
—VINDICATOR FROM ♦ 

* THE LOGOUT * 
***************** 


I*--1 *! INDICATOR .’*-, 

1 ♦.EQUAL 1«y* ^ 

*01 ♦ * *YES ♦ * 

**K3* j_ + ***»* G 3 * 


SET0501 

**E4 ******* 

* SET RETRY * 


Ls 


SET0010 

*+p4******+ 

♦ SET RETRY * 

* CODE TO 0 6 * 

->♦ TERMINATION 1 

♦CODE TO (10) + * 
*********** 


: G3 :_> 

**** i 
SET0001 V 

**G3******* 

* SET RETRY * 

* CODE TO 0 8 < 
* TERMINATION 

♦ CODE TO (01) 1 






DMKEPS - 


BNTP02 

*DMKgCNHT_^ * ' * 

* - call - send 
* PROMPTING * 
♦MESSAGE TO USER* 
***************** 


♦ CALI - GET * 

♦ STORAGE FOR ♦ 

♦ INPOT BUFFER * 
***************** 


**£-]**•**** 

* REFERENCE ♦ 
♦ TERMINAL REAL * 
♦DEVICE BLOCK ♦ 
**♦*♦*♦***♦ 


.♦3210, 3215*,*. 1 
. <"OR 2150 .*- 


****♦ 83 ********** 

♦DMKgCNRD ^ ♦ 

CALL~HAVE "♦ 

♦ USER TYPE IN ♦ 

♦ THE PASSHORD * 
***************** 


•♦IBM TYPE 1 *. 
ADAPTER .♦ 
♦.TERMINAL .* 


*♦*♦4 /(♦*♦♦♦♦♦♦♦ 

♦ PASSRETN ♦ 
*************** 


.♦ PERMANENT * 
. ERROR FROM 
♦.TERMINAL .< 


ENTP13 

*•***85***♦****♦♦ 

♦DMKFRET ♦ 


*****03****** 


♦DMKgCNV 


CALL - TYPE 
"RESTORE" 
CHARACTER 




♦GO TO DMKDSPCH * 


* AND COUNT, 


*********** 


♦****R4♦♦♦♦*♦♦*** 
♦DHKSCNFD ^ # ^ * 

♦call - - - isolate - * 


♦SET SIMPLE * 
** FOR K 3215 RS 
♦ xxxxxxxx 


♦ CONDITION * 

► CODE 3 = PERM 1 

♦ TERMINAL * 
♦ ERROR * 


♦ OR DMKLOG ♦ 
*************** 


►.NULL (BLANKS^.*— 


ID - »-, 

I 




♦****G2********** 
♦DMKgCNWT ♦ 

*~ CALL _ TYPE ~* 
♦MASK CHARS FOR ♦ 


**GS******* 


;jjj£ 


** H2 ******* 

‘ SET TO TYPE * 


PASSWORD > 
8 BYTES 


♦SAVE PASSWORD* 
♦IN BLANK FILLED* 
♦ AREA * 


♦ MASKING * 
♦CHARACTERS FOR * 

* A TELETYPE * 


.* DOES *. 

,* TERMINAL *. 
. HAVE PRINT . 
♦.SUPPRESS .* 


PASSFRET 1 

• ****j4*i 

♦DMKFRET 


► 3215 TYPE *. YES 
k TERMINAL # .*-1 

l>*****: F2 : 


ENTP06 

♦****K1**< 

♦DHKgCNBT ^ ♦ 

*~ CALL”*TYPE *<- 

* PRINT-INHIBIT * 

* OR MASK CHARS * 
♦*****♦♦*•***♦*♦* 


ENTP05 V 

♦♦K2******* 
♦SET UP MASK* 


► STORAGE AREA 


**K4******* 


3ARACTERS 

- 3 1050) (0J - 

* TERHIHAL * 
*********** 


| OS DEKLOG 

*************4 


- Process User Password (Part 1 of 1) 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 


/ 
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| DMKFRE — Free Storage Manager (Parts 3 and 4 of 9) 


c 


♦♦A3******* 

* SAVE OLD * 
POINTER, GET 

* NEW POINTER * 


r 


• SUBPOOL SIZE .*<— 


*03 * 

* Cl *■ — | ( 
tEE06* V 


**C1******* 
♦PATCH CHAIN* 
TO DELETE 


.* DECREMENT *. YES 

*. COUNT - ANY .*-1 

*. BLOCKS .* I 

♦.LEFT .* V 


**D1******* 


*********** 


**D2******* 

* IF LARGER. * 
♦REMEMBER WHERE * 


.*DID WE FIND*. 
*. A BIGGER 
*. BLOCK .* 


n 




*1 SUBPOOL SIZE^I *-*• # C0UNT^—^ANY^. *-. 

*'*. .*’* I "*?LEFT .** V 


.*' IF YES, 1 

♦ .SUBPOOL SIZE .*- 


FREE08 

**E4******* 
♦SPLIT BLOCK* 
♦FROM HIGH END* 


*********** 


YES •*DID WE HAVE*. 

-*. A "GOOD" .* 

*. BLOCK .* 


* BLOCK fROM * 
♦DYNAMIC PAGING « 

* AREA * 


**F4******* 

* SET TO * 

► RETURN ADDR * 


► RETURN ADDR * 
OF BLOCK IN 

► CALLER’S R1 » 
* * 

*********** 


*****J3********** 

♦COHPUTE ADDRESS* 

* AND SIZE OF * 
♦REMAINING (HIGH* 

* END) OF BLOCK * 


**K3******* 

♦PATCH CHAIN* 
♦AND ADDRESS S* 


FREE10A .*. 

A5 *. 
.♦ENDING *. 
.*ADDR A NEW 
->*. HIGH FOR 


?*•*• “I 


**B5******* 

* STORE * 

* "ENDSUB" = * 

► NEW HIGH FOR 

* SOBPOOLS * 


L:sr« 


* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***** 03B2 









* NUMBER OF * 
♦PAGEABLE PAGES X 


* BALRSAVE S 


* CHANNEL 0 * 

♦WHILE EXTENDING* 
♦FREE STORAGE ♦ 


♦****D1********** 


♦DMKPSA A SPARE ♦ 
♦ SATE-AREA * 
'******** 


* CALL - GET A 
♦PAGE TO PUT IN ♦ 

* FREE STORAGE ♦ 
***************** 


TO PUT PAGE IN 
THE FREE 
STORAGE CHAIN 


**♦♦♦61♦♦**♦♦**♦♦ 
*SVC20^ ^ *_*_* 

♦CALL"RECLAIM ♦ 
♦SPARE SAVE-AREA* 


* BALRSAVE S ■ 
FREESAVE 
► (REGISTER > 
♦SAVE AREAS)* 


**J1******* 

► RE-ENABLE X 
CHANNEL 0 FOR 
* INTERRUPTS ■ 
*********** 


♦♦K1******* 

* RESTORE * 
♦REGISTERS AND* 
♦START ALL OVER X 


*********** 


♦♦A3******* 

* CLEAR 10 - * 

♦MEANS "FRET" OR* 
♦"FRETR" CALL # * 
*********** 


* OF BLOCK IN x 


♦♦D2******* 

* SET SIZE IN * 
♦THE BLOCK, WITH* 


.* BLOCKS IN *. 
-♦.FREE STORAGE . 
*. CHAIN .* 


**D3******* 

* SET REGS * 
* FOR LOOP TO * 
* CHECK FREE 
♦STORAGE CHAIN* 


♦♦E2******* 
♦SET FREENUM* 

* (NO. OF * 


♦COMPUTE END* 
♦OF THE BLOCK * 
♦BEING RETURNED * 

*********** 


.♦WITHIN REAL*. NO 
‘. MACHINE 
*. STORAGE . 


:ne .♦- 

iG y* 1 


**E3******* 

* REMEMBER * 
♦OLD POINTER 6* 
->* OLD VALUE OF * 
* OLD POINTER * 
*********** 


**F3******* 

♦ GET NEW POINTER* 
* * 
*********** 


.*ADDR OF*. 
.* RETURNED < 
♦.BLOCK = OR < 
♦.NEW PNTR 


*. OVERLAP . 


ERROR2 

♦***G5********* 
♦ABEND - SVC 0 -* 

— ab §m de : 

*************** 


♦ .J'FRET" | 

♦FREE *02 * 


♦"FREE" CODE VIA* 




* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


♦COMPUTE END* 
♦OF THIS BLOCK* 

* (THE BLOCK * 


FRET08 V 

»*D2*****»* 
♦GET POINTER* 

* & SIZE FROM * 
♦PRECEDING BLOCK* 

*********** 


♦♦E2******* 


*********** 


* END OF THE * 
♦PRECEDING BLOCK* 


r THIS BLOCK.* 


♦FREENUM = NO.* 
* OF BLOCKS IN ■ 


.* EQUAL *. 

.* BEGIN. OF *. 
'.THIS BLOCK - . 
*. OVERLAP .* 


* MERGE SIZES * 
—>*OF PREVIOUS AND* 

* THIS BLOCK * 


♦SET NEEDED * 
♦REG TO BEGIN.* 
♦OF MERGED BLOCK* 


.♦IS THERE A x 


**D4******* 

* COMPUTE END * 

< OF THIS BLOCK x 


.* LESS *. 

YES .*THAN BEGIN.*. 
-*.OF NEXT BLOCK.X 


.* equal' 
x BEGIN. C 


ABEND CODE 


**G4******* 

♦MERGE SIZES* 

► OF THIS 6 * 

SUCCEEDING * 
* BLOCK * 
*********** 


* ADJUST REGS * 
♦FOR THE MERGED * 


**J4*» 

* DECREMENT * 

♦ FREENUM = NO.< 
* OF BLOCKS IN 

* CHAIN 


*. SUCCEEDING 


*OF BLOCKS IN * 


| DMKFBE — Free Storage Manager (Parts 5 and 6 of 9) 
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| DMKFRE — Free Storage Manager (Parts 7 and 8 of 9) 


****£2********* 

* RETURN TO * 
■—>*"FREE W CODE VIA* 


♦.BLOCK A PAGE 


AGE .*-, 

V n 


'“1 


► BLOCK IN 
DYNAMIC 
k. PAGING 
♦.AREA 




.* EXTENDING *. YES 
*. BIGHT HON .*-) 

*.|freelock.* i 


k PREVIODS * 
BLOCK 

k. AVAILABLE. * 


♦.AVAILABLE. 


TEH -, 

!LE.* | 


► ISOLATE AREA 
♦FROM BEGIN. OF * 
♦ BLOCK TO BEGIN. * 


? NEXT PAGE 


.♦IS THIS 1 


♦♦♦♦♦A4 ********** 
♦COMPOTE SIZE 6 * 

♦ ADDRESS OF * 
->♦ PRECEDING S * 

♦ SOCCEEDING * 
♦AREAS |IF ANY) 


♦*B3******+ 


♦IS THERE A * 


♦ INCREMENT ♦ 
♦FRBENOM (NO. * 

■ OF BLOCKS IN * 
♦ CHAIN) * 


♦♦E3******* 
♦PATCH CHAIN* 
♦WITH POINTER ♦ 


*********** 


.* DOES *. 
.♦SOCCEEDING * 
*. AREA EXIST 


**D4******* 

* REPLACE * 
k POINTER TO 

BLC"" " T " 


FRET24 

**C5******* 

* STORE NEH * 
* POINTER TO * 
->*S0CCEEDING AREi 


♦♦D5******* 

* ADJUST 6 * 

♦STORE REVISED* 


♦*E4****»** 

* DECREMENT * 
♦FREENOM (NO. < 
* OF BLOCKS IN 
* CHAIN) * 


CONSECUTIVE 
k PAGES TO BE * 
* RETORNED ♦ 
*********** 


**G4******* 


k TO DMKPTRFT ♦ 


k INCREMENT * 




♦SAVE BALESAVE* 

♦ (REGISTER SAVE ♦ 
* AREA) * 


k FORM NEEDED > 


*********** 


* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


k CLEAR PAGE 


*********** 


* CALL - RETURN ♦ 

* PAGE TO THE * 

* SYSTEM ♦ 

***************** 


*»C2***+*** 
♦ADJUST REG ♦ 
♦FOR NEXT PAGE* 

* TO RETURN (IF * 


♦♦♦♦A3********* 

* DMKFRETR * 


**B3»**#**» 
♦SAVE REGISTERS* 51 


♦♦D3******* 


YES .* ANY MORE 


♦♦E2******* 

* RESTORE * 

* BALRSAVE * 

♦ (REGISTER SAVE * 

* AREA) * 


♦*F2*****+* 

* RESET ♦ 
■ FREELOCK TO 0 
♦AND GO EXIT. 1 


*********** 


**B3*»**^** 

* REMOVE HIGH * 
♦ORDER BYTE (IF 
♦ANY) FROM HI » 


.♦ADDRESS*. 

.*0 OR RITHIN*. NO 

k. CP NUCLEUS .*-, 

*. CODE .* 1 


.* ADDRESS < *. 
k. 4096 jlN PAGE. * 


,* VIRT=REAL *, 
AREA 

♦.GENERATED.* 


.♦ADDRESS*, 
k NITHIN *. NO 
VIRT=REAL .*- 


. * VIRT=REAL *. 
. AREA BELONG . 
♦.TO SYSTEM.* 




j j 


V J 






| DMKFRE - 



.♦ADDRESS*. 

1 HITHIN * 
DYNAMIC 
'. PAGING .* 
♦.AREA .* 


♦♦B1******* 
♦COMPOTE HON* 


► PAGING AREA » 
*********** 


MOST BE *. 
’LOS (ERROR . 
, IF NOT) .♦ 


****D1********* 
♦ABEND - SVC 0 -♦ 

* ABEND CODE ♦ 

* FRE011 ♦ 

*************** 


♦SAVE REGISTERS » 


.♦CHECK RO - ♦. 
•♦.HOST BE PLOS . 


ERROR1 

****C3********* 
♦ABEND - SVC 0 -* 

->♦ ABEND CODE ♦ 

♦ FREOO1 ♦ 

*************** 


““’"I 


♦YES 

L>*01*> 


- Free Storage Manager 
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FRETIOB V 

♦♦J2******* 

* CLEAR * 

♦ACTIVE IOBLOK* 

♦ POINTER; FLAG 3 
* DEVICE NOT * 

* BUSY ♦ 

*********** 


REALCC3 

***** K 3********** 

♦DWKFRET + ^ ^ ^ * 

->* CALL- RELiASE * 

♦IOBLOK STORAGE ♦ 














01B5 


IOHTHET V 

**ai******* 

♦DISABLE I/O* 




^3215 | 


| DMKGRA — System's Console Routine (Parts 1 and 2 of 3) 
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DMKGR&RD 





IMKHVCAL 

♦♦♦*A1********* 

♦ ENTRY VIA ♦ 

♦ 'GOTO 1 FROM * 
***************** 

ssr. sin 

♦♦♦♦ 02A5 

♦01 ♦ 02B2 

KEYTRAN 

♦♦♦♦^♦♦♦♦♦♦♦** 

* GET USER PAGE * 

♦TEST PROTECTION* 

* KEYS * 

*************** 

* 

* 

* 

♦ 

ADDCHEK 

****A1♦♦*♦♦♦♦♦♦ 

♦ VALIDATE * 

* VIRTUAL DATA * 
*****£*2**1*!**** 

*02 * 

1 FNOTE 

HVCEXIT V 

♦♦A3******* 

* REMOVE VM * 

♦FROM I/O WAIT* 
*^AND EXECUTION + *<- 

i 

READCPC .*. 

A4 *. 

.*’ IS VM "*. NO 

*. VMCLASSC OR .*- 

♦.VMCLASSE .* 

" * YES 

1 

B1 * '♦. 

♦ B2 ♦-, 04C1 

♦ ♦ 05C4 

♦♦♦♦ | FNOTE 

SPECERR V 

♦*B2*****»* 

* B3 *—, 04A2 

♦ ♦ 06C2 

♦♦♦♦ J FNOTE 

PROGINT V 

**** B 3********* 

,r 

*************** 

♦ 

* 

Bl‘ *♦. 

* B2 *-, 04B1 

ADDRERR V 

♦♦B2******* 

1 

♦♦♦♦B3********* | 

I 

B4 * '*. 


* GOTO DMKPRGSM 1 

->* SIMULATE PROG « 

A * INTERRUPT ’ 


♦DMKPRVKY 
*~CALL DMKPRVf 
♦ TEST STORAGE 
♦PROTECTION KI 


!E4 i ♦**♦ 
iBI L >* * 


034->06A2 

038 ->06A3 

04C ---->06A5 


!T OP TO LOOP 
[RU USER LIST 
IF LOCATIONS 
AND FILL IN 
tESULT TABLE 


.♦ REQUESTED ♦. NC 

r >*.ADDRESS VALID.*— 

♦ YES * 

! 1 E 
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| DMKHVC — Process DIAGNOSE Instructions (Parts 3 and 4 


■'1 


GET BUFFER 
LENGTH AND 


***************** 


***** A 3*. 

** - 'TRANS' - 
**FOR 2ND HALF 
** OF USER 
** BUFFER 


GET BUFFER 


* ; n 


* HOVE 2ND HALF * 
*OF VIRTUAL DATA* 
♦TO FREE STORAGE* 


CFNEXEC 

**»**C3********** 
*DMKCFHEN 


VALIDATE 
♦VIRTUAL ADDRESS* 
-C PAGE CROSS * 


♦THAT VIRTUAL < 


GETBUFF 

*****G1* ; 

♦DMKFRBE^ 

*^CALL' DHKFREE X 

* FOB 18-DBL-ND * 

* BUFFER AREA * 
***************** 


******** 


* DATA BUFFER x 


*TO FREE STORAGE* 


* DOES DATA *. NO 


—>*'CALL* DHKCFNBK* 
* THRON VM INTO * 
♦CONS FUNC NODE * 
***************** 

l—>*02** 


—>*'CALL' DMKCFMEN* 
♦EXECUTE CONSOLE* 
* FUNCTION * 
***************** 

L>*02** 


***************** 


****»C4********** 
♦DMKCVTDT ^ * 

*~ call~-~gIt * 

* CURRENT TIME, * 
♦DATE IN EBCDIC * 
***************** 


***** D 4»*< 

♦GET VIRTUAL AND* 
♦TOTAL CPU TIMES* 
* IN MIC-SECS, * 
♦BUILD IMAGE IN * 

:**;ji* h * p iiji;***: 


* GET FIRST * 
♦DOUBLE*WORD OF * 

* BUFFER * 

***************** 


**F4******* 

♦STORE EDITED * 
*DATE IN VIRTUAL* 
* STORAGE * 
*********** 


**H4******* 


***************** 


* VIRTUAL CPU * 
♦TIME IN VIRTUAL*- 


*********** 


***************** 


* CPU TIME IN * 
♦VIRTUAL STORAGE* 


>* 02 ** 


Of 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 


8 ) 


***** oID 1 


* GET PAGE * 
♦ADDRESSES FROM * 
♦USER REGISTERS * 
***************** 


HVCSPRD V 

*****A2********** 
♦DMKDRDER * 

♦"•CALL' DMKDRDeI*— 


MANIPULATE * 1 

******************* 


I ERF 

L >* 0 1 'X 


****A3********* 

* GOTO DMKDGDDK * 

* STANDARD DASD * 

* I/O * 

*************** 


*•VMCLASSF . 


♦•CALL' DBKIOEFM* 

* CLEAR ERROR * 

* RECORDING CYL * 
***************** 


HVCFAKE 

♦***A5****—~ 

♦ GOTO DMKGIOEX * 
♦GENERAL I/O H/O* 

* INTERRUPTS * 




***** 01 ********** 
♦DMKPGSPP * * * * 

CALLDMKPGSPP* 
♦RELEASE VIRTUAL* 
* STORAGE PAGES * 
***************** 

■Mv. 













* SET VIRTUAL * 
*COND CODE ZERO,* 

* GET DEVICE * 

* ADDRESS FROM * 


■'CALL' DMKDRDSY« 
■ READ SYSTEM * 
‘ SYMBOL TABLE * 


’•*. .*•*“! 



.* DOES *. 
.♦DEVICE CODE*. 1 
♦ .MATCH SYSRES .*- 
*. CODE .* 


.*IS THE *. 
.* REQUESTED * 
■. CYlIHDER 
*. VALID .> 


*****F5*********4 
* GET THE * 
♦PARAMETER LIST * 
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- Process DIAGNOSE Instructions (Parts 


***** 06G5 


HVCACT V 

*****j2********** 

* GET THE * 

* DIRECTOR! * 

* BUFFER BLOCK * 

* LENGTH * 

***************** 


•CALL' GET 
SPACE FOR 
► BUFFER BLOCK 


***** 02 ********** 


***************** 


**D2******* 

* CLEAR THE * 

* DOUBLEBORDS * 

Vd?rIM d b £§*< 

*********** 


*****E2*********’ 


*****F2********** 
** - 1 TR&NS' - ** 
** BRINS IN ** 
** VIRTUAL ** 
♦♦STORAGE PAGE ♦* 
** ♦♦ 
***************** 


♦****G2********** 


***************** 


** CALL 1 GO PIN© * 
* THE USERID * 
***************** 




*****44********** 
♦GET THE LENGTH * 

♦ OF THE USER ♦ 

♦ ACCOUNTING * 

♦ BLOCK * 


♦ 'CALL' GET * 
♦SPACE FOR USER * 
♦ACCOUNTING BLK 1 


♦ADDRESSABILITY 1 

* FOR USER * 

♦ DIRECTORY ' 


*****D4********** 

♦ SETUP * 

; add ?§r ss &H! ity ; 

♦ ACCOUNTING ♦ 

♦ BLOCK ♦ 

♦ ♦♦♦♦♦♦♦♦♦♦♦' 


****E4**' 

■HOVE THE USERID* 
FROM THE * 

■DIRECTORY INTO * 
■USER ACCOUNTING* 
BLK * 

:**************** 


♦♦F4******* 


*********** 


* 'CALL' GO GET * 

* THE USER * 

* HACHINE BLOCK * 
***************** 


B^OCK’.*—^ 


CPVACCT2i . 

»****j3********** 

♦RELSTOR* * ♦ 

->♦ GO RELiASE*" ♦ 

♦ STORAGE ♦ 


***************** 

L>*05** 

♦ E2 ♦ 


7 and 8 of 
♦ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


8 ) 


***** 07H4 


***** A 1********** 

♦ HOVE ACCOUNT ♦ 

♦ NUMBER FROH ♦ 

♦ USER HACHINE * 

♦ BLK INTO USER * 

♦ ACCT. BLK * 
***************** 


.♦IS THE *. 

YES .♦ FUNCTION ♦. 

-♦. HEXADECIHAL .* 

♦.CODE ZERO.* 


*****£ 1 ********** 
♦GET THE ADDRESS* 

* OF THE SECOND ♦ 

* PARAHETER * 
***************** 


♦***♦£1 
** - 'T 


•TRANS' - 
-- BRING IN 
** VIRTUAL 
♦♦STORAGE PAGE 
** 

****************: 


.♦IS THE *. 

.* FUNCTION *. NO 

*. HEXADECIHAL .*- 

♦.CODE FOUR.* 


CPVDISTN .*. 


;T 


.♦IS THE *. 

* FUNCTION ♦. 1 
HEXADECIHAL .♦- 
*. CODE .* 
♦.EIGHT.* 


* ACCOUNT NO. ♦ 

* FROH THE 1 
♦PARAHETER INTO < 
♦USER ACCT. BLK * 


CPVACCT1 

*****j1********** 

♦RELSTOR * 


n 


********************** 


♦****H2********** 

♦GET THE ADDRESS* 

* OF THE THIRD *<- 

* PARAHETER * 
***************** 


♦♦STORAGE PAGE ** 
***************** 


*****K2********** 

♦ HOVE * 

♦ DISTRIBUTION ♦ 
—* NO. FROH THE ♦ 

♦PARAHETER INTO * 


► RELEASE SPACE " 


i************ 


♦♦♦♦♦A5+*******+^ 

♦GET THE ADDRESS* 
* OF THE * 
♦DIRECTORY BLOCK* 
***************** 


* DOUBLEWORDS 

***************1 


GO RELEASE 1 

SPACE FOR ' 

DIRECTORY BLK 1 


.♦IS USER*. 

5 .^ACCOUNTING *. 
-*. BLK PTR. ZERO.* 
♦.IN VHBLOK.* 


*****E5«********* 

♦GET THE SIZE OF* 

* THE USER * 

* ACCOUNTING * 

* BLOCK - * 

* DOUBLEWORDS * 


♦ACCOUNTING BLK 1 


CPVACCT3 

♦****G4********** 
♦GET THE ADDRESS* 

* OF USER * 
->* ACCOUNTING * 

* BLOCK * 


* SAVE NEW USER * 
♦ACCOUNTING BLK * 
♦PTR. IN VHBLOK * 


♦♦♦*H5********* 

* RETURN TO IN * 

* LINE CODE * 
*************** 


**J4*»***** 

* CLEAR * 

* POINTER FOR * 
♦USER ACCOUNTING* 

* BLOCK * 
*********** 


*************4 













01K3 


0512 



| DMKIOE — 

SY20-0880 


r^. 



* SET PROPER > 
ENTRY PATH 
► INDICATOR ■ 
*********** 


CCHSKFL^ 


**j2******* 

♦SET CCH ENTRY* 

* FLAG * 

*********** 

(_>*04** 


• DOES 
IOERBLOK 
EXIST . 




'*!rIcordId X .*’*' 


NREXIT 

*****G4********** 

♦FIOER 


****H2********** 


“1 


* 03A2 

TSKSR4 


* "I 




Main Error Recording Processor (Parts 1 and 2 


♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

of 


'*"1 


*. DATA CHECK 


i 


'‘1“ 


* CALL-PAGABLE 


L>." 


•♦.OVERRUN ERROR.* 


r" 


<*** , J 0 B Ia, 

►02 * 03B1 

► E2 *-> 03C1 


QE8R *5S*, e3 *< 

♦DHKFREE 


♦♦F2******* 

* TORN ON * 
♦RECORDING IN ♦ 
♦PROGRESS SNITCH* 


->* CALL-GET 

! S CPEXBL0K 01 
************** 


*****F3********** 


♦CALL - PAGABLE * 
♦ERROR RECORDING* 

:****S2$2£!*****; 


c 


**G3******* 


****H3********* 

* GOTO DHKDSPCH * 


TO:H2 

06F4 

07H2 


7 ) 


TSKSR3 .♦. 

A5 *. 

•^♦'.BUS-OUT error! * 


C—*.OVERRUN ERROR.* 


SEEK CHECK 


JVICE^!* j 


C—*.OVERRUN ERROR. 1 
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01H3 


***** 02K5 


.♦WRITE TRIG ♦ 


■ FEED THRU « 


SVINTREC 

**++*j3********** 

♦DMKFREE * 


***** 02A3 


QERREV V 

*****A4********** 
♦DBKFREE * 


“1 


'"I 


*•‘1 


“1 


.* INTENSIVE *. 
*.RECORDING ON 


n 


*****C2********** 
♦FIND INTENSIVE * 
♦RECORDING BLOCK* 

* AND CHECK * 

* RECORDING * 

REQUEST 


t-'O. 


.♦RECORD THIS*. ! 


‘"1 


« UPDATE INT 


♦TORN INT REC ♦ 
* OFF ON THIS 
* DEVICE ♦ 


1 ERROR RECORD 


STORAGE FOR 


*****B3*4 

* FORMAT ERROR 


**C3******* 
♦PLACE POINTER* 


****D4 ********* 

* GOTO DMKDSPCH * 


| DMKIOE — Main Error Recording Processor (Parts 3 and 4 


* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

of 


CHINDFOL^.*.^ 

.♦'RECORDING**. YES 


AREA FULL 


***** 05B4 
*04 * 06B2 
* A3* 06D2 


«*. MCH ENTRY .*- 


*04 * 

v*y~] * 

1CH V 


CALL- GET 


► REGISTERS IN 


NO .*ENTRY FROM ♦ 


♦♦C2******* 




♦♦♦*A4********* 

* DMKIOEOB * 
*************** 


SUBROUTINE 


► CALL-FREE CH 
1= CHK RECORD 


***************** 


♦SET REG 0 TO * 
■ INDICATE 
♦ FAILURE ♦ 
*********** 


**** E1 »***,**»* 

* GOTO DMKDSPCH * 
*************** 


1 E2 *->[ 06G2 


.* ENTRY VIA ♦. YES 

, CHAN. CHK. .*- 

♦.FROM IOS .♦ 


♦ RESTORE REGS ♦ 
♦AND RESET ENTHY*<— 

♦ SWITCHES ♦ 

♦ * 
***************** 


♦♦G2********* 
RETURN TO ♦ 
CALLER * 


-ITABLE.*-1 

♦ .I/O OPBR..* 1 

‘♦YES ****** 


* SEND VIRT. * 
♦MACHINE HBSSAGE* 
*- DMKCCH606I * 


♦ DMKQCI 




'CALL* SEND * 
* MESSAGE TO * 
♦TERMINATE USER * 


**************4 


-♦CALL - PUT USER* 

♦ IN CONSOLE * 

* FUNCTION MODE * 


7 ) 
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| DMKIOE - 


— Main Error Recording Processor (Parts 5 and 6 of 7) 

* 



* CALL-PAGABLE 1 
*INITIALIZATION < 

* HODOLE 










r* 

M-i 

O 

4 -> 

U 

«J 

a* 


M 

O 

W 

w 

0) 

u 

o 

u 

CJ> 

a 

•H 

TJ 

M 

O 

U 

a) 


u 

o 

M 

M 

W 


a 

•H 

(0 


I 

f 

W 

o 

H 

*3 

Q 
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| DMKIOF 


Error Recorder (Parts 1 and 2 of 13) 


dhk ^ b *j 43 **.*.*.* % 

* DMKIOFR1 * 


*****83********** 

* SITE CILLERS * 

* REGISTERS * 

***************** 


*****C3***»****** 

* PICK DP ERROR * 

* RECORDIRG * 

* CTLIHDER * 

* ADDRESS * 
***************** 




*01 * 

* E3 *-> 02G2 

HULTIOEB .*. 


:53SiL*.*_*_: 

: vfttftu nh : 

***************** 


***************** 


*BAL Rft - CHECK * 
*IF RECORD HILL * 
* FIT IN PAGE * 
***************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***** 0103 


RECFMTIO t 

*****41********** 

♦RECORDER * 

*FORHAT~THE OBR~* 


***************** 


***************** 


*****81********** 
♦C K O BRO OH ^ ^ ^ * 

*BAL R«~cSeCK IF* 
♦SPACE FOR BORE * 
♦RECORDS IH PAGE* 


CKHDR 

*****C2********** 
*CK3211BH_ # ^ * 

->*BAL R4~- ciECK~* 

♦IF HDR HILL FIT* 
* IH PAGE * 
***************** 


.♦IS THERE AH*. IBS 




**83********** 
K SATE PRESEHT * 
■ OBR HEADER IH ♦ 
► SATEHBK AREA ♦ 


|-PR] 




► INDICATE 321 


****************1 


BOLTREC 

*****82********** 
♦FSIHGIOB * 

->*BAL*R14*-*?RiT _ * 

* IOERBLOK JUST * 

:***!52SIillS***i 


PROTIPI3 

*****F4********** 


;o B ?i°?i D ir;*:*iH_ 


***************** 


pb 0 SHI* g 


********** 


>ing ^1*—| 


CHASE ICS 

«->*. REQUEST .*-, 

j *. PENDING •* l 

**** *♦..** ***** 


I s .TYPE 1 ALONE • 


*****J3********** 


n 


* FROHAT TIPE 1 ' 


*. PENDING . 




► BAL R14 - J 
■ UPDATE PAGE a 
‘ HEADER 
***************** 


*IES 

►02** 1 

► K1 *-> 12G5 


***************** 


->* BAL R3 - * 

♦RELEASE TIRTOAL* 
* PAGE 


► COMBINATION * 
►FLAG AND POINT * 

► TO NEW RECORD * 


i ; 


/ x ' 




















o 


| DMKIOF - 



WRITE PAGE 


ERASTIME .♦. 

A4 ♦ . 

NO .*PAGE RECORD*, 
k. IN STORAGE .* 


***************** 


* DEQUE REQUEST * 

* FROH ODE * 

* -DHKIOEHQ * 
***************** 


i*********** 


*. CCH REQUEST . *- 


*****D3********** 
* * 

* PUT DHKIOEHH * 
—>* ADDRESS IN * 

* CPEXADD * 


**D4******* 


*****E4********** 


► PUT DHKIOECH 


* PUT DHKIOECJ 

* ENTRY IB 

* CPEXADD 

* 

****************1 


PRIDQUE 1 
*****G2*’ 
♦DHKSTKCP 


,->* CALL - STACK * 

* CPEXBLOK * 
********************* 


***************** 


****J2********* 

* RETURN TO * 

* CALLER * 
*************** 


- Error Recorder (Parts 3 and 4 of 13) 


34c 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 


REQUEST 
PENDING . ♦ 

'♦YES 


r EEC REQ*. NO 


► DEQUE REQUEST ♦ 
k FROH ODE * 
k DMKIOEIQ * 


ine !$! h *£bi 

* * 
♦GET BUFFER AND * 
♦ VIRTUAL PAGE ' 


♦ DEgDB^REgUEST ♦ 

♦ DMKIollA * 
***************** 


***** E 2********** 
: p WrP?i ob : 


♦DHKSTKCP ^ 

*~CALL “ STACK 
* CPEXBLOK 


***************** 


***** 31 ********** 


***************** 


:****G2********** 


***************** 


****H2********* 

* RETURN TO * 

* CALLER * 
*************** 




♦REALWRT^ ^ 

* WRITE RECORD 


♦ BAL R3 - * 

♦RELEASB VIRTUAL* 

* AND REAL PAGE * 
***************** 


‘♦YES 

i 

•'YES 


kYES j 

| 1 

l 

*****P1********** 

c °»p** D2 J 

******** 

♦ ****D3*: 

******** 

IOFOUT 


* DEQUE ENTRY * 

* FROM QUE * 

* DHKIOEHQ * 
***************** 


*****^3********** 


..J 

1—>*03** 

♦ G2^* 



;*,*****, 

♦♦F4* 


♦ .AREA 90% FULL-* 


YES -*’hSG SENT *♦. 
<—*. PREVIOUSLY .♦ 


*********** 


*****<34**4 . 

♦DMKgCHWT 

♦CALL ~ SEND MSG* 
* TO OPERATOR * 


*****j4********** 


***************** 


***************** 


****K4********* 


*************** 
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******* * * *************************************** 























| DMKIOF - 


FSIHGIOE 

****A2********* 

* FSIHGIOE * 

* SUBHOOTIHE * 


**♦** 32 ********** 


****************! 


♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦ 


*****D2********** 

* POT NEXT * 

* IOERBLOK * 
♦POINTER IH IOB * 
***************** 


* SUBROUTINE ♦ 
*************** 


'.GENERATED I/O.* 
* *TES 


3 ********** 


*****d3********** 

* IF MORE THAN * 

* ONE IOERBLOK, * 


*****E2********** 


♦CALLERS RETURN * 


***************** 


****F2********* 

* R14 RETURN * 

*************** 


* CALL - FREE * 

* IOERBLOK * 
***************** 


*****£>4 ********** 


*****G3********** 


***************** 


***************** 


* R14 RETURN * 

*************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


RECORDER 

****A3********* 

* FORHAT OBR * 

* RECORD * 


3U10 2 REC0RD 1 


BEC S!$J,( 


t****c3********** 


u* ER g?y 


COHTMOVE 

*****F3*i 


;*******] 

-IGTH < 

* SENSE DATA 

****************1 


r" 


***************** 


[ TO 1 !] 


***************** 


c- 


'*K3********* 
114 RETURN * 


- Error Recorder (Parts 7 and 8 of 13) 
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| DMKIOF — Error Recorder (Parts 9 and 10 of 13) 


***** 08G2 


BOVE OBIT 


*****B2*»******** 

* UPDATE * 

* CORRELATION * 

* COUNT AND POT * 

* NEW COOHT IN * 

* RECORD * 

***************** 


*****03********** 


***************** 


► RECORDING *. NO 


TES .*PAGE RECORD*. 
-*. IN STORAGE .* 


► CALL - GET A 
*■ VIRTUAL PAGE 


***************** 


► BAL R14 - GET * 




EVCONT V 

*****&5******j 

*UPDTHDR 


iH0 IlilSc4********** 

♦REALREAD * * * ‘ 
* READ A PAGE 


*****04********** 


***************** 


*****p4********** 


***************** 




*♦***04 ********** 

* SET CPUID AND * 

* DEV ADR. IN * 

* RECORD * 

***************** 




*****£ 4 ********** 


***************** 


* 

* 

* 

* 

* 

* 

* 

* 

sjc 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

sjc 

* 

sjc 

s* 

* 

* 

* 

* 

* 

* 

Sic 

* 

sic 

Sic 

sic 

sic 

sic 

Sic 

Sic 


♦HOVE 3330 DATA * 
~>* TO RECORD * 


***************** 


****A2********* 


* "1 


***************** 


****A3********* 
♦CHECK SPACE FOR* 


♦****B3********** 
* SAVE RETURN * 


***************** 


***************** 


****22********* 

* * 
* R3 RETURN * 
*************** 


CKOBRCMP 

**C4******* 
♦SET RECORD * 

* LENGTH FOR * 
->*STANDARD RECORD* 

*********** 


**03******* 

♦SET UP RECORD 3 * 
♦LENGTH FOR 342C 
* * 
*********** 

11C3 


*10 * 

* E3 * 


5 .* SPACE IN *. 
-*. PAGE FOR .* 
*. RECORD .* 


*****p3********** 


***************** 


*****23********** 

* BAL R14 - * 
♦UPDATE CCPD TO ♦ 

* NEXT PAGE ♦ 
***************** 


♦♦♦♦♦J3*** 
♦REALREAD 
*~BAL~R4*-*iEAD * 

* IN NEXT PAGE * 

♦ ♦ 
***************** 


*****K3********** 

♦RESTORE RETURN ♦ 


■*T 


****K4 ********* 

►* R4 RETURN * 
* * 
*************** 


TO:E3 

m 

11F2 


f * 


rs 

v y 

















CKEHVHM 






\ DMKIOF 


Error Recorder (Parts 11 and 12 of 13) 
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| DMKIOF — Error Recorder (Parts 13 of 13) 


***** 12(55 


*****A1********** 

* MOVE ERROR * 

* RECORD TO * 

* BUPFBR * 

***************** 


****A3********* 

* DMKI0PM1 * 
*************** 


***************** 


**C2******* 


*********** 


*****32********** 

i«*£* p * G L*_* *_* 

*CALL~-~RELEASE * 

* REAL PAGE * 

* * 
***************** 


***************** 


♦#C3******* 


*********** 


MCINDFUL .*, 


****A4********* 

* UPDATE PAGE * 
♦POINTER <CCPD) * 
*************** 


* PAGE POINTER * 
***************** 


*****35********** 

♦ INITIALIZE * 

♦ POINTERS AND * 

♦ VARIABLES * 
***************** 


,* RECORDING * 
CYLINDER 
*. REACHED 




Vhi 


****34********* 

♦ R14 RETURN * 

*************** 


*****£ 2 ********** 

* DMKPGTVR^ ^ # * 

* c all""-~rele as e~ * 

* VIRTUAL PAGE * 

* * 
***************** 


♦IaREA 90% FULL#*-J 


CMC90M' 


‘♦62******* 


*********** 


****j2********* 




y y 








TEST2880 .*. 


******** 

* SETUP * 

♦ADDRESSABILITY * 

* FOR DMKIOG * 
***************** 


**B3******* 


♦♦D2******* 


.* IS THIS A *. 
*. VIRTUAL CP ■ 
♦.SYSTEM 7 .♦ 


♦♦El******* 


ISS S!^ir 

S HHluffiS :<- 

***************** 


.♦IS THIS*. 

♦ A 2880 ♦. 

BLOCK .1 
♦.MULTIPLEX.* 


**D3******* 

►SET INDICATOR* 
FOR 2880 * 


►'COHDITIC 


►.CODE FOB ZERO. 


ZERO.*——| 


TEST2870 e3 .*. < 

NO .*A*2!70 H b!tE*. 
*. MULTIPLEX ? .1 


««F3******* 

S s *l oiW°“% 

* SUPPORT * 

* * 
*********** 


► CHANNEL TYPES * 


► COMMUNICATION ► 


♦ASSESSMENT AREA* 
***************** 


♦****E4********** 


***************** 


♦****F4********** 
♦FREE % ^ ^ 

*~ go - gIt - the * 

* SPACE FOR THE * 

;**** b *i c *°*i d **, * 


*****H1********** 


i **************1 


♦GET THE ADDRESS* 
*OF THE EXTENDED* 
* LOGOUT AREA * 
***************** 


*«***H4 ********** 
♦CHANGE ADDRESS * 
*OF THE EXTENDED* 
* LOGOUT IN * 
•CONTROL REG 15 * 


~7 


♦POINTER OF THE ► 

* MACHINE CHECK ► 

* RECORD IN MCH * 


**K1******* 
^♦SET^INDICATOR*^ 


*****K4*< 

♦GET THE SIZE OF* 

* THE CPEXBLOK *— 

***************** 


► GET THE SPACE 

► FOR THE 
CPEXBLOK 


>***B5********** 


► ****C5******> 


MCH003 

*****05**i 

♦SAVE THE MODEL ► 

* NUMBER ID. IN < 

* THE MCH » 

* COMMUNICATION > 

AREA * 


HJE3B f! 

iiii™>§8ii 


* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 


PASTDAVE V 

**♦**!3********** 

* DETERMINE * 

* SYSTEM ERROR * 

* RECORDING * 

* CYLINDER AND * 
♦SYSRES ADDRESS » 


*****C3********* 

* CALCULATE MAX 

* PAGES PER CYL 

* AND 90* COUNT 


FINDIOR 

♦*D3*****»* 
*SET RETURN * 
* ADDRESS OF * 


FI1) $* 2 *** F3 4*******. 

♦FMTREAD 
*“ READ c A~PAGi’ 

****************1 


"~1 


.♦SYSTEM 
.* CRASH 
*. DURING LAST . : 
*. FORMAT 






FINDLOOP .*. 


FREE^I*-j 


| DMKIOG — Error Recording, Initialization and Clearing (Parts 1 and 2 of 8) 
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IBM VM/370: Control Program Logic 288 


| DMKIOG — Error Recording, Initialization and Clearing (Parts 3 and 4 of 8) 


*HSG=DMKIOG556* 

• FORHAT I/O * 

* CYLINDER * 


♦ TORN OFF * 
♦HACHINE CHECK* 

* AND CHANNEL * 
* CHECK * 

* RECORDING * 


* E5 *-1 05G1 

INDHCR V 


♦FMTSRITE 


* SET FHTEXIT * 

V° FMTFINI °V 




















j-♦!WHICH HETORN^i 


***** B2 *********:| 
, ERMC * RESET TO READ A 


***************** 


♦RESET TO PAGE 1* 


***************** 


*****£-| ********** 


***************** 


***** D 2********** 


***************** 


***** F1 *, 

mimn.*. 

* WRITE BACK TO * 

* DASD * 


INDERS .*-, 

BATTED.* I 

.*" ***** 
♦YES *03 * 
. **** * E5* 

■—>*03 * * * 


+****F2**< 

♦RESET CYLINDER * 
* PULL PLAG * 

***************** 


*BSG=DBKI0G560* 
*MCH RECORD AREA* 
* CLEARED * 




*****&3********** 


***♦*03********** 

♦FMTREAD ♦ 

♦"read in"first _ ^ 


e***C3********** 


***************** 


***** & 3********** 


**P3******* 

♦MSG=DMKIOG559* 
♦I/O RECORD AREA* 
* CLEARED ♦ 
*********** 


.* ERASE ♦. ' 
'.MACHINE CHECK. ♦- 
♦.CYLINDER .♦ 


t*********** 


♦ PUT * ERMCHDON• * 
♦RETURN ADDRESS * 

♦ IN •FMTEXIT* < 


**** A 5* 3 
♦ FREE 

*******3 


:**♦♦♦♦♦♦♦♦♦*** 


****D5+♦♦♦♦♦♦*♦ 


| DMKIOG — Error Recording, Initialization and Clearing 


* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

(Parts 


FBTREAD 

****A1********* 

* FBTREAD * 

* SUBROUTINE * 


PAGE RECORD 


****43********* 


*************** 


CALL -WRITE 
PAGE RECORD 


****44********* 

* DBKIOGF2 * 
*************** 


ERASIHIT 

****A5’ 
♦FLAG PAGE 
* FORBAT 


<*C2********* 
i14 RETURN * 


*****C4*»*i 

* GET OBR START * 


****D3********* 

* R3 RETURN * 


INITIALIZE 


*********** 


* *********** 


*****E4********** 


* I/O *. ’ 
RECORDING . *- 
♦.CYLINDER .* 


♦****G1* 

* TORN OFF 
■ BACHINE CHECK * 


****F2********** 

TURN OFF I/O * 


**************** 


5 and 6 of 8) 


* SET FORBAT IN * 

* PROCESS FLAG * 


***♦( 35 * ******** 

* RIO RETURN * 
*************** 
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DMKIOG — Error Recording, Initialization and Clearing 


I0EMSGWR 

****ftl********* 

* MSG WRITER * 

* SUBROUTINE * 

*************** 


*****B1< 

*DMKgCN_* * * * 

* CALL-wilTE _ " 

* MESSAGE TO 
OPERATOR 


****C1*’ 

* R14 RETURN * 
*************** 


c 


♦SATE THE LENGTH* 
'' OF THE CCH * 


* GET THE SPACE < 
♦FOR CCH RECORD * 


*****C2********** 


***************** 

W*-> 08E3 

* * 08F2 

PASTDAT1 

*****D2********** 

* SATE THE * 
♦POINTER TO THE * 

* I/O EXTENDED * 
♦LOGOUT IN X'AC'* 
***************** 


; .*^eW**, 

■*. LOGOUT PTR. . 
*. ZERO .* 


«****F2**« 
♦INITIALIZE THE ♦ 
♦ I/O EXTENDED * 
♦LOGOUT AREA TO 1 


***** 01E5 


♦♦A3******* 

* SET FLAG * 

* FOR QUIET * 


*********** 


*****33********** 


<**************** 


♦AND ADDRESS OF * 
—♦ THE I/O * 
♦EXTENDED LOGOUT* 
AREA 


♦SATE THE LENGTH* 


♦EXTENDED LOGOUT* 
***************** 


OF THE I/O 
♦EXTENDED LOGOUT* 
* AREA * 


.* IS THIS 


^->*. ^MODEL 158 ? # .*-1 


**B5*» 

* SET FLAG * 

* FOR QUIET * 

* MODE IN MCH * 
♦COMMUNICATION* 

* AREA * 


* GET THE SPACE * 

* FOR THE I/O * 
♦EXTENDED LOGOUT* 
***************** 


♦EXTENDED LOGOUT* 

* LENGTH IN CCH * 

* CONTROL * 
***************** 


PASTDAT2 .*. 

H2 *. 

.* *. 

.* IS THIS A *. NO 
♦ .MODEL 165 OR .*-, 

%. 168 ? .*-* I 


*****J2********** 


♦CHANNEL MODULES* 


*****K2********** 

* GET THE 2860, * 

* 2870 AND 2880 * 

* STANDALONE * 

* MODULES * 


(Parts 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

♦ 

♦ 

♦ 


7 and 8 of 8) 


♦*B2******» 

* SET FLAG * 

* FOR QUIET * 

* MODE IN MCH * 
♦COMMUNICATION* 
AREA 


>*’. 2860/2870 *.*-, 

♦ .CHANNEL ?.* I 


*****D2********** 
♦GET THE LENGTH * 

* OF THE CCH * 

* RECORD 8 I/O * 
♦EXTENDED LOGOUT* 


♦****E2********** 
*GBT THE LENGTH * 
* OF THE I/O 


***************** 


*****F2********** 

2 £* 5 *_*_*_*_*_*." 

* GET SPACE FOR" 

* I/O EXTENDED 

* LOGOUT AREA 

****************1 


****»D3 ********** 
♦GET THE LENGTH * 
* OF THE CCH * 

*ex!ended 8 lo£out* 

***************** 


***** E 3**ji 

♦GET THE ADDRESS* 

* AND LENGTH OF * 

* I/O EXTENDED * 

* LOGOUT * 

* * 
****4ci************ 







DMKIOSQR 

♦♦♦*A1********* 
♦DMKIOSQR QUEUE ♦ 
* CP I/O * 


DMKIOSgV 

♦DMKIOSQV QUEUE 1 
♦VIRTUAL MACHINE* 






♦FLAG IOBLOK AS * 

♦ CP GENERATED * 

♦ I/O REQUEST ♦ 
***************** 


VMBLOK IN 
♦IOBLOK, FLAG AS* 
♦VIRTUAL MACHINE* 


IOSQVREL 

S**** C 4*, 


INCREMENT 
VIRTUAL SIO 


* INCREMENT ♦ 
♦START I/O COUNT* 

* IN RDEVBLOK * 


IOSQCOM 

♦****! 


♦GET ADDRESS OF 

* RDEVBLOK FOR 
♦REAL DEVICE TO 

* START 
**************** 


**************** 


♦ZERO IOERBIOK* 

* ADDRESS IN ♦ 
* IOBLOK * 


♦♦♦♦*E4********** 

♦INCREMENT START* 
—* I/O COUNT IN * 
* RDEVBLOK * 
***************** 


.♦REAL DEVICE*. NO 
*. AVAILABLE .*- 


:osqoed 

♦♦♦♦♦G2********** 
♦IOSQDEV * 

*_*_♦_*_*_*_*_*_* 
->* QUEUE I/O ON * 
* THIS DEVICE * 
***************** 


IOSQXIT 

♦♦♦*J1********* 

* RETURN TO * 

* CALLER * 


♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* ACTIVE DEVICE ■ 


MARK DEVICE 


♦DEVICEE BLOCKS * 
***************** 


♦♦♦♦El********* 

* ABEND IOSOOI * 


* HI *-, 19D2 

* * 1 20A3 

**** 1 20B4 

IOSCBUS7 V 

♦****H1********** 

♦GET POINTER TO * 

* CONTROL UNIT *< 

* IOBLOK QUEUE * 

***************** 


*****J1> 

♦ IOSfjjCUSK 

*~Ri-ouiui 

* WAIT FOR 


* CLEAR ACTIVE * 
*IOBLOK POINTER * 

* FROH RDEVBLOK * 




.* SHARED *. 1 
*. SUBCHANNEL .*- 


BEEN .*-, 


iS5 :**n 


TSTBDHST .*. 


**H3******* 

* UNFLAG * 
■ DEVICE AND 
■ CONTROL UNIT 
—OULE 


to 1 


♦SCHEDULE BITS* 


->* CALL 
♦IOBLOI 


K FOR SLIH* 


ios 8SS*j^1. 

* MARK RCHBLOK 


♦ .CHANNEL BUS! .*- 


BUSY, GET 


<*************** 


♦IOSQCHSK + ^ ^ 

♦RE-QUEUE & WAIT" 

* FOR CHANNEL 

* AVAILABLE 
*******"* 


IOSTDV 

»****J4 *********. 

* CLEAR ACTIVE ■ 
♦IOBLOK POINTER ‘ 

* IN RDEVBLOK, " 


| DHKIOS — I/O Supervisor (Parts 1 and 2 of 20) 
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06H2 

07H3 


K_*_*_*_*_*_*_*_*Q = 0 

* DEQUEUE NEXT *-, 

► OPERATION ON * 1 

» DEVICE * V 

********************* 


IOSREQUE V 
***** B1 **** 
♦IOSTRTDV 


♦START THE 10 ON* 
* THIS DEVICE * 


**** 02K4 

*03 * I 04H5 

* Cl *-> 05D4 

* * 05J2 

**** 1 FNOTE 

IOSRSTCU V 

***+*C1********** 
♦IOSDQCU * 

Q=0*-*-*-*-*-*-*-*-* 

r * DEQUEUE NEXT *<—•, 
* OPERATION ON * 

************************* 


I Q>0 


► Cl i 


■ El > 


* E1 # *-> 06F2 

**** | 

IOSRSTCH V 

***** E1 ********** 
*I0SDQCH * 

Q=0*—*—*—*—*—*—*—*—* 

1-* DEQUEUE NEXT *<— 

* OPERATION ON * 

1 * CHANNEL * 

********************* 

IQ>° * * 


. *"*CHANNEL*"*. YES 
♦ .FLAGGED BUSY^.*-j 


'•''“I 




IN RDEVBLOK 


* GOTO DMKDSPCH * 
*************** 


IOSRCUNB .*. 


♦****G5********** 

* GET CHANNEL * 
->*PROGRAH ADDRESS* 

* FROH IOBRCAW * 
***************** 


* GET CHANNEL * 
♦PROGRAM ADDRESS* 

* FROM IOBCAH * 


IOSTEXIT .*. 


c 


IOSRETRN 

*****J2********** 
* RE-ESTABLISH * 
♦CALLER'S VMBLOK* 
->*START CHARGING * 


<*********** 
!—>*04** 


♦RESTARTED USER * 


08E3 llif 
17E4 20D4 


| DMKIOS — I/O Supervisor (Parts 3 and 4 of 20) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 


■***♦ 03J4 
■04 * 17E3 
■ A1* 19A2 


L >* csw, g£t unit 

* ADDRESS FROM 
* IOBRADD 
***************** 


|->*.GENERATED I/O.*-^ 



IOSQTIO 

.•REQUEST FOR*. YES 
->*.REAL HALT I/O.*- 


***C2* : 

TEST I/O 

c************ 


HALT DEVICE 


CCO->20 A1 

ggj ~::>?9 aI 

—2->0203 




,*SI0 TRACING*. 


* BACK IN * 

■ ION AIT {UNTIL * 

* TRACING IS * 
* DONE) * 


♦BUILD CPEXBLOK ■ 
* TO GO TO * 
"CALTRASI" 


♦.ACTIVE DEVICE.*- 






***«*q4***4 


■ CALL to alter * 

■ DISPATCHING * 

■ STATUS * 

------n******* 


> AND CPU TIMER ♦ 

■ VALUES AT 1 

■ INTERRUPT < 


*****C5********< 

* IF A RUNNING 

* USER HAS 

* INTERRUPTED, 


***** D 5********* 

* CHARGE SYSTEM 

* FOR CPU TIME 
♦UNTIL OWNER OF 

* INTERRUPT IS 

* FIXED 


**»**E5********** 

* CLEAR R13 TO * 
♦INDICATE ENTRY * 

* DUE TO * 
♦INTERRUPT, GET * 


»****P5********** 

♦INCREMENT TOTAL* 

* 1-0 INTERRUPT * 

* COUNT * 

***************** 


* CALL - GET * 
♦RCHBLOK RCUBLOK* 

* RDEVBLOK * 
***************** 
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| DMKIOS — I/O Supervisor (Parts 5 and 6 of 20) 




***************** 


* INTERRUPT 

*************4 


.♦CSW STATUS *. NO 
*.= CE+DE ONLY - 




:T 


:-*T 


—>♦ GET IOBLOK FOR * 
* UNSOLICITED * 
INTERRUPT * 


.* CHECK OR 


' 1 


.♦ IOBLOK *. YES 
♦ .UNDER CONTROL. *- 
*. OF F 




♦***» 02 ^**^****** 
♦GET ADDRESS OF * 
♦OWNER'S VMBLOK,* 
♦START CHARGING ♦ 
♦FOR PROCESSING ♦ 
***************** 


♦♦♦**E2******^*** 

♦ SAVE CSW IN ♦ 

* IOBLOK, FLAG * 


***************** 


.♦ ARE THERE * 
*. ANY CHANNEL 
♦ . ERRORS 


: *~1 


*****E4♦♦*♦*♦**** 
♦GET ADDRESS OF * 
♦OWNER'S VMBLOK,* 
->*START CHARGING * 
♦ FOR INTERRUPT * 


IOSSTACK i 

*****F2+’ 

♦DMKSTKIO 


***************** 


*****G2********** 
♦START CHARGING ♦ 

* SYSTEH FOR * 

* RESTART ♦ 

* OVERHEAD ♦ 




♦RESIDUAL COUNT * 


IOSRSTDV V 

♦♦♦♦*H2********** 

* CLEAR ACTIVE * 
♦IOBLOK POINTER,♦ 
♦HARK DEVICE NOT* 

* BUSY * 

***************** 




♦YES 
| **** 
•—>*03 * 


* 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

* 

* 

♦ 

♦ 

* 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

* 

♦ 


■***♦ 05A2 
■06 * 05C2 
■ A2* 17A2 


.♦CSW STATUS > 


*****02********** 
* * 

* FLAG CHANNEL * 

* NOT BUSY * 

***************** 


' AND SAVE CSW * 
***************** 


*****03********** 

♦COPYIOB^ ^ ^ ^ * 

*COPY~AND _ STACK~* 

* AN IOBLOK FOR ♦ 

* THE PCI * 
***************** 

L>*03% 


V'—l 


* CHANNEL 
AVAILABLE 

♦ .INTERRUPT. 


'ii! 


* CONTROL ♦. NO 

UNIT BLOK .♦-, 

K. FOUND .* I 


"1 


*****J2********** 


.♦CSW STATUS *. 
♦. = CUE ALONE . 


* 1 


♦♦C4* 1 

♦ TURN 
MRDEVBUCH' BIT 

* OFF * 

*********** 


*•* “1 


♦♦♦♦*E4********** 


***************** 


.♦ ANY I/O *. NO 

♦ . CURRENTLY .♦-. 

♦. ACTIVE .♦ I 


c 292 














.* IS ERP *. YES .* EBP *. NO * GET DEVICE * 

>. STILL IN . *->*. REQUESTING .*-, *INDEX AND POINT* 

*. CONTROL .* *. RESTART .* * TO RDEVBLOK * 



*****J2********** 
♦IOSRECER * 

* _ RECORD CP _ I/0~* 
* ERROR * 
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| DMKIOS — I/O Supervisor (Parts 9 and 10 of 20) 


10B3 

10C1 

10G2 


♦FLAG IOBLOK CC * 

♦ 3 AND IOBFATAL *<— 


***************** 


► CALL - STACK 


***************** 


*****E1********** 

* RE-ESTABLISH * 

* CALLING USER, ♦ 

* RESTART * 

* CHARGING * 
***************** 


****F1********* 

♦ R9 RETURN ♦ 


***************** 


NO .* MOVEABLE * 

-*. HEAD DASD 

*. DEVICE .* 


. BPS DEVICE .*- 
'♦YES 


*****, 2 ********** 

♦FLAG IOBLOK TO * 
♦ RELEASE C.U. * 


.♦HAS IOBLOK . 
—>♦. MARKED FOR .’ 
♦.TIO ONLY - 


’OR .♦-, 

■V* n 




***************** 


IOSPATH 

*****G2 ! 

♦IOSPINDP 


,->* FIND AN *<- 

♦AVAILABLE PATH * 

i******************** 


RETURN HERE IF 


♦****j2********** 


***************** 


SEEK *. NO 

COMMAND .*-, 

, CHAINED .* | 


*****K4********** 

* UNCHAIN THE * 

♦ SEEK, FLAG * 
—♦IOBLOK AS SPLIT* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


**** A i********* 
♦IOSFINDP LOCATE* 

* AN AVAILABLE * 

* SUBCHANNEL * 


♦****B1********** 
*GET POINTER TO * 

* RCUBLOK, SET * 

* IOBRADD = * 

♦DEVICE ADDRESS * 
*+ C.U. ADDRESS * 
***************** 


■ CONTROL *. YES 
UNIT 

•.SCHEDULED.* 




•*ANY IOBLOKS*. 
-*. ALREADY .* 
*. QUEUED .* 


IOSCKREL .*. 

G1 *. 

.♦IOBLOK *. 
.♦FLAGGED TO *. NO 
*. RELEASE CU .*- 


IOSgUECU ^ 
*IOSgCU 


***************1 

L>*09*’ 


*****J1********** 


* RCHBLOK, SET * 

->* IOBRADD = * 

* IOBRADD + * 
♦CHANNEL ADDRESS* 


1 


'.CHANNEL BUSY 



****E3********* 
* R5 RETURN > 
*************** 


****£4*> 

R9 RETURN * 
*************** 


***************** 






* CALL - GET * 
♦STORAGE FOR AN * 

* IOBLOK * 
***************** 


CLEAR THE 


OF SYSTEM 
VMBLCK AS 
J IOBUSER - 
***************** 


.* WAS AN *. 
*. RDEVBLOK 
*. LOCATED .* 


2 OB 5 . 

20H1 

20H2 


IOSGTD|D { 


:*G2********** 


***************< 


> RDEVATT, SET 


♦***C3******»4 
► R5 RETORN 


****A4****»**** 
* COPYXOB 


COPY AND STACK 
NON DEVICE END 


* CALL - GET 
♦STORAGE FOR I 

* IOBLOK 


»****D4********** 

♦ original H blok * 

♦ INTO THE NEW ♦ 

♦ STORAGE * 

***************** 


.♦DE PRESENT *. NO 


«****E5********** 

♦ GET SIZE OF * 

♦ ORIGINAL ♦ 

♦ IOBLOK, * 

♦ INCLUDING CCW ♦ 


****F4********4 

* R5 RETORN 


IOSIGNOI V 
*****f5**4 
♦DHKFRET 


c 


->* CALL - RETORN * 
♦IOBLOK TO FREE 4 
STORAGE 


♦♦♦*G5********* 

♦ GOTO DMSDSPCH 4 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


| DMKIOS — I/O Supervisor (Parts 11 and 12 of 20) 


IOSIGNOR 

****A1******* 

* IOSIGNOR 


INTERRUPTS 


QUEUE AN IOBLOK 
ON A REAL 
DEVICE QUEUE 




.♦ MOVEABLE ♦. YES 


IOSQVDC 




*. HEAD DEVICE . *- 


*****E2********** 

* POINT TO LAST * 

* IOBLOK ON ♦ 

* DEVICE QOEUE ♦ 
***************** 


* GET CYLINDER ♦ 
—>*NU MBER FOR THIS* 

* IOBLOK * 

***************** 


► E3 * 


ios $$r*$ E3 *******..* 

♦SAVE BACKCHAIN * 
♦POINTER, POINT * 
♦TO NEXT BLOK ON* 
* QUEUE * 


' WILL C.U. *. YES 


*****g4********** 

♦SET UP TO QUEUE* 


IOSgBLOK 


Mil 

13F2 


L>.~ 


;****F2********** 


C 


:******************** 


****G2********* 

* R4 RETURN * 
*************** 


♦•NEXT BLOK. 


‘""I 
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| DMKIOS — I/O Supervisor (Parts 13 and 14 of 20) 


*HILL CHAN. *. YES 

BE RELEASED .*- 

*. OH SIO .* 


DEQOBDE THE 
NEXT IOBLOK 
FROH A REAL 
DEVICE QOEUE 


DIRECTION -1 

V 


•>*Iend OP QUEDE^I*-j 







♦FLAG IOBLOK J 
♦ERROR TASK, £ 
>* SIZE OF 
* IOERBLOK 


* SET CAM = * 

* ADDRESS OF * 

♦SENSE CCW, FLAG*<- 


*****F3********** 

♦IF FAILING TASK* 
♦IS CP I/O, FLAG* 
♦IOBLOK TO CALL * 


♦CHAIN IOERBLOKS* 

* TO IOBLOK, 
♦CLEAR RDEVBLOK < 

* POINTER 


►***J3********* 
R5 RETDRN - 
WAIT FOR DE 


| DMKIOS — I/O Supervisor (Parts 15 and 16 of 20) 
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I 


| DMKIOS — I/O Supervisor (Parts 17 and 18 of 20) 


**^ 2 ******* 

* TURN 1 

"RDEV80CH' BIT 

* OFF < 


**B3******* 


*********** 


CLEAR STATUS 


* BARK RCUBLOK * 
—>*AND RCHBLOK MOT* 

* BOS! * 


*****23********** 

* RESET SPLIT * 

* SEEK FLAG AMD * 

* RECHAIN SEEK * 

* CCD * 

***************** 



**24******* 

* TORN * 

*•RDEVBUCH' BIT * 

* OFF * 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***** 04C1 
*18 * 20A4 
* A2* 20B3 


**D2******* 

* TORN 1 

* *RDEVBUCH' BIT 

* OFF * 


'*YES 






* RECORD THE 

* ERROR 









o 




.*JUST CLEAR 1 






<****E2********** 


c*************** 


*. DEVICE BUSY . 
* *YES 


■'i 


BARK IOBLOK 


***************** 


♦COPE AND STACK * 
* CHANNEL END » 


r *IoR CHI 


1M J8H. S . 

J£*£2 D *!*_*_* * * 




*************** 


******** 

♦ CLEAR ACTIVE ♦ 
♦IOBLOK POINTER * 

* PROM RDEVBLOK * 


| DMKIOS — I/O Supervisor (Parts 19 and 20 of 20) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* HARK ♦ 

* RDEVICE, ♦ 
RCHBLCK, 

* RCUBLOK NOT * 

♦ BUSY ♦ 


*. UNIT BUSY 


♦ RDEVBUCH BIT * 


i 




*.GENERATED I/O. 


I 


* IOBTIO BIT ♦ 
♦ OFF, IOBFATAL * 

♦ BIT ON ♦ 


.♦I/O STARTED*. YES 
• FOR CALLER .*-^ 


> CALL - ALTER * 
■ USER DISPATCH * 
* STATUS * 


*20 * 

:.!Xl 

JSGTOR V 


20 ♦ 

H2 *-. 11J1 

TDA V 
e ****H 2******** 3 


■1 151 


iENSE^.'*-1 




♦.ACTIVE DEVICE.*-, 


lOSGIERH^V^ 
* SET GPR1 




♦IOBTIO AND 1 


J 

D4* *♦. 

*♦. YES 

*.^DEVICE BUSY^.* 1 

'♦NO *03 * 

u:*s% vr 
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DMKISM — Modify BCHTASK for OS ISAM Input/Output (Part 1 of 1) 


1 SAVE VIRTUAL 
' CCS DATA IS 
■ SAVE BLOCK 








DBKLgKIJ^ 

* DMKLNKIH 


* CLEAB « 
* LINKFLAG AND 

• BETOBN CODE * 




* CALL - GBT 
♦STOBAGB 10 BEAD* 

* DIBECTOBI * 
***************** 


> .*LINK ISSOED*. 

—*.FHOE VIBTDAL .* 
*. MACHINE .* 


.* IBS - *. 

.* EXCESSIVE *. YES 

*. INCOBBECT .*- 

*•PASSHOBDS.* 


KEE0E1 **b2******* 

**DHKLHK115i G ** 

->* EXCESSIVE < 

* INCOBBECT * 
* PASSHOBDS * 
*********** 


LINKOO 

♦♦FI******* 

* CLEAB * 
♦ODBFBLOK FOB * 

* DIBECTOBV * 
* BEADING * 

** 52211511 *** 


*****G1* J 
♦DMKSCNFD 
*_*_*_*_*-*_*_*—« 
♦CALL - GET 'TO' 






* H2 *-. 02D3 

**** I 

EBBOB20 V 

*****B2********** 
♦MSG DHKLNK20E -* 
->*OSEBID HISSING ♦— 

♦ OB INVALID ♦ 

***************** 


♦ H3 # *—>| 
EBHNODAT 


♦CLBAB B1 - BO* 

—>*DATA PASSED TO ♦- 
* DHKBBNSG * 


rr 


CALEBHSG 

*****H«*< 

♦ BETOBN EBBOB ♦ 
♦CODB TO CALLEB;* 


*********** 


.♦IS IT 'TO' *. YES 
♦.^ OB »T' *.* -1 


CALL - GIVE 


DMKINK — Process LINK Command; Link to a Virtual DASD 


* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

(Parts 


*****£2*♦*♦**♦♦** 
♦DHKSCHPD * % 

CALI ~~GET ”* 

★ USERID * 

* * 
***************** 


>*************> 




.♦IS OSBBID = 


*****D2*********‘ 

♦ YES - SAVE 

♦ OSEBXD (8 
» BUBS) FBOJ 

♦ VMBIOK 




*********** 


LIWK03 1 

*****P2*^ 
♦DHKUDBFO 


rr 


BBBOB53 

***** G 3********** 

* SET FOB MSG * 

* DHKLHK053B - ♦ 

->♦ OSBBID NOT IN * 

» CP DIBECTOBI ♦ 
***************** 


*****ca*********i 

♦DMKSCNFD 

♦CALL - GET * AS* 
♦OH III LINK-AS 
* DEVICE 


.♦IS IT «AS* ♦. NO 
*. m OB 'A* ^.*-j 

’’•♦IBS ****** 


EBBOB - 
HISSING 


LIHK03A 
♦ ****H4' 
♦DMKCVTBH 




EBBOB22 V 

*****J3********** 

* SET FOB MSG » 

* DHKLNK22B - * 

->* VADDB HISSING ♦<- 

* OB INVALID * 


1 and 2 of 11) 


9 
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DMKLNK — Process LINK Command; Link to a Virtual DASD (Parts 3 and 4 of 11) 


LINK09B* 


LIN £2*** F 2*********< 
♦LINKDEF 1 



.* DEDICATED *. 
►.OB TEMPOBABY . 
*. DISK .* 


► DHKLNK109E 1 
... IBVALID 

► LINK DEVICE ► 


THEBE * * *-^ 


















04 J3 


IETACH OLD .*-, 

DEVICE .* 
♦.FIRST.* 



♦SET FOR HSG* 
* DMKLNK116B * 
■ ... CP 

♦DIRECTORY IN * 


L * CHECK LINf 
* DEVICE 
************* 


* SET OP * 

* FILLED-IN * 

► ERROR MESSAGE * 

♦ AS NEEDED * 


‘.THE PASSWORD^.*-^ 

*‘*NO *06** 

i *V* 


* H4^* -j 08C1 


♦OTHER BEAD * 

♦ LINK (S) - SET 
► FOB B/O MSG 

* ADDED 


DMKLNK — Process LINK Command; Link to a Virtual DASD 
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DMKLNK — Process LINK Command; Link to a Virtual DASD (Parts 7 and 8 of 11) 


* SET R2 PARH 4 
' FOR DMKQCNWT 
•FOB BBHOR HSG 4 
*********** 


**B1******* 

♦ * 

* SET BEG FOB * 
*LEHGTH OF ERROR* 


*********** 


LINK18 * 

***** & 3********** 

♦UNLOKSUB 


* CELL - HAVE * 

* USER ENTER * 

* PASSWORD * 
***************** 




LINK34 

*****d********** 
♦DELETE TRAILING* 
♦BLANKS (IF ANY)* 
* FROM COUNT OF ♦ 


PASSWRNG .*. 


IS IT CORRECT.* 


NO .*IS R/O HSG ». 
-*. TO BB ADDED . 


♦DBTERHIHE AGAIN* 

* IF A LINK IS * 

* FEASIBLE ♦ 
***************** 

I **** 

L.>*06 * 


LIH |||»* e2 *********. 

♦DHKCVTBD 


.* HOHE THAN *• YES *-*—*—*—♦—*—*-*- 

♦ .ONE B/O USER,.*-^VnN^ERsV 


****♦♦ 

► ADD * R/O BY * 


*********** 


LIN ***** G 1********** 

;£5!1S5SIL*_*_^; 

♦CALL - BESPONSE* 
♦OR ERROR MSG TO* 
♦ USER TERMINAL ♦ 
***************** 


i HI *-> 
LINKEXIT J 


c 


.♦ENTERED VIA*. IBS 
*.^ DMKLNKSB ,.*—j 


c**************** 

>07** 

* K1 *-> 08F2 

C ****K1 ********* 

•>*exit to caller * 
*************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***** 06H2 
♦08 ♦ 

♦ A1* 


**A1******* 
♦OTHER WRITE* 
♦LINK (S) - SET* 

■ FOR H/W HSG 4 
* ADDED * 


“»^§** 12 *t******** 

♦DHKCV TBD ^ ^ ^ » 

*~CALL - NO. 
♦OTHER Of”"' 

* dec: 


***** 04J3 


ERROR108 V 

♦*A3*****«* 
♦SET FOR MSG* 
* DHKLNK108E 4 

** DSKLAB°ROT 4 

%*5S2S5IS*** 


***** 05G4 
*08 * 

**A5* 




"1 


* linkflAg TO * 

* ADD H/O MSG 
♦AFTER R/W HSG 4 


♦LINK-TO DEVICE * 

* ADDRESS TO * 

* PRINTABLE HEX * 
***************** 


**C2******* 
♦FILL IN •B'* 
♦FOR READ-LINK* 

* GIVEN OR *W* * 

* FOB WRITE * 


ERBOB110 V 

♦•♦♦♦A4********** 
♦DMKSCHVN * 

♦CALL - g5t~tSe * 

* DEVICE NAME * 

* * 
***************** 


**B4******* 
♦SET FOR MSG* 
♦DHKLNK110 ...* 
♦DEV YYY ALREADY* 
* DEFINED * 
*********** 


******* 


*.BE GIVEN . 


ITDAL -. 

:ne*.* 1 


♦. ENTRY .* I 

"*. .♦* ***** 


♦****D4********** 
♦DMKCVTBH # ^ ^ * 

*~ CALL”YYY * 
* DEVICE TO HEX * 
***************** 


**E4****»< 

* STORE 
" REHAININC 


♦FIELDS 


*********** 


**G2*’ 

* SBT MSG * 

* LENGTH. SET * 
'OR NORMAL HSG 4 
' WITH NO ♦ 

* RETURN * 
*********** 

!—>*07** 


***************** 


**B5******* 




**DS******* 
•SET FOB MSG* 

* DHKLHK112E * 

► ... NO WRITE 4 

* PASSWORD * 
* * 

*********** 




** F 5******* 

* SET FOR * 

' DMKLNK113E * 
... NO MULT 
4 PASSWORD ** 
*********** 


l ) 


/ A 

\ / 
\ 


\ 

v. 



















n 


DMKLNKSB^^^^ 
* DMKLNKSB 


**C 1 ******* 

* STORE * 

* DECISION * 

r TABLE INDEXER < 

* POR DESIRED * 

* LINK BODE * 


<************ 


***************** 


ERR116P 

*****P3********** 

♦UNLOKUSR # # „ J 
> * ONLOCK USERID * 


■ CALL - FIND 
1 LINK (S) TO 
' GIVEN DEVICE 


♦♦H2******* 

* REHEBBER * 
♦COUNT OF READ* 


* REBEMBER * 
—>*USERID OF USER * 
♦IN LINK CHAIN* 


**D4******* 


******** 
!E LINK * 
iSSUBING* 


***************** 


.♦HILL THERE 
‘. BE HRITE 
*. LINK (S) 




♦♦J4******* 


*********** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 


09E4 

09H4 

09K4 


* SET R5 ♦ 

* INDEXER FOR ♦ 
♦LINK (S) FOUND S* 

* LINK MODE * 

* WANTED ♦ 


.♦CHECK TABLE*. 
‘. - LINK 

♦.FEASIBLE .* 


SET FOR MSG 


- OTHERS R/W . 


**F1*" 

♦GET NUMBER OF* 
♦OTHER R/H USERS* 


*********** 


*****;3********** 


DBKLNK104E 


I * 11C2 

"" 


NOTLNK2 

♦****G5****♦♦*♦ 

♦DMKCVTBD 


*********** 


CALL - NNN 
USERS TO 
DECIMAL 


** H 1******* 
♦MAKE IT MSG* 
♦DMKLNK103W & * 
♦FLAG R/O MSG TO* 


♦USE USERID IN* 
‘MSG INSTEAD OF * 
♦ NNN USERS * 


LINKFR03 .*. 


n 


♦HILL THERE *. NO 

BE READ .*-, 

*. LINK (S) .* I 


♦ 

* 

♦ 

* 

* 
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Process LINK Command; Link to a Virtual DASD (Part 11 of 11) 


***** 10J1 


LINKFRON V 
*****41**** 
♦DBKCVTBD 


CALL - NNN 


* B1 *-> 10K1 


♦CALL - LINK-TO * 
* DEVICE TO HEX * 


♦FINISH SET UP* 
* OF BSG 6 GO 
* GIVE IT. * 
*********** 

L>*07** 


****A3**** 
*UNLOKSUB - 




**D2******* 
♦BAKE IT BSG* 
*DHKLNK 106E S * 
♦FLAG R/O BSG TO* 
* -BE ADDED * 
*********** 


♦ ***E3* ! 
* RETURN 


- LINKDEF - I 


*SET INDEXER =* 
>0 FOR LINK-BODE* 
* OF 'R' * 

*********** 


ONLOKUSR 

♦+***R3********** 
♦DBKLOCKD 


LINKDEF1 

**E4**»»„, 

* SAVE * 

* LINK-BODE * 
* INDEXER FOR 

* LATER USE * 
*********** 










**** A 1***»*** 
* DMKICCK 


DMKLOCKT 

♦***A5*»****i 

* DMKLOCKT 


♦SCAN * 

*G0 LOOK UP THE * 


5 THE NAME*. 


**** E 1**, 

■CHAIN THE BLOCK* 


***************** 


****C5******** 
*EETURN R14 (CC 
* SET BY SCAN) 


*****D3****** 


<****E2********** 


***************** 


:itcci v 

+ ****F3**: 

* SET CC 


************** 


NO .*IS THE NAHE*. 


*****? 4 ********** 


****Gr 
* SETORN 


_* SET CC = 0 * 

***************** 


****G4********* 

* RETURN R9 * 


NOTE: REG 4 
HILL POINT AT 
THE LOCK BLOCK 
AT EXIT FROM 
SCAN 


SET CC = 0 


| DMKLOC — User Lock Module (Parts 1 and 2 of 2) 


* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 


DMKLOCKg 

* DMKLOCKD 


♦ SCAN 

♦ LOOK 1 


>»***E3* - 

BUILD A 
' CPEXBLOK TO 
■ RETURN, WHEN 


LOOP 1 

*****F3*********< 
♦ CHAIN THE 1 
♦CPEXBLOK LAST, * 


* GOTO DMKDSPCH * 
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SY20-0880 


**B2******* 

* CLEAR FLAG * 
♦AND RETURN CODE* 


CHECK DMKSYSMA 


;n 1 


.♦IS DMKSYSMA*. 


err $* r i*°* g3 *: 

». *hsg dmk: 

3 MORE ♦. YES * - OS)_ 

8 BYTES .*->* MISSING OR 


***************** 


LOGOI 

*****H2******»"» 
♦DMKUDRFU ^ ^ ^ ♦ 

*~ CALL~FIND 

* USERID IN CP * 

* DIRECTORY * 
***************** 


.♦NAS THIS A 1 




♦MSG DMKLOG053E ♦ 
—>♦- USERID NOT IN* 
* CP DIRECTORY ♦ 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 




.->*CALL - PICK UP *<- 

' ♦ OPERAND (IF * 

♦ ANY) 

***************: 




.♦MORE THAN 8*. YES 
*. BYTES LONG .“ 


♦. TO 'MASK 




"I 




♦♦E2******* 

■ SIGNAL NO * 
PRINT * 
SUPPRESS IN 
TERMINAL 
RDEVBLOK 


.* PASSWORD 
♦. ENTERED 
♦. BEFORE 


*********** 


n <f 


c ****p2********** 

MSG DMKIOG003E * 

-oH»i 1D S 
**************** 
I **** 

1—>*07 ♦ 


♦♦H2******* 
CLEAR R1 


♦ H3 ♦-, C 

!ROR50 1 


♦MSG DMKLOG050E * 
—>* - PASSWORD ♦ 

♦ INCORRECT * 


♦NEXT OPERAND * 


* FATAL 
TERMINAL 
ERROR . 


' J5 *—07J1 


‘ RUN USER OR * 
♦POST A HEAD* 
*********** 
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.* 'HOIPL* *. YES 
♦.GIVEN BEFORE^.*-^ 


♦.PASSWORD .1 


~5 


".IS II CORRECT. 


'‘"I 


LOG07 

**D2*+* 

* USERID S 
♦PASSWORD OK; 5 


r 

*♦♦♦ 


CALL - GET 


■ CALL - SEE IF ♦ 

♦ USER ALREADY < 

♦ ACTIVE 


*. LOGGED ON AT 




.♦ IS HE IN 


*' ~J 


'”1 


♦♦K2******* 

♦ SET TO ♦ 

* RECONNECT A ♦ 

* DISCONNECTED *- 

* USER * 


***** 07C5 


LOGO7A V 

****♦43********** 

♦ STORE NEEDED ♦ 

♦ DATA IN QLD ♦ 
VMBLOK S ♦ 
TERMINAL ♦ 
RDEVBLOK * 

:**************** 


*****B3********** 

♦PATCH CHAIN OF * 
♦USERS TO DELETE* 
* NEW VMBLOK * 


***** 03F4 


: --S 


**A2******* 


***************** 


♦SET VIRT=REAL* 
♦FLAG IN VMPSTAT* 
* IN VMBLOK * 
*********** 


*SET VMBLOK * 

* POINTER S 
■ INITIALIZE 

* ECBLOK 


**03******* 

*ADJUST TIME* 
♦QUANTITIES S * 
^NEEDED FLAGS S =1 
* POINTERS * 




.♦IS THE *. 
.♦ACCOUNTING *. 
-♦.OPTION SET ? .* 


♦****C1********** 
*DMKFREE * 

*._*_*_*_*_ *_*_*_* 

* CALL - GET * 
*TRQBLOK FOR CPU* 

* TIMER * 


* REAL TIMER * 
***************** 


*£ INITIALIZE * 
* TRQBLOK FOR 
* REAL TIMER * 


* SET THE * 
♦ACCOUNTING FLAG* 

* IN THE VMBLOK * 


**E«******* 

* * 
♦ZERO OUT THE * 
♦USER ACCOUNTING* 
♦BLOCK POINTER* 
*********** 


* ADJUST * 
♦ADDITIONAL TIME* 

* QUANTITIES * 


I* G3 *-> 07A 5 


*********** 


♦ COMMAND LEVEL* 

* S PRIORITY IN * 


♦ DOES USER *. NO 

WANT ISAM .*-. 

*. CHECKING .* I 


• CHECKING FLAG * 


.* EXTENDED * 
*.CONTROL MODE 
♦.OPTION ON.* 


*YES** t 

L>*04*> 


(IN VMBLOK) * 


♦ POINTER S * 
INITIALIZE 
► TRQBLOK ♦ 
*********** 


*****E1*i 
*DMKFREE 
*_*_*_*_*_*_*_*_* 
♦CALL - GET TRQ-* 
*BLOK FOR CLOCK * 
* COMPARATOR * 
***************** 


*********** 


LOG15 V 

*****£2********** 
♦SAVE ACCOUNTING* 


| DMKLOG — Process LOGON/LOGIN Command; Logon the User or Operator (Parts 3 and 4 of 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


9 ) 


* SIGNAL 

♦ EC-MODE IS * 
ALLOWED (IN 

♦ VMBLOK) * 


* DEFAULT TO ♦ 

* VIRTUAL TIMER 1 
* RUNNING * 


**F2******* 
> BLANK 


NO .* *. 

-♦.DISTRIBUTION . 

*. CODE .♦ 
*.BLANK.* 


**H2******* 
♦SUBSTITUTE * 
* USERID FOR ’ 
* BLANK 

♦DISTRIBUTION * 
CODE 


*. OPTION .* 


*IPL'D (IF ANY) 


IN VMBLOK 
*********** 


**A3******* 

* SIGNAL NO * 

* AUTOMATIC IPL < 


* GET STORAGE < 
—>*SIZE, STORE IN * 


* CALL - BUILD 


**C4******* 


*********** 


*»***D4********** 
♦DMKFREE^ ^ + # * 

*~ call~-”gIt * 

.* STORAGE * 


♦*E4******» 
♦SET VMBLOK i 

* POINTER & 

1 INITIALIZE 

♦ DUMMY 


**?4******* 


CALL - GET 




♦ INITIALIZE !3 



















o 


| DHKLOG — 
SY 20-0880- 


1^ 




***** 04K4 


**A2******* 
♦SET TMBLOK ♦ 

* POINTER 8 ♦ 

♦ INITIALIZE THE * 

♦ 2 VCHBLOKS * 


* 

♦ 

* 

♦ 

♦ 

* 


♦*♦*♦ 05K2 


*♦A1******* 


*********** 


**B2******* 

‘ SET FOR 1 
READING 

■ DDETBLOK (S) > 


I 08G3 


LOG20 

♦****C2********** 
*DHKDDRRD * 


♦CALL - READ IN * 
* NEXT ODBTBLOK * 
***************** 


"ERROR" (EOF) . ; 


-1 


*********** 


♦Terror ] 


♦MSG DMKI 
*- DET YL 
—>* DEFINED 
* VADDR * 


.OG092E * 
DDR NOT* 
- TYPE * 


T* I 




"1 




* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 


* CALL - SEE IF * 
♦HE ALREADY HATE* 
A CONSOLE * 


* C 2 *-1 ( 

3G21** 1 


CONSOLE *. 
ALREADY 
, DEFINED .* 


LOG21 

*****C2********** 
*DHKVDSDF * 


**E1*> 

♦STORE WHERE* 

* NEEDED FOR * 

* DMKLOG092E * 
♦ERROR MESSAGE* 
*********** 


I**************] 


♦SET DP REGS, 


************** 


[VDSDF J 

**YES *05** 

i V3* 


ERROR93 

*****E3********** 

♦MSG DMKLOG093E * 
*- DET VADDR HOT* 

->*DEFINED: ERROR *— 

*IN CP DIRECTORY* 


!R H*****gi| ********** 

♦DMKCTTBH * 


ERROR9 


***************** 


**QJ******* 

♦STORE WHERE* 
♦NEEDED, JOIN * 


*********** 


<***P2********** 
♦MSG DMKLOG091E * 

* - DASD TADDR * 

* NOT DEFINED; *— 
*TEHP SPACE NOT * 

U.AUlttllh**** 


***************** 


* SET RO = 0 1 

^ (MSG INFO IN ^ 
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DMKLOG — Process LOGON/LOGIN Command; Logon the User 


£ 


***** 06F4 
*07 * 06J1 
* »1* 08H1 


**i1******* 

* * 
♦FINISH SETOP * 
->* OF PARKS FOR 
* DHKERBSG ♦ 


***** 03G2 


' ““'"I 


.* HANDLING ' 
. OPERATOR 1 S 
*. VHBLOK .' 


or Operator (Part 7 and 8 of 

♦ 

* 

* 

* ***** 05J2 

*08 * 

* 

„ * 

* ,.ii 

* 

* 

* 


9) 




♦CALL - HAKE OP * 
* 8 GIVE BBBOR ♦ 
- HESSAGE 


*IS MAXIMUM *. 

0 {= HO 
*. LIMIT) 


“1 


,* HAS THE *• YES 
, ERBOB HON- 
*. FATAL 


■'■“I 


"~1 


.♦SYSTEH *. 

* OPERATOR 1 
ALREADY 
♦.LOGGED OH.* 


**C5******* 
* SET OP * 
■ USERID, GO 


*********** 




**gj******* 

* SIGHAL * 

► TERMIHAL IS * 
NO LONGER 
k CONSIDERED * 

*S$83SSS!S** 


**pi******* 

* COUNT HON * 

* HANY * 

*INCORRECT LOGON* 

* ATTEHPTS * 

* WB'VE HAD * 
*********** 


**D3******* 

* CORRECT * 

k OSERID TO 1 
VHBLOK - 
k REPLACES ' 

* LOGONXXX * 
*********** 


* E3 *-> 03S3 

;?*** v 

** 53 ******* 

♦NEEDED E HORDS*< 

* FOR READING 

* DIRECTORY ' 
*********** 


* CALL- READ * 
♦OHACBLOK - OSER* 

♦ HACHINE BLOCK ♦ 
***************** 


n 




c 


♦SET PARHS FOR* 


,♦ ERROR 
READING 
♦.OHACBLOK . 


♦♦H3*****»* 

♦ SAVE ♦ 
k TERHINAL » 
CODES IN 
k TERHINAL ♦ 

M2I5liS K **** 


•HSG DHKLOG052E ♦ 
ERROR IN CP ♦ 
DIRECTORY ♦ 
'*********♦*♦♦♦♦* 


► SET FLAG TO 
GET RID OF 
k VHBLOK 


*****J1********** 

jsraiL*-*_*j; 

♦ CALL - FORCE ♦ 

♦ OSER OFF TBE * 

♦ SYSTEH * 
***************** 


LOGEXITR V 

♦♦♦*J2*»******* 

♦ RETURN TO ♦ 

♦ CALLEB * 

*************** 




ERRJOIN1 

*«J4«****** 

♦SET R1 = 0 ♦ 

* (HO DATA TO ' 
* BE PASSED TO 

♦ DHKERHSG) * 


.♦CLASS A*, 
k = SYSTEH ' 
OPERATOR 
k. CLASS .* 




02T2 
09C4 
. 09F3 
ERRJ0IN3 t 

**K4******* 

♦ RBTOBH B2 * 
♦ERROR CODE TOV 


CALLER ( 
DHKLOG 
*********** 

| ***' 
t_>* 


V « 

***** T 
♦03 ♦ 

♦* B ** e 

* 

, * 

* 
* 

* * 

♦ 
* 
* 
* 
* 
* 
* 
♦ 
* 
♦ 
* 
* 
* 
♦ 
* 
* 
* 
* 
* 
* 
♦ 
* 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
* 
* 


LOGDEV 

*****32********** 
♦DHKSCNRO ^ ^ ^ ♦ 

->» CALL~-~FIND ~* 

♦ REAL DEVICE ♦ 

♦ BLOCKS * 
***************** 


CALL - HAKE 
♦SORE VOLOHB IS ♦ 
* HOONTBD * 
***************** 


LOGATT 

***»*D1 *********> 
♦DHK VDS A T ' 

* CALL - ATTACH 

* DEDICATED 

:****2ijj£i*****, 


8S 


««N3******* 


*********** 


♦♦B3******* 
♦SET DESIRED* 

* LINK HODE * 


*********** 


♦♦D3******* 

* SET REGS * 

* FOR LINK-TO ' 
* DEVICE 6 

* OWNER'S ' 

* OSERID * 
*********** 


ERROR90 

*****FI********** 

♦HSG DHKL0G090E * 
♦- DEV VADDR NOT* 

* DEFINED; DEV * 

* RADDR NOT * 

* AVAILABLE ♦ 
***************** 


LOG30 V 

***** 53 ********** 

♦ HOVE ODEVBLOK * 

* TO ALTERNATE ♦ 
♦AREA 8 ADDRESS * 


***************** 


♦♦F3******* 
♦FINISH SET OP* 

*^for b dhklnksb ** 
*********** 


***************** 


♦♦HI******* 

* STORE * 
♦RADDR/VADDR FOR* 

* DHKERHSG * 


**A4******* 


*********** 


***************** 


***** 15 ********** 

JDMKjjjCNWT ^ t ^ * 

*” CALL - - - SHOH ”* 

* DATE/TIHE OF * 

* LOG HESSAGE * 
***************** 


** 05 ******* 

* SET TO * 

* EXAMINE * 

* SYSTEH LOG * 
♦HESSAGE LINES* 


**********4 


*********** 


♦dhkacon’ 

k******** 

♦ CALL - * 

♦ ACCOONTING ♦ 

♦ *22112* * 




*****05********** 
♦DMKQCNWT * 
*_*_♦_*_*_*_*_*_* 
♦CALL - SHOW LOG* 
* HESSAGE LINE * 
***************** 


■ TED *.'*-j 


.* ANY MORE 
*. LINES TO 
*. CHECK 


J 


LOG55* < 


**G4******* 

* INCREMENT * 
k DHKSYSNH = * 

NO. OF LOGGED ' 
k ON OSERS * 
*********** 


**H4******* 

♦ SET OP TO ♦ 
k SHOW * 
DATE/TIHE OF 
k SYSTEM LOG * 

%*SS!!S G *S„* 


***************** 


**Q5*****«« 

* CONSTRUCT ♦ 
k*LOGON AT' OR' 
•RECONNECT' 
k MESSAGE ' 


*****J5*****»**»* 


n 


♦YES 

U.” 


♦♦K5******* 
♦SAVE LOGON * 

♦ TIME IN * 

k "VHTIHEON" IN ♦ 

♦ VHBLOK * 


(^) 


r 






















ERRORS* 


| DMKLOG — 
SY20-0880 


LOGS 1* V 

*****A1*********’ 
♦DHK^CHST _ 

*CALL~-~LOGOH OB' 

* RECONNECT HSG 

* TO USER 

******t**********t 


**31******* 

* SET OP * 

* MESSAGE TO * 
♦SEED TO SrSTBB * 

* OPERATOR * 


****+***********1 


► LINE I 


***************** 


*****pi********** 

♦DBKQCHBT * 
*_*_*_*_*_*_*_*_* 
♦CALL - LOGON OR* 
♦BECOME. HSG TO * 
♦SISTEH OPERATOR* 


10665 ** fi 1***.*** 

♦* RB fiioS IB % 

♦PROCESS" VHBLOIC* 
—.AG & OTHERS* 
AS HEEDED * 


* s 3i 


RECONNECT, OR 


* SISTEH MAKE * 

► OR ADDRESS TO * 

* BE IPL'D * 


♦.OPERATOR . 


f.*-J 


♦CALL - INITIATE’ 
♦IPL OF DESIRED ' 
* SISTEH 

**************** 


♦♦♦**B3*********’ 
♦HSG DHKLOG054E 
* - ALREADI 

♦LOGGED OH LINE 


♦♦♦♦AS********* 

* DHKLOGOP * 
*************** 


♦RETORH CODE. * 

► SIGNAL SISTEH ’ 
* OPERATOR * 
* LOGON * 
*********** 




**D2******* 
♦ADJUST HETOHH* 

%“ D ?ii s oiiR B0 ;** 

*********** 


* CULL - GET ♦ 
♦TE8HIHAL DEVICE* 

* &DDBBSS * 
*** **** ** ******** 


***************** 


**P3******* 

r ro = o * 

5 B 1 ?? 0 
*********** 

1 —>*07** 


► K4 « 


*IES 
I **** 
l—>*07 < 


Process LOGON/LOGIN Command; Logon the User or Operator (Part 9 of 9) 
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IBM VM/370: Control Program Logic 310*2 


VM Monitor Command Handler (Part 1 of 1) 


***************** 


*. PARAMETER . 
*. GIVER .* 

'♦XES 


DHKMCC026E 


MONSTART 


IBS .* TRACING 
- ALREADI 
, ACTIVE . 


r*-* 


► .MONITOR START .* 


FLAG TO 
idicatb 


*********** 


♦INVALID OPERANDS 

♦ SET DP MSG ♦ 

♦ DHKMCC002E ♦ 


***************** 


♦♦♦♦H2********* 

♦ CALL DHKERMSG ♦ 

♦ WHICH RETORNS ♦ 

♦ TO DMKCPM ♦ 
*************** 


' i 




► SET FLAG TO ♦ 
INDICATE *- 
■ TRACING OFF ♦ 
*********** 


*****ptl ********** 

;£e£5iL*_.-*_: 

—>♦ CALL - OOTPOT ♦ 

♦ COMMAND ♦ 

♦ COHPLETF """ 
********** 


MSG 




****G4********* 

* * 
* EXIT ♦ 
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IBM VM/370: Control Program Logic 314 


| DMKMCH — Machine Check Handler (Parts 7 and 8 of 9) 


♦ADDRESSABILITY * 

♦ FOR SECOHDARY ♦ 

* HANDLER ♦ 


*****C3********** 
♦SET OP MACHINE * 

♦ CHECK NBH PSN * 

♦ WITH BAIT BIT ♦ 

♦ ON * 

***************** 


.‘DEGRADATION*. 


’. INDICATO] 


* ENABLE PSN 
FOR HARD 
-CHEC 


♦MACHINE CHECK* 


*********** 


**E1******* 

* MSG= * 

* DMKMCH617I * 
♦BUFFER OB DLAT * 

* DAMAGE * 
*********** 


♦GET THE VMBLOK * 
♦ADDRESS FOR THE* 

* ACTIVE OSER * 

* * 
***************** 


*****F1** 

♦DMKgCNN” 

» ~CALL• SEND 

* MESSAGE TO 

* OPERATOR 

****************1 


**F3****♦♦♦ 

* HSG= * 

* DHKMCH6111 " 

SYSTEM 

► INTEGRITY * 
" LOST 


BCH ?S***( 


.♦IS THE *. 

♦ RECOR SION * 


***************** 


•CALL* — 
♦RECORD MACHINE ♦ 
* CHECK RECORD * 
***************** 


**K1******* 


♦.INDICATOR ON^.*-j 


♦♦H3******* 

* SET THE * 
♦RECURSION FLAG ’ 

♦ IN HCH AREA * 
*********** 


.♦HAS THE*. 

“'CHINE *. HO 
iNDLER.*-, 

'V n 


♦♦♦*K2********* 

* RETURN TO THE * 
—>♦ IN LINE CODE * 


*********** 


,♦ HARDWARE ♦. 
, RECOVERY OH . 
*. IN MCH .* 
♦.AREA .* 


♦ 01 ** 
* D3# 


***************** 


*********** 


* 

* 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

♦ 

* 


***************** 


♦ DOES AN *. HO 

ARGUMENT .*- 

►. EXIST 1 .* 


.»*LENGTH B 0F**. 3 
♦.THE ARGUMENT^. *- 


**E2******* 
**DMKMCH026E ** 

—>*OPERAND MISSING*- 
♦ OR INVALID * 

* * 
*********** 


.* *. 

. 'IS ARGUMENT*. YES 
->*. * RECORD OR .*- 


♦.gUIEI 


.♦IS THE *. 

♦ QUIET 1 
INDICATOR ON 


♦♦G2******* 


*********** 


♦♦HI******* 
♦SET.THE QUIET* 


MCHIDS V 

*****B2********** 
♦DMK E R M S G ^ ^ ^ * 

* 'CALL* SEND ""*— 

* ERROR MESSAGE * 

* TO OPERATOR - 


_ 'MAIN 

STORAGE’ IN 
BUFFER 


.♦IS THE *. 

NO .* RETRY *. 
-*.INDICATOR OH .* 


“ CH !2*5*t 


*****B5********** 


****************4 


**C5******* 

* SETUP THE * 

■ RETURN ’ 
ADDRESS TO 

■ MSGRET IN ’ 
- CPEXADD - 


: FOi bSffIr’ ih * 
***************** 


**IS THE *. 


DILATOR 


1TOR ON^.* 




*****05********** 

♦DMKSTKCP ^ ^ ^ * 

* STACK TIE * 

* CPEXBLOK ON * 

51 ***** 22121 *****: 


30? 2I22» e5 *: 

* RESTOR] 

* REGIS' 

* EXECPT 

* CONTRC- 
*********! 


Ijl****,: 


INTERRUPTED ♦ 
PROGRAM * 


.♦IS THIS*. 


♦.SUPPORTED.* 


. ♦ GO CHECK FOR 

1-* the quiet 

* ARGtr- 


YSUP-> H3 

Y158->09H1 

Y168->09H3 

NO ->09 A2 


l / 


t . 









08H « 




| DHKHCH — M 

ST20-0880-1 


/^s 




> THIS 
)Et 161 




**B1******* 

* ISSUE * 

* DIAGNOSE TO * 

* ENABLE ECC * 
♦LOGIC EOS 168* 


n 


♦*A2*****»* 

♦ BASK OFF ♦ 

I 1 THE HECOVEHI 4 


MESSAGE 
*. INDICATOR. ♦ 
♦•OH 7 .* 


*********** 


.♦IS THE *. 

* QUIET ♦. 
MESSAGE .« 

♦ .INDICATOR.* 

♦ .ON ? .* 


*********** 


♦INDICATE ECC 4 
> IS IN QUIET 
* MODE 4 


**A«******* 

* ISSUE ♦ 

> DIAGNOSE TO 4 
DISABLE ECC 

* RECORDING 4 


♦♦***D2********** 

♦PUT ZERO IN THE* 

* SOFT COUNT * 

* FIELD ♦ 


**»**E2********** 
* SEND BUILT * 
♦MESSAGE TO THE * 


***************** 


***** F 2********** 

JE*^S£*!12L*_*_*_i 

♦ MESSAGE* TO^THE * 

;***§!!«! ««**: 

I *•** 
*->♦08 * 


.♦IS THE ♦. 

» QUIET ♦. 

MESSAGE .4 
4. INDICATOR . ♦ 


* DIAGNOSE TO 4 
DISABLE ECC 
■ RECORDING 4 

*********** 


n 1 


.♦IS THE *. 


**A5******* 


**********, 


**J1******* 

* ISSUE * 

* DIAGNOSB TO 4 
ENABLE ECC 

* RECORDING 4 
*********** 


««J3******* 

* ISSUE ♦ 

* DIAGNOSE TO * 
ENABLE BCC * 
► RECORDING * 

* * 
*********** 


acbine Check Handler 
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IBM VM/370: Control Program Logic 316 


DMKMID — Change Date at Midnight (Parts 1 and 2 of 2) 


SBTDAI 


i**************** 


*«***C1**j 

•ADJTIBE * 
*_*_*_*_*_*_*_*_* 
•ADJUST TIBB POR* 
* NEXT BIDNITE • 


***** 1)1 *********! 
*DHK|CHST_ # * * ' 

* call - to 

* SCHEDULE NEXT 

* TIHBR EVENT 


<****E1********** 

’OINT TO TODATB* 
BIDNITE VALUE * 
* 

i**************** 


***************** 


*****G1*********) 


****************: 


*.IS DATE VALID.• 
‘•NO J 


•****ji********** 

•DBKQCNHT * 

*_*_J_*_*_*_*_*_* 
•ISSUE BRROB BS6* 
• DBKBID453I * 
***************** 


i**A2********** 

•ADJUST AND SBT • 
->* DAT OP HBBK *<- 
* DBKSTSDN • 


“-I 


****************> 


♦♦♦♦D2*** 
•CALLER^-^DBKSCB* 


• CONVERT * 

: HH ^{i? To ; 

***************** 


***************** 


t****C3********** 


**************** 


t****£4********** 


t***************4 


*******4********** 


«****C4********** 


<**************** 


****34********* 

* BET0BH OK R3 * 

♦ * 
*************** 


**** + + + + **.** + * + + + 


«****c5** 

* UHPACK PIBLD 


****35********* 

* BBT0BH OH B3 ♦ 
*************** 


**************** 


♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

♦ 

♦ 

* 


[ ****B2********** 


1*44*44444*444444 


♦ ♦♦♦C2** 1 ******** 


44*44**44444444 


4444*D2**i 

♦ ADD TO ADJUST * 
***************** 


44*4\3*444*4*** 

♦ MSGALL * 

* * 
44*4**4*44***** 


4*444^^4444444444 


♦YHBLOK POIHTEB 4 


********4*4*4*** 


**** 22 ********* 

♦ BETOBH OH R3 * 

* * 
*************** 


44444Q3********** 

♦POIHT TO FIRST * 

* USER AHD * 

* REMEMBER * 


* D3 * , 

* *-> 

*#*4- J 

HXTM 

HO .♦ RBCIEVIHG *. 

-♦. MESSAGES .♦ 

*. .* 

*♦. .♦" 

♦ YES 


***** E3 *** 

2533!L»_ 

* CALL TO HRITB * 

* BESSAGE * 


»”2il 8 **r3*! 

* POINT 


******** 

_ JO NEXT • 

- USER VBBLOK • 
* * 

***************** 


.* LAST USER * 


' I 


♦ ***H 3********* 

» RETURN ON R3 * 
*************** 






























































DMKMSG - 




IBM VM/370: Control Program Logic 318 


- Process ECHO , MSG, and WNG Commands (Part 3 of 3) 


***** 02K5 


*****&”} ********* 


c 


♦DMK^CNWT + + 

*~ CALL _ SEND ' 

* * ENTER LIME* 

* MESSAGE 


♦♦♦*A2********* 
* ECHORETN 1 
*************** 


.♦RETURN CODE». 


IRIT l 


‘ RETURN PROM « 
< READ - RETURN * 
> ADR.=ECHORETN * 




***************** 


* * ■» 
* GOTO DMKDSPCH ♦ 
*************** 


*****33*** 
♦DMKjjjCNWT * 

* - CALt - OUTPUT * 
* THE LINE < 
***************** 


****C3+**^**^»* 

* GOTO DMKDSPCR * 
*************** 


FROM WRITE 
*************** 


.♦RETURN CODE*. 
*. FROM WRITE .* 



ECHOEXIT 

*****G3********** 

♦DMKFRET ♦ 


Jyes 


,'END' ENTERED. *- 


.♦MORE LINES * 


* LINE - RETURN * 


************** 
















DMKMSW — EBP Message Writer (Parts 1 and 2 of 3) 
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**B4******* 

♦ SET PROPER * 
—!>*I02RIRD4 FLAG. * 

*********** 

!—>*02**^ 



*****C5********** 
♦DHKCVTBH * 

* CALL* CONVEBT * 

* DATA TO HEX * 



»****D5********** 

►STORE CONTESTED* 
* DATA IN PHINT * 



****E5********* 
♦RETURN ON GPB-5* 
*♦***♦*♦♦**♦♦♦* 








01E2 


01E2 




CTTBCR 

♦♦A3******* 

*TENT4TIVELY* 

* SET FOR * 
* MNEMONIC OF ' 


**B1******* 
♦TENTATIVELY* 
*SET 5TH BYTE * 
*OF MNEMONIC TO * 
* A BLANK * 


♦SHIFTED LEFT 
* 4 * 

*********** 


MNEMONIC OR 


***************** 




* FI *-> 02C2 


♦STORE 4-BYTE 


*********** 



> M FIELD*. YES 


**C3******* 

♦TENTATIVELY* 

* SET FOR * 

* MNEMONIC OF < 

* 'BCR' * 
*********** 


•*WAS M FIELD*. YES 
I. OF BCR 1 TO .*-, 

%. 14 .*•* | 


**E3******* 

* SET FOR * 

► FIELD OF 0 * 

*********** 


CVTBC 

**44******* 

* FORM AN * 
♦INDEXER FROM * 
*M FIELD OF 'BC'* 
♦INSTRUCTION X* 


♦MNEMONIC 1 


♦SET TO 5-BYTE* 

* MNEMONIC OF * 
* ' STNSM' * 


* INSTRUCTION * 
*********** 


1IVILEGED OP I * 
CODE .* 


*********** 


CVTEXIT2 j 

*SET 2 MISsiNG* 

->*in B mhemonic°op*« 

* CODE * 
*********** 


CONDITION-CODE 
NON SET TO 1 


****J2********* 

* RETURN TO * 

* CALLER * 


IUV 

02G3 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***** 01E2 


♦REGISTERS TO * 

*SEARCH TABLE OF* 
* KNONN •B2' * 

* COMMANDS * 
*********** 


.♦EQUIVALENT * 
'.FOUND IN ' B2 ' 
*. TABLE .* 


**45******* 

mn!monic E of 


**B3******* 


—>* MNEMONIC FOR 
* KNORN B2 OP * 


♦MNEMONIC USED* 
*FOR UNKNOWN OP * 


> FORM MNEMONIC ' 




' L>: 


* E3^*-» C 

rTHIO* 7 


**B3******* 


*********** 


IS IT HIO .*-1 

*’*•*. .*••’* ***t* 


♦+G3******* 

:HD H r?°I 8 |£§A F D 4 


I **** 

u :v* 


| DMKUEM — Translate Operation Code (Parts ‘1 and 2 of 2) 
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IBM VM/370: Control Program Logic 322 


! 













| DMKPAG — 


****&i********* 


,* FATAL 
PAGING IC 
*. ERROR 


***************** 


GETCPEX^ 


‘*** El ********** 
f GET 1ST * 
► CPEXBLOK PROS * 

* ONCHAlpFfioM * 


************$4 


ras »SS« r1 *I 4 


-2 POINTER 

► NEXT REQUEST 
K INSERT ERROR 


♦****G1********** 
♦DMKSTKCP # + + * 

*~CALL TO~STACK - * 
* TASK FOR * 
DISPATCH 


*****J1*> 

*GET TOP OF IOB * 
* STACK, POSH * 
♦THIS ONE OH TOP* 


* ^ * 
* SET OP ESG ♦ 
•* DMKPAG415E 
♦PAGING ERROR ♦ 
*********** 


****F2********* 

* GOTO DBKDSPCH * 

* * 
*************** 


**»*K2********* 
—>* GOTO DMKDSPCH * 
*************** 


PGRETN 

****A4********* 

* DISABLED HAIT * 
-* CODE-OF * 


***********4 


♦COMPOTE LENGTH * 

* OF RECORDING 1 

* INTERVAL 4 


»****C3**4 . 

* CONVERT 

* INTERVAL TO * 
*MICRO SECONDS. * 

--IZE TO 3l* 

******** 


♦COMPUTE PAGING * 

* RATE AND SAVE * 

* IN PAGERATE * 


*****£ 2 ********** 

:£ess!i_*_*_*_: 

* CALL - WRITE * 


RECORDING 


*****F3*********4 
** ' 

* RECORDING 

* PERIOD X 100 


****«G3**4 
♦COMPOTE PERCENT* 
♦PAGE-WAIT OVER * 
♦PERIOD AND SAVE* 
* IN PAGELOAD * 
***************** 


♦PAGE RATIO AND * 




***************** 


iging 


I/C 


Scheduler 


(Part 3 of 3) 
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DMKPGS — Release Virtual Storage (Parts 1 and 2 of 3) 


‘"1 


**** & 1 ********* 


************** 


* CALCULATE * 
♦NUMBER OF PAGES* 
♦TO BE RELEASED * 


*****p-| ********** 

♦USING 1ST PAGE * 

* NUMBER, INDEX ♦ 

* TO SEGTABLE * 

* ENTRY FOR 1ST * 


*****A2********** 

* DECREMENT * 
♦USER'S RESIDENT* 

* PAGE COUNT * 
***************** 


♦****B2** 

* INDEX TO 
♦CORTAB1E ENTRY 

* FOR REAL PAGE 

* FRAME 
**************** 


*****C2********* 

♦ CLEAR OUT THE 

♦ PAGTABLE 

♦ POINTER IN 
♦CORTABLE ENTRY 


► REGISTERS TO 


PAGOUT2 V 

****+F1♦*♦****♦♦* 
♦ INDEX TO ♦ 

: pa s g 2^Il1 nd ** 

jsbpss nhiir * 

***************** 


♦♦ - TRANS - ♦* 
**PARM = DEFER *♦ 
♦♦TO ENQUEUE ON** 
** PAGE ** 


;0 


*****32********** 

* UNCHAIN * 
♦CORTABLE ENTRY * 
♦FROM USER LIST * 


) .*"RELEASING *. 

—♦.RESERVED PAGE.* 


*****F2********** 


DECREMENT * 


PAGOUT4 V 

*****G2********' 

♦DMKPTRFT 


♦PAGTABLE ENTRY,* 
♦PURGE CPU TABLE* 

* LOOKASIDE * 

* BUFFER * 


♦.PAGE RESIDENT.' 


L>**’ 


♦DMKPGTPR 


.************** 


♦PAGE COUNT ' 


RETURN TO 


c************** 


*****35********** 

♦CLEAR PAGTABLE ' 
* INDEX TO ZERO ' 


***************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


‘‘I 


♦FLAG AS ENTRY* 

* TO FULL PAGE * 


.♦RELEASING A . 
♦.SHARED SYSTEM. 


.EM.*-, 


*****32********* 

* INDEX TO NEXT 
*S»PTABLE ENTRY 




♦TEST PAGE COUNT* 


.♦PAGE COUNT * 


*****£ 1 ********** 

* DECREMENT AND * 

* TEST SHARED * 

* SYSTEM USE * 

* COUNT * 
***************** 


■ USE COUNT ' 


***»*G1********** 

* UNCHAIN * 

* SHRTABLE FROM * 

* ACTIVE SYSTEM * 

* LIST * 


♦POINT TO FIRST * 
♦SHARED PAGTABLE* 


*****E2»********* 

* INDEX TO NEXT * 

* PAGTABLE * 

* POINTER * 
***************** 


*****32********** 

* DECREMENT AND * 

* TEST SHARED * 

* SEGMENT COUNT * 


■ GET NUMBER OF * 
► PAGES IN THIS ' 
< SEGMENT ' 


♦POINT TO SHARED* 


♦CLEAR SHRTABLE * 
* POINTER IN * 
*VMBLOK, UNFLAG * 


,**-} 


.* "NOCLEAR" ♦. 
>♦. PASH PASSED . 


;~1 


* RESET ANY * 
♦ACTIVE TRACING * 

* OR ADSTOP » 


.♦CALLED FOR ' 


♦RELEASED PAGE = 
>*0, LAST PAGE = 
* END OF VM 


L>Joi*> 


***** D 3********** 
♦CLEAR V=R AREA ♦ 












DMKPGS - 




GET SEGMENT 


* RE|jn 




*****23********** 

•GET ADDRESS OF * 
OLD SHARED * 


****»g2**i 

* INDEX INTO 

* SBGTABLE TO • 

* CORRECT ENTRY » 

* FOR SHARED * 

* SEGMENT * 
***************** 


*****C2********** 

• GET NUMBER OF * 
•PAGES IN SHARED* 

* SEGMENT » 


i**************** 


* CALL TO GET • 

* STORAGE FOR * 
» PAGTABLE * 
***************** 


*****F2********** 


***************** 


*****G2**’ 1 
•INSERT ADDRESS • 

* OF UNSHARED * 

* PAGTABLE IN * 
•SEGTABLE ENTRY * 
***************** 


************** 


* CALL TO GET * 

* STORAGE FOR • 

* SHPTABLE * 
***************** 


*****K2********** 

* CHAIN VMBLOK * 
•AND PAGTABLE TO* 

* SHPTABLE, *— 


CHAIN, GET 


***************** 


• SHPTABLE, AND * 


******** 

GET NUMBER OF » 
PAGES IN * 
SEGMENT * 
**************** 


INITLOOP 

*****23*** 

•INITIALIZE NEXT* 
•PAGTABLE ENTRY • 
->* TO "NOT * 
* AVAILABLE" * 
***************** 


*****23********** 

•INITIALIZE NEXT* 
•SHPTABLE ENTRY * 

* TO INDICATE * 

* "NOT SHARED" * 
***************** 


*****q3********** 

* INDEX TO NEXT * 

* PAGTABLE AND * 

* SHPTABLE * 

* ENTRIES * 


***** 14 ********** 

• DECREMENT AND • 
—>» TEST SHARED * 

* SEGMENT COUNT * 
***************** 


lERO^—j 


Release Virtual Storage (Part 3 of 3) 
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DMKPGT - 


- Allocate DASD/Virtual Storage (Parts 1 and 2 


♦ SLOT FOR PAGING* 
*************** 


**B2******* 

* SET * 

■ ALLOCATION 1 
INDEX POH 


*********** 


**C2******* 

* POINT TO * 

* PHEFEHBED * 
♦DEVICE ANCHORS^.* 

*********** 


♦ D2 # *->i 
PGTINIT { 

♦♦D2******* 

♦CLEAB BECBLOK* 
♦SAVE BEGISTEBS * 


^ x un*^*] 


->♦ ANCHOI 




J^NEXT*' 

•Hi 


=0 .♦ TEST ♦. <0 

-*. BDEVBLOK .*- 

♦. POINTEB .♦ 


♦ G2^*—> j 03E3 

**** I 

CKBBC V 

*****G2********** 
♦POINT TO START * 

♦ OP PAGING OR * 
♦SPOOLING CHAIN ♦ 

♦ POR DEVICE ♦ 


S0S *****P3***+*****+ 

♦DUKFREE 


***************** 


**G3******* 

« SET RETDRN * 
ADDRESS TO 
■ PGTHSG2 * 


hex IIIS*b 


> AMI BOBE 
BLOKS OH 
>. CHAIN 




**03******* 

* SET OP ZERO « 
* DASD ADDRESS 


*********** 


rv 


^IOBLOK^ 


***** 


SETADDB 

*****J4********** 
♦SAVE COHPRESSED* 
♦ DASD ADDRESS * 
JCCPD) IN 
:ALLEB»S C““" 


****K4**» 

♦ 814 HETOBH ♦ 

*************** 


of 8) 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* GET NUMBER OF ♦ 
♦PAGBS IN BSE ON* 


***************** 


.* PAGING ON 1 
►.MOVEABLE HEAI 
*. DEVICE .* 


.* IS DEVICE *. 1 
►.POSITIONED AT.*- 
*.THIS CYL .* 


*****03********** 

* INCREMENT AND ♦ 
—>*SAVE NUMBER OP * 

♦ PAGES IN USE ♦ 
***************** 


fih S!J§I e3 


.* POUND AN ♦. YES 

‘•♦.ci^NDly*-^ 

■*in *01 * 

** H r 


► FOUND AN 1 
AVAILABLE 
k.CYLINDER .* 


*****Q2********** 

♦SAVE ADDRESS OF* 
♦BECBLOK FOR 1ST* 

* AVAILABLE * 

* CYLINDER * 
***************** 


k**E3********** 
- TRT ON PAGE * 
♦ALOOCATION HAP,* 


***************** 


.♦'available'*. 1 
*. PAGE POUND .*- 


****G3********* 


YES *01 * 

vr 


»****P4********** 

♦TURN BIT ON TO * 
->* INDICATE PAGE * 
* IS ALLOCATED * 
***************** 


*****04********** 

* SAVE CYLINDER * 
*AND PAGE NUMBER* 

* OF ALLOCATED * 

* PAGE * 

***************** 


****+H4********** 

♦GET ONNED LIST * 

* CODE PROM * 

* BDEVBLOK * 


.♦CYL. IN*. 

.* IOBLOK *. 1 
♦.MATCH CYL. IN.*- 
*. BECBLOK .* 


*****K2********** 


GBTIOBR 


:**J3*******»*« 


***************** 


♦****J4********** 

* SAVE CYCLIC * 
♦POINTER TO NEXT* 

* BDEVBLOK IN * 

* DEVICE TYPE * 
ANCHOR 







CKCIL 




DMKPGT 


Allocate DASD/Virtual Storage (Parts 3 and 
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DMKPGT 



* 
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* BMPTYCYL < 

* DEALLOCATE « 
♦EMPTY CYLINDER < 


■ DISPLACEMENT ' 
'FOR CYLINDER TO' 
r DEALLOCATE 


■ ****D1 *********1 
' POINT TO 
' CORRECT BYTE, ' 


* TRT AGAINST 

: f !5IIII l a2° 

♦UHOSED VIRTUAL 

* PAGE 


TO FLAG 

dSS^Ibd 


****g4**** *•*•*' 

■ADD BYTE ♦ BIT ' 
'DISPLACEMENT TO 1 
GET RELATIVE ' 
PAGE NUMBER ’ 


MULTIPLY NUMBER' 
BY 4096 TO GET ’ 
■VIRTUAL ADDRESS' 


SET BIT TO 0 TO' 
DEALLOCATE TBE j 


«****F3********* 

•GIVE ADDRESS OF 

*to 1 iIt s cpeyblok 

* OR LIST 


*****G3**»*»«** 

* DECREMENT 

* CYLINDER USE 

* COUNT FOR 

* DBVICE AND 

* SYSTEM 


SET VIRTUAL 
ADDRESS INTO 
CALLER'S GPR1 


DHKPGT — Allocate DASD/Virtual Storage (Parts 7 and 8 of 8) 
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Program Interrupt Handler (Parts 1 and 2 of 4) 


DMKPRGIN 

****A2********* 

* ENTRY VIA * 

* PROGRAM * 

* INTERRUPT * 

*************** 


*• PROBLEM .* 
♦.STATE.* 


.*IS PROGRAM *. NO 

*.OLD PSW = SVC.*- 

*. HEN PSW .* 


.♦IS SVC *. 

.♦OLD PSW IN *. NO 
♦.PROBLEM STATE.*- 


PRGMODB^ 


****E2********** 

♦SAVE REGISTERS * 
* AND STATUS OF * 
♦VIRTUAL MACHINE* 
***************** 


**F2******* 

* PLACE * 

* VIRTUAL " 
MACHINE IN 

* EXECUTION * 

* WAIT * 
*********** 


.♦IS THIS*. 

.♦AN SVC—PER *. 7ES 

K. SERIAL .*- 

♦.INTERRUPT.* 


CPERROR 

*****03********** 

* HOVE GENERAL * 

* REGISTER DATA * 
->* TO 'DMKDMPGR• * 

♦FOR SYSTEM DUMP* 

* PROGRAM * 
***************** 


**E3******* 

♦SoilVffSg.** 

% * I coii R0PT ** 

*********** 


"goto 3 ] 


.J DMKDMPDK * 

* FORCE SYSTEM * 

* DUMP * 

*************** 


PRGSVCPE .*. 

G3 *. 

.*IS THE *. 

.* VIRTUAL *. NO 
->*.MACHINE USING.*- 


c 

1G255 I 


PRG255 

♦***G4********* 

* - 'SVC 0* - * 

->* ABEND CODE * 

* PRG255 * 
*************** 


v- : -J 


RECORD * 
♦INTERRUPT DATA * 
* TN ECBLOK * 


:°r*-> siti 1 

***** 03K2 

PRGSPSW V 

♦«J2******* 

* UPDATE * 

* VIRTUAL * 

* MACHINE PSW * 

* FROM PROPSW * 

*********** 


■ K2 *-> 03D4 


.♦IS THIS*. 
.* A SEGMENT 
‘. EXCEPTION 
♦.INTERRUPT. 


r' 


■ON . *-| 

IPT. * I 


LET DHKPSASV 
FILTER OUT 
•ADSTOP' AND 
•TRACE' SVC'S 


****K3********* 


*************** 


* 

♦ 

* 

* 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

♦ 

♦ 

♦ 

♦ 

* 

* 

♦ 

♦ 


***** 01K2 


PAGINTR 

****«B1********** 

*^*^*I*f *_*_*_*_* 

♦ BRING REQUIRED *<- 
♦VIRTUAL PAGE TO* 

:,ssiu;8!iss**: 


•*IS THE *. 
.* VM IN *. 
-*. EXTENDED 
*. CONTROL .* 
*.MODE .* 


.* IS THE VM *. 
-*..IH TRANSLATE . 
*. MODE .* 


.* WAS IT A *. YES 
♦.VALID VIRTUAL.* 

*. ADDRESS 


:rtual.*-, 


♦♦♦♦G2* ******** 

* GOTO DMKVATPX * 
♦PAGE EXCEPTION * 

* FOR V370R * 

*************** 


LOW .* IS IT A *. HIGH 

r *.MONITOR CALL .*—. 
•.INTERRUPT.* 1 


***************** 


, CONTROL .* 


*****04**4 

* SET INTERRUPT * 

* CODE FOR 4 

* TRANSL1 

* SPECIF-' 


PRG254 

****A5********* 

* - 'SVC 0* - * 

->* ABEND CODE * 

PRG25IT 


'4SSIS! 


.ATION 4 
XATION > 
'TION 4 


***** 01 ********** 
♦ADVANCE VIRTUAL* 
*PSW ADDRESS TO * 

* END OF * 

* INTERRUPTING * 

:**isii5gssisi**: 


*****El********** 

* SET INTERRUPT * 

* CODE FOR * 

: a exc!II!on : 

***************** 


52 **—l c 

CT ¥ 


C< 


** 02 ******* 
REMOVE * 
VIRTUAL 4 
MACHINE FROM 
EXECUTION * 
'***••*£*•*** 


o i 3 v> m 


****B2********* 

* GOTO DMKDSPCH * 
*************** 


C 


.*ll THE**. 

* VIRTUAL *. 

*? A p C r H o I b\ E em IH .**‘ 

♦.STATB.* 


*°E4%_> 

prgsiei 






****G3********* 

* GOTO DHKPRVLG * 

* PRIVILEGED * 
INSTRUCTION 


*****04********** 


♦CALL - PROCESS * 
* PROGRAM * 
♦INTERRUPT EVENT* 


**** 04 ********** 


PAGE ZERO 


.* IN PROG. 
*.^ INTERRUPT 

**N0 


>• “1 


♦****K4********** 
•STORE VMPSW AS * 

* PROG OLD PSW, * 

* STORE MONITOR * 

* CALL OR PER * 
- DATA 











***** 02K4 


***** 01K2 




.* IS VM *. 

.* RUNNING A *. 1 
’.SHARED SYSTEB.*- 


•’-J 


* IN STRUCTION < 


**D1******* 
♦MOVE FIRST * 

* HALFWORD OF * 

‘ INSTR. TO « 

* VHBLOK * 


CKPEXEC V 

**E1******* 
*BOVE SECOND* 

** H instr? D to F % 

* VHBLOK * 



**»**G1********** 

* GET REAL * 

* ADDRESS * 

♦REFERENCED VIA * 

* * 
***************** 


.♦WAS THE*. 
•♦INSTRUCTION*. YES 
*.AN ’EXECUTE’ .*- 


—>*INSTR., POT IN » 


*****jl********** 


***************** 


.♦STORAGE KEY*. ' 


-*. HATCH STORAGE. * 


I 

PRGLOOP I 

**A5******* 

* HSG= * 

♦DHKPRG453W CP* 

♦ENTERED PROGRAH* 
* INTERRUPT * 

* LOOP * 


**B3******* 
*SET PSN KEY* 

* = REAL KEY, * 


VIRTUAL *. NO 


♦ DHK^CI 


****C3**< 

•RELOAD G-REGS, * 

* DISPATCH VIA * 

* LPS8 * 

*************** 


***************** 


* CALL - POT VH * 

* IN CONSOLE * 

* FUNCTION HODE * 
***************** 


.♦WAS IT ONLY*. NO 
*. A PROGRAH 


1 


* RESTORE * 
—>*PROPS» ADDRESS * 
♦FOR INTERRUPT* 


VS* 


* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

♦ 


DMKPRG — Program Interrupt Handler (Parts 3 and 4 of 4) 


♦.IHTBRBUPT** 




.♦IS THE 
,* VH IN 
EXTENDED 
*. CONTROL 
*.HODE 


s-* : n 


*****B1*> . 

* STORE HONITOR * 

* CALL DATA IN * 
♦FIXED LOCATIONS* 

* OF VIRTUAL * 

* STORAGE * 
***************** 


.* IS THE VH *. HO 
►.IN TRANSLATE . *- 
*. HODE 


>LATE^.*-1 


PRG05 V 

*****C1********** 

* HOVE NEH PSN * 

* FROH VIRTUAL * 

* STORAGE TO * 
♦VHBLOK - VHPSN * 


****C2********* 

* GOTO DHKVATSX * 

* SEGHENT ERROR * 

* FOR V370R * 


*************** 


*****B3********** 

•RECORD PROGRAH * 

♦ EVENT RECORDING* 
♦INTERRUPT DATA * 

* IN ECBLOK * 
***************** 


♦****C3********** 
♦REHOVE PER F— ~ 
-- T NTERRC 


•EXTERNAL ENTRY * 
- TO SIHOLATE - 
PROG INTRPT 


DHKPRGRF 

****A5********* 

* ENTRY VIA * 

* 'GOTO * FROH * 

* DHKPSASV * 

*************** 


*****05********** 

* SAVE IN * 

* REGISTERS THE * 

* OLD PSN, ILC, * 
♦AND INTRPT CODE* 


*****C5********** 

** - ’TRANS' - ** 
** FOR VIRTUAL ** 
** PAGE ZERO ** 


****D3********* 
*R9 RETURN NITH * 
♦CONDITION CODE * 
* SET * 

*************** 


****E1**< 

* GOTO DHKDSPB * 
♦’NEW PSN* ENTRY* 

* * 
*************** 
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DMKPRV — Simulate Virtual Machine Privileged 


♦♦♦*A2********* 

* ENTRY VIA * 

* 'GOTO* FROM * 

DHKPRGIH 


*****B2********** 
♦COMPOTE VIRTOAL* 

* ADDRESS OF * 

* INTERROPTING * 

* IHSTROCTIOH * 
***************** 


GBTHALF T 

*****C2********** 

* HOVE * 

* IHSTROCTION * 

* FROH VIRTOAL * 

* STORAGE TO * 
♦VHBLOK - VHIHST* 


*. icH .** 
*• •* 
♦YES 


♦ BAI (B4) CALL 

* DBKTBCPV 

****************9 


****B2********* 

* GOTO DHKVIOEX * 
**♦♦♦**♦♦****** 


***** E 3********** 

S33ui*-*-*-*j 

♦BAL (R4) CHECK * 
♦WHETHER TO CALL* 

;***S2!I5S5S*.**: 


OFFTRAKH . 


Instruction 

♦ 

♦ 

♦ 

♦ 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

♦ 

* 

♦ 

* 

♦ 

♦ 

* 


(Parts 1 and 2 of 10) 


OFFTHAKL^.*. 


*:|wsS||ct|ohs* ; 


j ROHE->06 J2 

STNM->07A2 

STOH->07A2 

i 

STCL->09" ' 

B2XX->09 


.* IS IT *. 

LOW .*AN EXECOTE *. YES 
r *.IHSTROCTIOI - 

i*** *•*. .*•* 

♦HIGH 


PREXEC^ 


*02 


* A1* 



♦COMPOTE ADDRESS* 
->*OF IHSTROCTIOH * 
♦TO BE EXECOIED * 
***************** 


*****G4*********i 

* HODIFY BYTE 1 

* OF EXECOTED 

* IHSTROCTIOH 

► HITH REGISTER 
" "■"A 


***«*H4********** 

: Ialf^PhIh : 

•IHSTROCTIOH IH * 
♦VHIHST FIELD OF* 
VHBLOK 


♦HAHDLE VIRTOAL * 
♦ DIAGHOSE ♦ 
*************** 


* 

* 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 

♦ 

♦ 

* 

♦ 


***** 01F3 


PRSKEY 

♦regspbI 


*»***A3*“ 
* «OR< I 


► GET REGISTER 


***************** 


.♦IS ADDRESS *. 1 
*. CORRECTLY .*- 
*. ALIGNED .* 


*OR< KEY FROH * 

* SWAP TABLE HITH* 

* REAL KEY AND * 

* BETORH RESOLT * 

* IH REGISTER * 
. ***************** 


*02 * 08B1 

*• B2 *-, 08B3 

1 10B1 




SPECEXCP V 

*****B2********** 
* SET PROGRAM * 
♦IHTBRROPT CODE * 


***************** 


♦PROTECTION 
***************** 


♦TEST FOR ‘PER 1 

* EVENT TO BE 

♦ RECORDED 
****************! 


* 

D1 *. 

.* IS VM *. 

♦ 

♦.CONTROL MODE .« 

* 

*YES N 

* 

* 

V 

****»E1*•♦•*•*•* 

* 

* ALLOW OSE OF 

;cIL p IITi!s a "i§ 

* 

**************** 

* 

* 0 F1**->j 10K2 

* 

**** v 

SHLLLKT F1 -*^ 

* 

.♦IS VIRTOAL**. 

,->*.ADDRESS VALID .* 

♦ 



n 


06A5 


CHKFAST 

♦♦B4******* 

** ?I h r?o ? !l *. 

->* MACHINE FROM 

* EXECOTIOH < 
************* 


EfiBE 2i c J E3 *L****** 

* GOTO DMKPRGSM * 
—>♦* INTERRUPT 0 ** * 
| *************** 

* * 

* E3 * 


♦fpOSSIBL 


g BSBe 


I***************' 


****T4 ********* 

* GOTO DMKDSPA * 

* FAST REFLECT * 
*************** 


**»**G1 *********’ 

* COMPOTE SHAP 

• TABLE ENTRY 

♦ ADDRESS FOR 

♦ REFERENCED PAGE' 


.♦IS VIRTOAL *. 
-♦.PAGE IH REAL .* 
*. STORAGE .* 


*****jl********** 

* GBT BEAL * 

♦STORAGE KEY FOR* 

* ADDRESSED * 

* HALF-PAGE * 

***************** 


.♦•**fHl!if-*. YES 
♦.STORAGE KEY* *-j 




f 


A 
















***** 62 ********** 
*COHPtJTE INDICES* 
* INTO ' 7NGPBS * * 



♦♦♦*C2********* 

* BETDHN - R9 * 





* 

| DMKPRV — Simulate Virtual Machine Privileged Instruction (Parts 3 and 4 of 10) 
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| DMKPRV — Simulate Virtual Machine Privileged 


DETECTION 


r* : - 


► IS THE VH 1 




* IS THIS *. 

EVENT CLASS . 
*. ENABLED .* 


r' 


.♦EVENT CLASS*. 

. = STORAGE .*< 

*. ALTER .* 


.* SPECIFIED * 


*. ST0RAG1 


!”.*•*—I [—*-* R ? G I S i? E s R et HA ^-* 
.* V V *. ONE .* 

“** **** *. .* . 

* * *YES 

5 * H3 ***** j 


YES .*IS ADDRESS 

-*. BELOW LOW 

*. LIHIT 


.♦IS ADDRESS 1 
ABOVE HIGH 
*. LIHIT .< 


f LIHIT *.*' J 
■*YES * * 


YES .*IS APFECTED*. 

* ADDRESS BELOW. *< 
♦.TOP LIHIT.* 


r 


.*COHPARE*. 
.* AFFECTED * 
-. ADDRESS to 
♦ .LOW LIHIT.* 


.*DID END OF *. YES 

•.STORAGE FIELD.*- 

*.HIT RANGE.* 


—>*. EVENT ALREADY.*- 


PERDON1 

**F4******* 

* RECORD * 
♦EVENT ADDRESS* 
>*AND CLASS CODE * 
* IN ECBLOK * 


**G3******* 

* ADD THIS * 

* EVENT CLASS * 
• TO INTERRUPT 

* CLASS CODE * 


*********** 


c 


******* 
>* RETURN - R9 * 


Instruction 

* 

* 

***% * 

:** r *~i * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
♦ 
* 
* 
* 
♦ 
♦ 
* 
* 
* 
* 
* 
♦ 


(Parts 5 and 6 of 10) 


GETADDR 

****A1********* 

* COHPDTE AND * 
♦TRANSLATE DATA * 

* ADDRESSES 


♦COHPDTE VIRTUAL* 

* ADDRESS * 

* SPECIFIED * 
***************** 


♦****C1********** 


INSTADR 

****A2********* 
♦COHPDTE VIRTUAL* 

* ADDRESS FROH * 

* INSTRUCTION * 


*DISPLACEHENT TO* 
* VALUE IN BASE * 


TRANSLATE 


♦***D1*** 

* RETURN - R9 


*****D2********** 

* ADD INDEX * 
♦REGISTER VALUE * 

* TO VIRTUAL * 

* ADDRESS * 


****E2********* 

* RETURN - R8 * 
*************** 


n s 


SET PROGRAH 
INTERRUPT CODE < 
FOR OPERATION. < 
EXCEPTION * 


***** 07F2 
*06 * 07F4 
* A5* 08D1 


♦VIRTUAL ADDRESS* 
*TO REAL ADDRESS* 
*************** 


.*IS THE *. 


VIRTUAL 
*. TRANSLATE. * 
*.HODE .* 


CALLVAT 

*****C4********** 

* TRY HARWARE * 

* TRANSLATE VIA *0.K. 
->*«LRA' ON SHADOW*— 

* TABLES 


n 


■ □* 

^ es HU 


*****Q4*4 
♦DHK VAT RN f # * 

*~ CALL’”DHKVATRN* 
*TO TRANSLATE TO* 
* REAL ADDRESS * 
***************** 


. ..-•WrIhI*-*. 

-*. PAGE IN REAL .* 
*. STORAGE .* 


* VIRTUAL PAGE * 
***************** 


♦****F4********** 

*BACK UP VIRTUAL* 
*PSW TO START OF* 
* INSTRUCTION * 
♦BEING SIHULATED* 


£ 


****53********* 

* * 

* RETURN - R8 * 

* * 
*************** 


rr 


♦INTERRUPT CODE * 











01G3 


01F1 


01G3 


* G5 *-, 09F1 

J!**** 0901 

PSHCHK V 


»!oNLY CHANGED^ * -1 


VIRTUAL C-REG>-1 

‘♦YES *06 * 

I vrL 


*TEST FOR 'PER' 

* EVENT TO BE 

* RECORDED 


DMKPRV — Simulate Virtual Machine Privileged Instruction (Parts 7 and 8 of 10) 
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| DMKPRV — Simulate Virtual Machine Privileged Instruction 

* 


%4 5. 


•*A1******* 

* SET * 

( "SWITCH" = * 

& (LCTLVAT) - 
* HOST CALL * 

%SSSX5SSS*** 


*_*_*_*_*_*_*_*_* 

* COHPOTE * 

* HEGISTEE * 


toiDcB ii B2 ******* 

* * 
* SET STATUS < 


K COHPOTE REAL 
> AND VIRTUAL 
ADDRESSES 


•VHINVSEG' * 


*********** 





* STORE NEW * 
♦C-REG VALOB IN * 

* ECBIOK * 


.♦echode’*. 

.* OPTION *. : 

*-*^§;i D vi o s-*- 


*REGISTER VALUES* 
—>*FROH ECBLOK TO * 
♦VIRTUAL STORAGE* 


09 * 

; El *-2 


LOADEND2 .*. 

El *. 

.♦HAVE WE*. 
.♦LOADED THE *. NO 
*. LAST C-BEG .*- 


♦FES 

FI * ’*. 

.* GOTO *. 

^-* I • VPSHCHK* 1 ! ' OR] 

1 *. 1 LCTLVAT'.* 


L °A****i 


*B2*********’ 
* ADVANCE 

***************** 

L>ios 


***** 
* G5* 


‘I 


.♦WAS CONTROL*. HO 

• .REGISTER ZERO.*-, 

♦.SPECIFIED.* I 

'*. .*' •***♦ 

*v*c *06 * 

* A5* 


***************** 
1—>*06** 


, 'PEB^I*-1 


***************** 


*»***G1********** 

♦DHKVATAB ^ ^ ^ * 

♦CALL - PERFORH * 

* SHADOW TABLE * 

* CLEAN OP * 
***************** 


* IS FAST *. 

REFLECT 
'.POSSIBLE .* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


(Farts 9 and 10 of 10) 


VS* 


PSTIDP V 

*****A1********** 
•GETADDR 


PSTIDC V 

*****A2********** 
•IHSTADR 


► COHPOTE BEAL 


.♦IS THE *. 

,* ADDRESS *. HO 

DOOBLB WORD .*-, 

*. ALIGNED .* 


♦♦B2******* 

• SET VIRTOAL * 

• PSH CONDITION * 

• CODE ZERO * 


*****A5********** 


***************** 


♦•CALL* DHKVATAB* 

* TO CLEAN OP * 

* SHADOW TABLES * 
***************** 

L>**6** 

* A5 * 


*_*_*_*_*_*_*_*—*ERB 
* CHECK STORAGE *— 
♦PROTECTION KEFS* 
********************** 


n 


C2 *. 

,♦ DOES *. 
SPECIFIED < 
VIRTOAL 
. CHANNEL .' 
♦.EXIST.* 

* *TES 


******** 
*STORE CPOID IN * 
- VIRTOAL * 

?F000? E f O A CPO S 

* MODEL NUMBER * 
***************** 


—>*CODE FLAG - C 


*********** 


r^*** 

3 *iS£2** 


.♦is VH OSING*. 
•.VIRTOAL 1 PER* .’ 


***4*F1*********> 

♦PERCHEK^ 

*test~for -, pbI' 

* EVENT TO BE 


H 

9 ? 


**E2******* 
♦SET CHANNEL* 

* TFPE BITS, * 

• IOEL = ZERO, * 


♦♦G2******* 

* STORE * 

► CHANNEL 1 
IDENTIFIER IN 

► VIRTOAL < 

* STORAGE * 
*********** 


i—>*06 1 


■T 


s F2 i_> 

**♦* i 

PSETIDC V 

***** 22 ********** 
♦TRANS21 * 

* GET VIRTOAL * 

* PAGE ZERO IN * 

* CORE * 

***************** 


* GET V] 

* PAGE Z 

***.***$5 

BFtt ! 

IS******* 

**F3* 

'***«* 


► HOVE CSL 
♦STATUS BYTES ♦ 
♦TO VIRTOAL CSW * 
* FIELD * 
*********** 


♦♦G3******* 

* SETUP FOR * 
♦VIRTOAL COND « 
* CODE = REAL 
* COND CODE * 


**G4***♦*♦* 

* * 
♦SET PSW COND * 
—>*CODB EC-HODE OH 
* BC-HODE * 
*********** 

L>*o!** 


*****J2********** 

♦IHSTADR*^* 

♦cohpotI VIHT0AL* 


'T 


****J3********* 

* GOTO DMKTMRTN * 
♦SIMULATE TIMER ♦ 

♦ INSTRUCTIONS - 


*****K2********** 


***************** 


/* * 






















05A2 






DMKPSASV 

♦♦♦♦A2+******** 

* ENTER VIS SVC * 

* INTERRUPT * 


—>*VIBTDAL ADSTOP * 
*************** 


PROBLEM " stateI 


TRACER ♦ 

.♦DECODE**. 
.* INTERNAL * 
*. SYSTEM SVC 
*. CODE .* 


•♦.ADSTOP SVC - 


| 000 ->04A5 

004 ->04A5 

-->05At 

->05A4 

->05&5 

—>05G3 


]l 6 o :::: 


RBFSVCB V 

*****£2********** 
♦SAVE REGISTERS * 

* AND TIBER * 

♦ STATUS OP *<- 

♦VIRTUAL MACHINE* 
***************** 


.* IS VM *. 

IBS .*IH EXTENDED*. 
-*.CONTROL MODE .* 


NO ,*IS VIRTUAL *. 

-*.PAGE ZERO IN .* 

*. CORE .* 


*****C5********** 
* * 

* SAVE GENERAL * 

* REGISTERS IN * 
♦VHBLOK - VRGPRS* 


*****D5********** 


***************** 


.* NAS SVC *. 
.^INSERTED BY^.* 


Horace 


pi********** 


?n t IIS£St 6 * 


.**************** 


♦DMKTRCSV 
-»_*_*_*_*-< 

* CALL - IHVOKE < 
TRACE 
SUPERVISOR 


CODE PROM ". *-, 

♦.DMKTRCSV^.* | 


****j1********* 

* GOTO DHKDSPCB * 
*************** 


•♦♦♦♦G2*********’ 

:xecution E wait ’ 

:***************] 


♦***H2********* 

* GOTO DMKPBGHF * 
*************** 


♦****p3********** 

* STORE VIRTUAL * 

* SVC OLD PSB * * 


***************** 


**IS BEN *. 

.:* p s s ?aII 


♦♦♦♦♦H3********** 

♦ CONSTRUCT * 

♦ DISPATCH PSR ♦ 

* PROM VIRTUAL ♦ 

* PSR » 

***************** 


****J3********* 

♦LPSR - DISPATCH* 
*************** 


BEF |J***G4********** 
♦SAVE REGISTERS * 

—>: i?g T si H §P : 

♦VIRTUAL MACHINE* 
***************** 


**** 04 ********* 

♦ GOTO DMKDSPB * 
*************** 


| DMKPSA — SVC and External Interrupt Handler (Parts 1 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

and 


***** oIBS 


****•&i********** 

* SAVE VM TIMER ♦ 

* STATUS AND ♦ 
♦FLOATING POINT ♦ 


♦ UPDATE * 
♦VHBLOK VHPSH * 

* PROM SVC OLD 
♦ PSW, SET * 

♦ VMEXWAIT * 
*********** 


♦VIRTUAL STORAGES 


***************** 


***** 01 ********** 
♦DHKPB ET^ » 

♦ CALL DMKPRET '♦ 


♦ CALL DHKFREE * 

♦ THREE DBL-NDS ♦ 
♦FOR HSG BUFFER * 


***************** 


*****pi********** 

♦DMKCVTBH * 

*—*—*—*—•_*_*—*—* 

* CALL DMKCVTBH ♦ 
♦CONVEBT ADDRESS^ 

♦ TO EBCDIC ♦ 
***************** 


**G1******* 


*****HI********** 
♦DHKgCSWT * 

*~call dmkqcnnt - * 

* TYPE ADSTOP ♦ 

♦ MESSAGE * 
***************** 


jstISctions*:*] 


♦ call - set ♦— 

♦ INSTRUCTION ♦ 

♦ TRACING ♦ 
***************** 


SVCACOH 

♦♦A2******* 

♦ REMOVE ♦ 

♦ VIRTUAL * 
->♦ MACHINE FHOH 

* EXECUTION * 

♦ WAIT * 


♦CONS FUNC HODE * 
***************** 


************* 


****C2*^**»**^* 

♦ GOTO DMKDSPCH ♦ 

*************** 


***************** 


i*C3********** 


► SVC FROM 
VITHIN 
'. 'DMKFBE' . 


►***C4**»****» 
- 'SVC O' - 
ABEND CODE 
PSA01 




**************** 


C5**♦*♦*♦♦♦* 

'CLEAR NEW SAVE * 
AREA TO ZEROES * 


*****03********** 
♦ MOVE REGISTER * 


***************** 


♦♦♦*E3********* 

s f8l?E D i^?E p g K : 

* DOMP * 

*************** 
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DMKPSA — SVC and External Interrupt Handler (Parts 3 


*****Q1********** 


DMKPSAID 

****^2********* 
♦DMKPSAID * GET * 
♦EFFEC ADDS FOR * 
* AMY INST * 
*************** 


PSAHVCL „ 

*****45********** 

,->*GET VALUE IH Rl* 

***************** 


♦• INSTRUCTION . ♦- 


**************** 


***************** 


*****£ 1 ********** 
* * 
* GET BASE * 

♦REGISTER VALUE * 


, INSTRUCTION , 


DMKPSARS 

****D2********* 

♦DMKPSARS - GET * 

* EFFF ADDR FOR * 

♦ RS INST * 
*************** 


DMKPSARR 

****B3********* 

♦DMKPSARR - GET * 

->»EFF ADDR FOR RR* 

♦ INST * 

*************** 


*****C3********** 


***************** 


***** E 2*** 

—♦SET ZERO INDEX ♦ 
* ♦ 

♦ ♦ 

***************** 


?A *****pi********** 

***************** 


****G!♦♦♦*♦♦♦♦♦ 
♦EXIT TO CALLER ♦ 
*************** 


R2*0 
* ♦YES 


****P3********* 

♦EXIT TO CALLER ♦ 
*************** 


*****E4********** 

->: GET 24 BITS® - % 
* * 
***************** 


****p4*a 

♦EXIT TO CALLER ♦ 
*************** 


and 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 
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DMKPSAEX 

**** 41 ********* 

* ENTRY VIA * 

* EXTERNAL * 

INTERRUPT 


fl 


EXTBVTTN 

****43********* 

♦ * RED BUTTON* ♦ 

* EXTERNAL * 
INTERRUPT 


*****3i********** 

* SAVE TIMER ♦ 
♦STATUS, LOCATE ♦ 
♦RUNNING VMBLOK ♦ 


*****D1*K 

:2ft3V2SU!ti s 

♦POINT REGISTERS* 
* IH VMBLOK * 
***************** 


**E1******* 

* UPDATE * 
*VMBLOK VMPSW * 
* FROM EXTERNAL * 
* OLD PSN * 


.♦IS THE *. 

' SYSTEM * 
OPERATOR 
LOGGED ON.* 


► OPERATOR 
ALREADY 
DISCON'D . 


*****D3********** 
♦DHKSCNRD * 

*CALL _ - - COMPUTE~* 
♦REAL ADDRESS OF* 
* TERMINAL * 
***************** 


.* WAS VM *. YES 

,->*. RUNNING AT .*-, 

1 *.INTERRUPT.* 1 


****B4********* 

* RETURN - LPSW * 


EXTNOUSR .*. 


,-*. EXTERNAL . 1 

1 *.INTERRUPT.* 


k***F2********* 
TIME OF DAY * 
CLOCK * 
COMPARATOR * 


♦****G2********** 
♦UNCHAIN ACTIVE * 
* TIMER REQUEST * 


**E3******* 

* HARK SYSTEM * 
* OPERATOR < 
♦DISCONNECTED^* 
*********** 


***F3*********** 


IN VMBLOK * 
*********** 


****H1********* 

* GOTO DMKDSPCH * 
*************** 


► CALL - STACK * 

► REQUEST BLOCK * 

► FOR DMKDSPCH * 


**J2******* 

* SET CLOCK * 
-♦COMPARATOR FROM* 
*NEXT TRQBLOK * 


► IS THIS A * 




INTERRUPT 


BUTTONS 
****»K. 

♦DMKgCNCL * * * 

*~~CALL - FLUSH " 

* OUTSTANDING 

* MESSAGES 


*****A5********** 

* PICK UP ABEND * 

* CODE FROM SVC * 


***************** 











DMKPSA - 



***** 01C2 


♦.AVAILABLE,* 


* SET RETOBN * 
—>*POH 'SVCPB' TO * 

* 'SVCLIHKC * * 


SVCLINKC 

♦****B1********** 
♦TAKE SAVE AHEA * 
♦OFF CHAIN, FILL* 


in callIb's. 

B12, B13, 
rbtd&n ad6b 


*.'- ROUTINE .* 


****D1********* 

* * 
* CALL VIA B12 * 

*************** 


** BBIHG AHD ** 
—>**LOCK PAGEABLE** 
** ROUTINE ** 
***************** 


*. PAGING I'/O 


**A4******* 

♦STOBE BETOBB * 
♦ADDRESS IH SVC 1 
* OLD PSH * 


.♦HAS CALLEE * 
A PAGEABLE 
*. BODTINE .* 


ABEHD3 

****B3********* 

* - 'SVC O' - * 

->* ABEND CODE * 

PSA03 


SVCBETJ V 

****»D4********* 

* PUT SAVE AREA 
♦BACK OH CHAIN, 

* LOAD CALLER'S 

* BEGISTEBS 


****E2**’< 

* CALL VIA B12 


****A5********** 

POT SAVE AREA * 
BACK ON CHAIN * 


*****C4********** 
♦DMKPTRUL * 

*~CALL DHKPTBDL - * 

* UNLOCK BEAL * 

* STORAGE PAGE * 


■ CALL DHKPTROL ' 
' UNLOCK BEAL * 
' STORAGE PAGE 




*****05********** 

♦RESTORE GENERAL* 
♦REGISTERS FBOH * 
* 'SVCBEGS' * 


***************** 


* RETURN - LPSH * 
*************** 


**** E 5********* 

* BETORN - LPSH * 


:*'T 


. SAVE AREAS 


* ALLOCATE SAVE * 
*AREA FROH FREE * 

* STORAGE * 
***************** 


* MOVE CALLER'S 
■ R12, R13 INTO 


♦ 

****K3********* 

* RETOBN - LPSH * 
*************** 


- SVC and External Interrupt Handler (Part 5 cf 5) 


Program Organization 339 






IBM VM/370: Control Program Logic 340 



r\ 























01C3 


01F4 


01F3 


* PLACE USER IB * 

* PAGE WAIT, * 
♦INCREHENT WAIT « 

* COUNT * 


*THANUETN , 

* TO TRANSIT 

* QUEUE 
|t*****S*******4 


TAKE OUT OF 

oIIb6ead T 


* ALTER EXIT * 

* ADDRESS IN ■* 
•SAVEARBA TO GO * 

* TO DHKDSPCB * 


STAKIT 

♦****J2***< 

♦DHKSTKCP 


1 NO .* THIS TASK *. YES 

L-*. EHQOED FOB .*- 

*.OUB PAGE .* 


TAKE OUT OF 
WAIT, ACCUH. 
OVERHEAD 


DMKPTR — Real Storage Page Manager (Parts 3 and 4 of 
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DMKPIR — Real Storage Page Manager (Parts 5 and 6 cf 


GETVRADD 

**** 22 ********* 

♦ GETVRADD * 

* SUBROUTINE * 

*************** 


****23********* 

* CKTIME * 


HERE VIA GOTO 


► TRANSIT. SAVE * 


BESET TRABSIT * 
FLAG FOR V=R * 
PAGB * 


.♦REFERENCING*. HO 

*. SISTEH VH .*- 

*. SPACE .* 


****Q3*: 

* B3 RETURN 


*****B4********** 
*TIHE STAMP AND * 
♦COHPUTB ELAPSED* 
—>* TIME IH PAGB * 
* BAIT * 

***************** 


♦****C4********** 

* MULTIPLY * 
*ELAPSED TIME BY* 

* BBSIDEHT PAGE * 

* COUNT * 


L>Jo4 N 


*#***D4********** 
* ACCUMULATE * 
♦PAGE-WAIT PAGES* 
♦IN PGWAITPG IN * 


*****34********** 


***************** 


****p4********* 

* * 

* R3 RETURN * 

* * 
*************** 


13) 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


JMKPTRPR 

****A1********* 

♦ 0MKPTHPR ♦ 


‘*1 


*****24********** 


* FOB CPEXBLOKS * 
***************** 


► ENTRY AS PAGE < 
" OF "FREE" 1 

► STORAGE 1 


CALLED FROM 
OUTSIDE DMKPTR 
TO OBTAIN A 
PAGE FRAME 


♦ANT FREE OR*. 

SNAPPING .* 
*. PAGES .* 


*****B5*** 

♦ DH K FRBTB ^ ^ * 

♦"call to~mIrge~* 

♦PAGE FRAME INTO* 
* FREE STORAGE - 


*. DMKFREE TO 


.* CALLED TO . 
*. EXTEND FREE . 
*. STORAGE * 


***************** 


-l 


_.OCK 

*. ALREADY SET . 


'"1 


*****£2**4 

♦RETDBN ADDRESS « 

* OF CORTABLE * 
♦ENTRY FOR FRAME*— 

* TO CALLER * 


^lliO********* 

♦SELECT 


* CALL TO GET A * 


♦CALL TO REPLACE* 
* FREE STORAGE * 
♦RETURNED ABOVE * 


*****05********** 


SET RETURN 
ADDRESS TO 
DMKPTRFE 


****£-)********* 

» SVC 0 - ABEND * 
* CODE PTR0G6 * 
*************** 


***************** 


****F3********* 

* EXIT * 


***»*E4**4 
♦DMKSTKCP * 

*_*_*_* _*_*_*_*_* 
—♦ CALL TO STACK * 

♦ FOB RESTART ♦ 

* * 
***************** 



V J 













ENTERED VIA 
GOTO IP & PAGE 
HOST BE SWAPPED 
TO EXTEND 


*****Cl********** 
f GET COHTABLE 


***************** 


***** 02 ********** 


ON EITHER 


****E1********* 

* SVC 0 - ABEND * 

* CODE PTR007 * 


*****E2********** 

* addresI X from * 

* PTRFDISP * _ 
***************** 


***** 43 ********** 

* POT KEYS FROM * 
—>*PAGE FRAHE INTO* 
♦SWPTABLE ENTRY * 
***************** 


* FROH THE LIST * 

* * 
***************** 


*****D3********** 

* DECREMENT * 

* RESERVED PAGE * 
♦COONT, ADD 1 TO* 
♦AVAILABLE PAGE * 

COONT 


* ♦♦♦♦E3*’ 

* GET VMBLOK OF 

* PAGE'S OWNER, 

* DECREMENT 

* RESIDENT PAGE 

* COONT 
****************> 


* RESIDENT, * 
*OPDATE LOCATION* 

* 80 TIMER * 
***************** 


*****G3********** 

•INVALIDATE PAGE* 
♦TABLE ENTRY AND* 
* SHADOW TABLES * 
***************** 


♦.FRAME CHANGED.' 


* IB f*** 

l—>*09 ' 


n 


*****34********** 


*****04********** 

♦GET SOM OF FREE* 
♦PAGES + PENDING* 
* SWAPOUTS * 
********* 


SELEXIT 

♦***E 


'.ON FLOSH LIST.* 


OSERPAGE 

**E5******* 

* SET OP * 

* INITIAL ' 

->* SWITCHES AND 

* COONTERS ' 


i 

****»G4********** 

* COONT FLOSHED * 
♦PAGES. SET REGS* 

* TO TAKE 1ST * 

* PAGE * 

* * 
***************** 


SETg*^ 


* POINT TO 1ST * 

* ENTRY ON OSER * 

* PAGE LIST * 
***************** 


*—>*08 1 


DMKPTR — Real Storage Page Manager (Parts 7 and 8 of 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

★ 

* 

* 

13) 


t»A1**»******* 
' ADDRESS OF * 


-♦.RESERVED PAGE.*<-1 


***** 31 ********** 

* GET REAL * 
♦ADDRESS OF 1ST * 
♦AND 2ND HALF OF* 
♦REAL PAGE FRAME* 


YES .* STEALING *. 

-*.FOR RESERVED .* 

*. OSER .* 


*****d********** 
♦RESET REFERENCE* 


**************** 


.♦TAKING PAGE*. YES 




.♦BACKUP REF ' 


COONT 
***************** 

L>Jo7% 


* RESET BACKUP * 

* FLAGS IN * 
♦SWPTABLE ENTRY ♦ 


***************** 


***************** 


*****J 1********** 
* * 

* INCREMENT * 
♦REFERENCED PAGE* 

* COONT * 


* 07G5 
TESTPAGE 


r‘ : < 


***************** 


*.THROUGH LIST 


"i 


♦SET EXIT REG TO' 
♦STEAL RESERVED ' 
♦ PAGES ' 


^♦♦♦E4********** 


:**************** 


"..-•'“I 


♦YES *C 
I—>*07** ' 

* E5 * 
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DMKPTR — Real Storage Page Manager (Parts 9 and 10 of 


TESTRCMP 

A" 

YES .**DA£ 




*****31********** 

* POINT TO * 

* RDEVBLOK FOR * 

* PAGING DEVICE * 

* ON WHICH PAGE * 

* RESIDES * 


SETADDR 

*****j3*»t„TT..T 

* POT DASD * 

* ADDRESS IN * 

-*SWPTABLE ENTRY,* 

* RESET RECMP * 

* FLAG * 

***************** 


*. HEAD DEVICE .*- 


*CALL TO RELEASE* 

* OLD DASD PAGE * 

* SLOT 


GETPAG V 

****»E1********** 
♦DMKPGTPG * 




***************** 


**32******* 
♦SET RETORN * 

* ADDRESS TO * 
♦DMKPTRFD, SAVE ♦ 


* ANY DASD 
SLOTS 

♦.AVAILABLE 


Ile.*- } 


*********** 


■ CALL TO * 

■ SCHEDOLE PAGE * 
WRITE 


•REWRITE^ ^ ^ 

*~RE-QUEUE FC 
* OOTPOT 


* RE-START 
f CHARGING 
► CALLING OSER 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

% 

* 

* 

* 


♦DECREHENT, SAVE* 

♦ AND TEST FREE * 

* PAGE COUNT * 


CALL TO GET l 


:**************** 


*****32********* 
♦CLEAR THE REAL 

* ADDRESS INDEX 

* AND FLAG IT 
» REFERENCED 


♦♦♦♦F2 ********* 
♦ R3 RETURN 
*************** 


.* CALLED TO *. 1 
. EXTEND FREE .*■ 
*. STORAGE .* 


♦ FLAG SWPTABLE * 
•* ENTRY QUEUED 1 
♦FOR ALLOCATION » 


L>.***\ 


QREQUEST l 
♦****A3****< 


♦REMOVE CORTABLE* 
—>*ENTRY FROM FREE* 
♦ PAGE LIST * 
***************** 


♦ PAGETABLE ENTRY' 


♦REPLENISH FREE * 
* PAGE LIST * 


■ GOTO DMKDSPCH * 


FREE PAGE LIST 
REPLENISHMENT 


» GET NUMBER OF < 
» USERS IN Q1 + i 
«Q2 + 1 AS FREE < 
I LIST LIMIT 1 


■ SAVE PREVIOUS < 


ic 344 

















DHKPTHFD^^^^ 
* DHKPTHFD 


ENTERED VIA 
GOTO AFTER PAGE 
HRITE COMPLETE 


DECREMENT 


.*10 COMPLETE*. YES 


DOFRET 

*****D2*»***< 

*DMKPTRFT 


♦***E3********* 

* R14 RETURN * 


DMKPTRFT 

♦♦♦♦A4******< 

* DMKPTRFT 


PAGE COUNT 


♦♦♦♦♦C3********** 
♦CHAIN CORTABLE * 
♦ENTRY TO FLUSH < 
♦LIST, VALIDATE * 


RE-COMPUTE FLAG* 
IN SHPTABLE * 
ENTRY * 


.♦ANY DEFERED*. 

FREE PAGE . 
♦.REQUESTS .* 


* ♦♦♦♦Ell********* 

* REMOVE 

* ALLOCATION 

* ENQUEUE FLAG 

* FROM SHPTABLE 

* ENTRY 


♦SAVE ADDRESS 01 
♦CORTABLE ENTRY 
* IN CPEXBLOK 

***************4 


* CLEAR PAGE > 
♦FRAME INDEX TO * 

* ZERO ’ 


MAKE NEXT 


■ FLAG CORTABLE « 

■ ENTRY AS FREE * 

■ LIST MEMBER * 


DMKPTR — Real Storage Page Manager (Parts 11 and 12 of 


r—>* CALL TO STACK * 


DMKPTRUL^^^^ 
* DMKPTRUL 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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* INDEX TO * 

* CORRECT A 
♦CORTABLE ENTRY * 
♦VIA PAGE FRAME * 

* NUMBER * 


►***E2********* 
SVC 0 ABEND 


J3‘ •*. *****E4*****< 

:k count'*, no * 

< 0 .♦->*save lock count; 


►♦F3********‘ 
SVC 0 ABEND 


YES .*L0CK COUNT » 


*****G4********** 

* RESET LOCK 

* FLAG, CHAIN - 
‘ENTRY TO TOP 0F< 

* USER LIST 
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********* 

* DHKQCNRD * 
*************** 


*****B2********** 
* CLEAR INPUT * 


LOGOUT USER 


Sili 1 

883 

FNOTE 


♦FORMAT CPEXBLOK* 

♦ WITH ENTRY ♦ 

♦ REGISTERS ♦ 

************111**** 


, DEVICE TYPE . 



****A3********* 

* DHKQCNRT ♦ 
*************** 


.♦EITHER *. 

5 .*BITE CODHT *. 
-♦.=0 OR PARM = .* 
*. HOADTO .♦ 


'****£3********** 

DECREMENT ♦ 
■BYTE-COUNT FOR ♦ 
TRAILING BLANKS* 
(IF ANY) ♦ 


*****g3********** 

* SET GPR11 TO * 

* OPERATOR'S ♦ 

* VMBLOK ♦ 


TO D1 
04E1 
04 4 
04 3 
04 4 
0402 


CODE->05A5 

TEXT->06A1 

BOTH—->02A3 
NONE->02G2 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 


* A3* 05A‘ 
* * 06B1 


*.DISCONNECTED 


'"I 


****&5********* 

* IHITCON * 


.» TERMINAL *. YES 

*. RDEVBLOK PTE .*-, 

♦.* : EQ. 0^.* J 


> GET CONTSASK 


NO .* USER .BQ. 
*. SYSTEM 
♦.OPERATOR . 


C—*. NOTIME 


'♦♦♦C5********** 

CLEAR CONTASK * 
TO BINARY ZEROS* 

‘**************** 


♦♦**D5****»**** 

* R9 RETURN * 
*************** 


NRTIHE .*. 

*F2 *. 

.♦TIME STAMP'i 


r"*> 


■o 


r • 


DFRET .♦<-* 

*♦. .*’ ***i 


************** 


♦DHRgCJHT ^ * * 

♦CALL TO OUTPUT ♦ 

* SHORTER LINE ♦ 

♦ RECURSIVE!* * 
"-^^^^ ******* 


► UPDATE COUNT 
I s AND DATA 
* ADDRESS 


DMKQCN — Console Message Queue Manager (Parts 1 and 2 of 7) 
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DMKQCN — Console Message Queue Manager (Parts 3 and 


of 7) 
* 




















04F4 


02G4 


A 


A 


♦INITCON 
*_*_*_*_*_»_»- 

* SET AND 

* INITIALIZE 

* CONTASK 




**»**Bt********** 

* BUILD WHITE * 

* CIHCLE C * 
♦CHANNEL PHOGSAH* 


***** 01E2 


****A3********* 

* SVC 0 - ABEND * 

* CODE QCN002 * 
*************** 


****A4********* 

♦ S CODE QCN001 D * 


*****A5********** 

S LiilT§ E IS A ?! : 
***************** 
L>*02** 


*****B2********** 

* BUILD WHITE ♦ 


***************** 


DMKQCN — Console Message Oueue Manager (Parts 5 and 6 


* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

of 7) 


**♦**41 ********** 

* DECBEHENT * 
♦HESSAGB LENGTH * 


>***••**»*** 


«****£1********** 
•ADVANCE PTB TO * 

* START OP * 

* HESSAGB BI 11 * 


W3210 V 

***** 12 *********’ 
♦INIICON 




■♦♦•♦C2******** 1 


i****D2********** 




► PARS .EQ. *. 


B4 *-> 07A2 


GET AND 
INTITIALIZE 
CONTASK 


****C4*********' 

CALCULATE 
OUTPUT BOFPEB 
SIZE 

:*****••***•*•*> 


****************1 


***************** 


,p£ H o$I G !o C 

WITHOUT 


'***************< 


C 


*J2*' 

t** 

2T 

****J2*' 

FLAG 


—t 


****P4*l 

HOVE DJ 
OUTPUT 

IT A TO 
BUFFER 

*****G4*> 

* 

* THAN! 
♦OUTPUT I 

♦ TEBHINi 

********* 

******* 

SLATE 
)ATA TO 

IL CODE 


NOAUTO 
‘♦NO 


•****jq********* i 


.♦* TEBHINAL *♦- 1 


************ 


: ****E5********** 


CASE BLANKS 
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DMKQCN 


Console Message Queue Manager (Part 7 of 7) 




* SET 2741 * 

* COHTASK SIZE * 






* TRANSLATE * 


♦OUTPUT DATA TO * 


* TERHINAL CODE * 
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/ 

i 




****& 4 ******* 
* DBKBPAPT 


SHITCH, SET 


*********** 


♦***C3********* 


**B4«*»**** 

* CLEAR * 

► IOE8HOH * 
SWITCH, SET 
* PARES FOB * 

* DHKPTH * 

*********** 


*DKKPTB A1 
; 2 *-*-*-*-» 


*************1 


PH' 


;**** c5 ********** 


***************** 


. __J->02A3 

CC2-> <12 

CC3->02 A5 

CC1- 




♦GETEHTRY 


♦DASD PAG& STAT.* 


* PAGE HOT 
♦BBSIDEHT - GET 

* ADDRESS OF 
♦SWPTABLE EHTBY 

* ”~7 PAGE 


FOB_ 

****************< 


.* HEW PAGE 
*. IHTO BEAL 
*. STOBAGE 




*********** 


*****j1 ********** 

cc3 *dhkptbah ^ ^ 

r * CALL T0~BRIHG *— 
* IH PAGE * 


SAVBADDR 
*****K1*’ 

* PLACE ADDRESS * 
♦OF BEAL PAGE IH* 

* CALLBB'S *— 

* SAYEABEA * 
***************** 


****J2********* 

* SVC 0 - ABEHD * 
—>* CODE BPA001 ♦ 
*************** 


****•£4********** 

♦DHKFBEE^ ^ ^ ^ * 

*~ CALL - TO GET 
* STOBAGE FOB A ♦ 

;***S!!JliS5,**,; 


***4******* 

•23I V M!H B 1 I8*' 

* IORBTH * 

* * 
*********** 


*«***G4********** 

* PLACE OSEB IH * 

* PAGESAIT AHD ♦ 
♦IHCBEHEHT PAGE * 

* BAIT CODHT * 
***************** 


*****H4********** 
*DHKSCHDL_* * * * 

*” CALL”DROP ~* 

* DSEB FROH * 

* ROHHABLE LIST * 
***************** 


****************> 


*01 * 

1* 

[IT V 


****K2********* 

* BETOBH TO * 
►* CALLEH * 
*************** 


****K4*’ 

* GOTO DHKDSPCH * 

* TO ARAIT * 

* IHTEBBDPT « 


* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 

* 


I0RB iS** 11 ********* 

* BHIEBED VIA * 

* GOTO AFTEB 10 * 

* IS COHPLETB * 
*************** 


* T8AHSIT FLAG, * 
♦DECBEHBHT BAIT * 

* CODHT. CLEAR * 


****»C1********** 
♦DHKPTBOL ^ ^ ^ * 

•CALL - TO OHLOCK - * 
* THE PAGE * 


GETEHTBY 

****A2********* 

* GET TABLE * 
> BHTBIES, TEST * 


♦****g2********** 
*OSE ADDRESS OF * 

* BBAL PAGE TO * 

* IHDEX TO * 

* COBBBCT * 
♦CORTABLE EHTBY * 
***************** 


BESIDEHT V 

• ****j^ 3 ********** 

♦GETEHTBY * 


*DASD PAgS STAT.* 
***************** 


*****C2* ! 
*OSE POIH 
♦COBTABLr 


FBOH DHKPAGIO * 

i**************** 


! ^SHARED PAGE^I*-^ 


,* DOBS IT *. HO 

*.BELOHG TO THE.*-, 

*. SYSTEH .* 1 


* DASD PAGE * 
DYHAH. 

*.ASS^GHED .* 


CLBTBL V 

***** E 3********** 

* CLEAR ODT OLD * 

* PAGTABLE * 

* POIHTEB IH * 

* CORTABLE, * 

nmhmn&ui 


*****P2*»< 
JDHKPGTPB ^ ^ 

♦call”to Selease* 

* THE DASD PAGE * 

* ,m< * 


***************** 


STOBDASD^ 


«*G2********** 

♦IHSBBT HEf DASD* 

* ADDRESS IH * 

* SSfPTABLE EHTRT * 

* * 
***************** 


****H2********* 

* R3 RETURM * 
*************** 


HO .* coItablb* **. 

-*. EHTBY OH AH .* 


i****G3** ******** 


***************< 


FBE ****»H3*i******** 
♦DHKPTBFT ^ ^ * 

♦PLACE C0ItABLB~< 
♦EHTBY FOB PAGE * 
-V FBEE LIST ' 


.♦CALLER *. 
.♦BBFEBEHCIHG*. HO 

SYSTEH .*- 

7IRT0AL .* 


♦****A4********* 


PAGE CODHT 


SAVECODE 

*****&5«4 

* SAVE CC 

* RETOBHED FROH 
>* DHKPTB IH 

♦IOERBOB SHITCH 


.Li 




****C4********* 

* SVC 0 - ABEHD * 

* CODE HPA003 * 
*************** 


*. VIB3 
*.STC 
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IBM VM/370: Control Program Logic 352 


| DMKRSE — Real Spool Error Procedures (Parts 1 


and 2 of 11) 
♦ 


■ RESET CMC 83 

■ (DHKRSP83I TO 

■ IOBRCAW 


*02 * 01J 

: E2 **~i us; 

**** I 07&I 
:itde _ V 


•GETRCAW 


—>i r—>* TO PREVIOUS 
II * SAVEAREA 
1 1******************4 


*13505 OB 3525 + I*-j 


1211 PRIHTER^*-j 


COL 5 
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| DMKRSE — Real Spool Error Procedures (Parts 5 and 6 


of 11) 
* 




0342 


‘‘1 


♦♦B1******* 

* SET DP ♦ 
♦DHKRSE521I NO* 
♦DEVICE MESSAGE * 


~1 


** D 1******* 

* SET DP * 

* DMKRSE520I * 

► CHANNEL ERROR * 

* HESSAGE * 
*********** 


♦.ERROR OR ZERO. 1 


n 


**fi******* 

* SET UP * 

* DHKRSE503 * 
♦EQUIPMENT CHECK* 


E °SSI?S’ 




* SET UP * 
♦DMKRSE504 DATA * 
♦CHECK HESSAGE* 


r 


*********** 


♦*E2*+***** 

* SET UP * 

* DHKRSE501 * 

► INTERVENTION 

* REQUIRED 




S§S§I*, 


* DHKRSE505 * 

* OVERRUN ERROR * 

* HESSAGE * 


♦♦G2******* 

* SET UP * 

* DHKRSE529 * 
* PARITY ERROR 

* HESSAGE * 
*********** 


**J2******* 




**♦**J3♦****♦♦♦♦* 

♦DMKMSWR* + ^ + J 

♦""CALL- - WRITER “* 


c************** 


ic**K3********* 

RETURN TO * 
CALLER * 


| DMKRSE — Real Spool Error Procedures (Parts 7 and 8 of 


* 

* 

♦ 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

11 ) 


[" 

* *NO 
! 

**C2^****+* 

**C3* : 

HO 

* 

* 

* 

♦ . ERROR *♦- 

♦YES 

♦ YES 

! 

TEST2 .* 

‘*. YES 

* SET UP ♦ 

♦ DMKRSE500 * 

♦ SET UP ♦ 

♦ DHKRSE508 ♦ 

♦ 

**C2******* 

C3 *. 

C4 


♦♦A3******* 

* SET UP * 

' DHKRSE525 ♦ 
FORHAT CK 
' HESSAGE * 


.♦DEVICE END * 


‘■‘-I 


* 

* 

* 

* 

* 

♦ 

* 


.♦DATA CHECK *. NO 


TEST1 

.♦LOAD OR I 


SET UP FOR 
1 RT1,2,3,AND 5 * 


—>*.HOTION ERROR . 


IENT .*-. 

>V* n 


,J 5 ' 

r; 


**E2******* 

* SET DP FOR * 
RT6 ONIOT (FCB * 

* ERROR) * 


10F1 

FNOTE 


c 


♦ INDICATE ERP ♦ 
•* GETTING OBR 1 
♦DATA -IOBRXERP * 


******************** 


iSENT^*-j 


■ XOBREXT BLOK 


*****j2*********i 


>♦♦♦*******♦***: 


. FCB OP CODE .* 


♦♦F3******* 

1 SET UP FOR * 
RT5 (UCSB 
1 ERROR) * 
*********** 


V*“l 


**J3******* 




TO:F2 

10J1 

10K1 
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| DMKRSE — Real Spool Error Procedures (Parts 9 and 


10 of 11) 
* 



^FCB PARITY ^.*-j 


■SET DP TO GET* 
PRINT LINE * 
* BOFFER * 


* HOVE ERROR 

* CHARACTER TO 

* XOBROIO 


ITION BRROR^. *-j 






0 342 


***** 10G2 


*•BOSOOT CHECK^.*-^ 


TSTPDHSB .*. 


*. C4T4 CHECK 


“1 


EBROB^I*-j 


EHROB^I *-1 


1 LOAD CHECK . 


“-—I 


^INTEBVEHTIOH '. *-, 

*.REQUIRED .* i 


ESS ♦**~~| 


• CHANHEL 9 




•IBS 
L>*03** 
* H3 * 


r_ *_*_*_* 

♦GET RESTART CAW* 
***************** 




SBBOB^l*-j 


| DHKRSE — Real Spool Error Procedures (Part 11 of 11) 
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DMKRSP — Real Spooling Manager (Parts 1 and 2 of 13) 


♦DBKFREE^ 

* cIll-'gIt' 

* STORAGE FOf 

* RSPLCTL 


♦DELETE 

* DELETE SPOOL 


,-*. 10B FROM 

j *. DHKCSO 


|-♦. FILE OPEN 


♦DMKPGTVG 
*_*_*_*_*_*_*_* 
* CALL- GET 


1 * RDEVBLOK * 

1 ********c********* 

! l 

***************** 

K ***************** 

-> 

* 

* 



! J 

1 Cl' ■*. 

C3 # **• 

MSG426 

**C4******* 

* 

;■ 

C2* **. 

1%***^* ■< 


OE ->09 A4 

FATL->09A4 


RDRIOB V 

♦ ****F2**< 
♦DMKFRET 


♦SET GPR1 CAW TO* 
♦IOBCAW —IOBIRA * 
♦SET TO DMKRSPEX* 


♦DMKIOSQR * * 

♦CALL- START I/O* 


♦DMKFRET* * * * 
* CALL - FRET 


RDREXIT4 V 

*****FU******** 
♦DMKRPAGT * * f 
CALL- FREE _ 


♦DMKPGTVR * * * i 
♦CALL™-~RELEASE 1 


INCH DEVICE*.*-, 


FRETIOB V 
***##G3**s 
♦DHKFRET 


RSPLEXIT V 

♦♦**H3******< 

* GOTO DHKDS P( 


prtopmsg^v***** 

♦SET OP OUTPUT* 


♦PUTHSG1* * * * “ 
* WRITE OUT MSG 1 




















'ER . *-- 

.♦** V 


'*1 


*YI 

!**-> C 


CALLSEP 
♦♦♦♦♦t . 

*DBKSEPS| ** * £ 

L >*CALL- SHITE 0R~* 
♦PORCH SEPARATOR* 
****************** 


♦ E2 ♦• 

* *- 

PROCESS 


1' 


PROCESS 1 

♦D8KRPAGT ( 




***************** 


■ PUNCH *. IBS .* *. 

SEPiRiTOR ^.*-. ♦•PAGIHG ERHOR^. 

*♦. ***** *♦, ,♦* 


*03 * 04B3 

* p« * 04G4 

!**»* [ 1283 

BsG :2* 8 f* P4 *i**,****, 

♦MARK SFBLOK III 
-»♦ SYSTEM HOLD 

♦ STATUS 




***************** 


**«**H1********** 

:£5i5£S3.*.*-*J 

♦ SO PRIHT ♦ 

* DRAIRED MSG ♦ 
***************** 


***** G 2********** 
♦DMKgCHWT + + ^ * 

♦” call” wbitI ”♦ 

♦START PORCH MSG* 
***************** 


****H2********** 


t************ 

L>*02** 


_-» DOHBI * 

* ALLOCATION * 

* RECORD * 

***************** 


TO BUFFER 


* POT SFBLOK OH *— 

* PRINTER OR * 

* PORCH CHAIM ♦ 
***************** 


s o asV-, m 

♦♦♦♦ I 

HSS428H V 

*****(35********** 

♦TYPERADD ^ ^ ^ ♦ 
->* — GET*TYPE AMD 

* ADDRESS * 

* * 
***************** 


**R5******* 

♦SPOOL PAGIHG « 


* DHKRSP428E 


IPCH 

L>*04< 


* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 


♦04 ♦ 03H1 

VJ* 13D3 


♦04 * 03F2 


PRTIDLB V 

****«£1********** 
♦DMKFRET 


***************** 


■ CALL- GET * 
• BUFFER FOR ID 1 
CARD 


♦CALL- FRBT PCH ♦ 
♦RESTART BUFFER ♦ 

***************** 


*****D2********** 
♦DHKCVTDT ^ ^ ^ ♦ 

* call”-”get”DAt1* 

♦ AND TIME ♦ 
***************** 


—> :° 1 3 ** 


ro BE .*-, 

: v n 


CKPHEPAG V 

*****13******** 

♦DBKRPAGT 


**************** 


PAGIHG ERROR 


1 


n***B5*** ******* 

♦GET ADDRESS OF * 


► FIRST ♦. YES 
BOFFER OF .♦-, 

S. FILE .*•* | 


—♦BOFFER ADDRESS < 


HO .♦ BACKS! 


iPACE’l 

.ETE 


**»**P1********** 

♦DBKFRET^ ^ ^ ^ ♦ 

♦ CALL*”FRET "♦ 

♦ RSPLCTL * 
***************** 


PORCH ‘.*-, 

‘.AVAILABLE.* j 


-♦.FILE PRESENT .* 


*************** 


>****E5********** 

CLEAR POINTER * 
**************** 


—>* PRIHTBR/POHCH 


****F5********* 

* R5 RETORH * 
*************** 


* SET TIC CHAIN 
->* ERROR - 

* SFBTICER 
**************** 

l—>*03** 


♦DBKAC( 


CALL- PONCH * 
- ACCOUNTING * 
♦ CARDS ♦ 
***************** 


♦ IF BDEYSPAC ♦ 
♦CHANGE SKIPS TO* 

* SPACE * 

***************** 


♦****j3********** 

* END CCNS WITH * 
♦DUMMY SENSE CCI* 

***************** 
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| DMKRSP — Real Spooling Manager (Parts 5 and 6 of 13) 


****&i********* 

* RSPMSG * 

*************** 


***************** 


♦ ***C1********* 

* R5 RETURN * 
*************** 


* SET UP DUMMY 


***************** 


****F2********* 

* R6 RETURN * 
*************** 


****^3********* 

* CKBKMSG * 

* SUBROUTINE * 


*****g2********** 

REC* LOCATE DUMMY * 

-* RECBLOK FOR * 

* THIS CYL * 


***************** 


****&«********* 
* TYPERADD * 
*************** 


♦***D4*** 

* RADDR ♦ 

*************** 


****A5********* 

* PUTMSG1 * 

* * 
*************** 


♦CALL - CONVERT 


***************** 




♦SET UP RDR, PUN* 


***************** 


***************** 


** E 5******* 

* ♦ 
♦FIL IN MESSAGE < 


*****p4********** 


***************** 


C ***G4********* 

R5 RETURN * 


♦****p5********** 
♦DMKQCNWT * 

"s 

£»**2*i******< * 


♦♦♦♦G5********* 

* R6 RETURN * 
*************** 


♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 

* 

♦ 

♦ 

* 

* 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

* 

♦ 

❖ 

♦ 

* 


(**j^2 ♦♦♦♦♦♦♦♦♦ 
TBRMIRA * 


***** B 2********** 


* SUBROUTINE 

*************4 


*****05********** 

♦RECHAIN SFBLOK * 

* TO PRINTER OR ♦ 

♦ PUNCH CHAIN ♦ 
***************** 


***************** 


*****31********** 

* WRITE MSG TO * 

* OPERATOR * 






**♦** 22 ********** 

:3&iFc18d’K§ b : 

* RETURN TO * 

* LASTCARD * 


► CALL- DELETE 


♦♦♦♦*E4********** 
♦PUTMSjjil^ ^ + ^ * 

♦WRITE FILE~hIlD^ 




♦ CALL - START * 

♦ FILE ON AN ♦ 

♦ OTHER DEVICE * 
***************** 


♦***F5»**+*^*** 

* R2 RETURN * 
*************** 


















o 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
❖ 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
❖ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
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DMKRSP — Real Spooling Manager (Parts 9 and 10 of 13) 


vO 

ID 

cn 


o 

•H 

o 

h4 

& 

(0 

U 

Cn 

O 

M 

CM 


O 

w 

•p 

c 

o 

u 


o 

h* 

m 

SE3 

> 


vy 









































NOTSNSB V 

*****A2********** 

♦DHKSCHFD 


. BLINK CARD 


”•-} 


r‘ u - 


FIHDUSR V 

***** 02 ********** 
♦DMKSCHFD * 

*-*-*-*-*-*-*-*-* NONE 

* CALL- LOCATE *- 

* USERID * 


MSG431A 

**D3**1 
* ID CABD * 

* MISSING OB 
->* INVALID MSG 

* DMKRSP431A 


*********** 


***** 22 ********** 
*DHKUDRFU_ # * 

***************** 


I 

HsG432& ** P3 ***/.*r 

—>%%illliilf > 


SFBOSER AND 


GET ****« 


****H2*' 

♦DMKSCNFD 

*-.*_*_*_*_*_*_*—*hone 

->* CALL- LOCATE *- 

* CLASS - NAME * 
***************** 


IDHSG 

*****g3********** 

♦PUTMSG1 * 

—>*~ send - *Inpot 

* FOR' MSG TO * 
OPERATOR 


*****J3********** 

♦DHKSCHFD 


♦CLASS CHARACTER* 
***************** 


♦♦♦A5********** 


'*************** 


RDHCLOSE 

***»*B5********** 

' OPDATB becord * 
'COUNT IN SFBLOK* 

i**************** 


CALL - WHITE * 
OUT LAST BOFFER* 


*. SUCCESSFUL 


71 

vhi 


****E5********** 

INDICATE BUFFER* 

8R i t f1bIc s ie b -: 

t**************** 


♦CALL - GET DASD* 
♦BUFFER ADDRESS * 
***************** 




****************, 


*****K 2*** 
♦DHKSCHFD 

OK ♦-♦_♦-♦-♦—♦_♦-♦- 

-: ^fname^fttp! 


* VALIDATE AND 

* MOVE CLASS TO 

* SFBCLAS 

****************4 


n 


♦»J4******* 

* ID CARD - 


*********** 


♦WRITE ERROR « 


%F 3* 


* 

* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

♦ 

* 

♦ 

♦ 

* 

* 

* 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

* 

♦ 

♦ 

* 

♦ 


| DMKRSP — Real Spooling Manager (Parts 11 and 12 of 13) 


♦♦♦♦♦ 1IDS 


» UPDATE BUFFER * 
' LAST ADDRESS * 
* -SFBLAST 1 


***** 02A2 


CHFILE 

***** 42*********’ 

♦DMKSPLCR 


.♦ IN ERROR 


*****£-) ********** 

* RESET BUFFER ♦ 

* ERROR FLAG - ♦ 

* SFBRECBB ♦ 
***************** 


,* PREVIOUS ♦. 
BUFFER 

*. PRESENT .♦ 


***** 21 ********** 
♦DHKRPAGT^^^ * 

* _ CALL~- rIaD “* 
♦PREVIOUS BUFFER* 


*~1 


BRLAST^ 


♦UPDATE FORBARD * 
♦BUFFER POINTER * 
* - SPNXTPAG * 


* CALL - BRITE 

* BUFFER OUT 
*************** 


♦»A5******* 


* 1 


♦BRITE OUT DRAIN* 


***************** 


BACKSPACE 


♦OUTPUT MESSAGE * 
* TO OPERATOR < 


*»***C3********** 
♦UPDATE AND SAVE* 
* LAST CARD * 


***************** 



“***D5********** 
SET UP * 

TERMINATE * 
MESSAGE TO * 
PRINTER * 


•***K5********** 

!T IOBIRA TO * 
TERMINAL * 

:**************** 


* G3 ' 


*****H3********** 

:£S?S!5£I_*_*-*-; B rr 

♦CALL- GET NEXT *— 
♦VIRTUAL BUFFER * 


n 


********************** 


*****J3*********j 


♦HEXTBUFF 
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IBM VM/370: Control Program Logic 358 


- Beal Spooling Manager 


(Part 13 of 13) 


***** 12 D3 


♦HARK SFBLOK IN f 

* SYSTEM HOLD f 

* STATOS | 

***************** 


‘ POT SFBLOK ON < 


***** C 3********** 


***************** 


*****D3*******« 

♦RSPMSG + 

♦FATAL I/O iRRO! 
♦MSG DMKRSP430A 
**************^ 






r\ 





♦♦C3******* 

* * 

> RESET ERROR * 


■*. ERROR OCCUR .♦ 


♦EBRORECOUNT*. YES 


'T 


**D5******* 

♦SET OP CAW,10* 
—>*NEW PSW, AND MC * 
* NEW PSW * 
>** *********** 


*****S3********** 


***************** 


-J^*:* b to e save e - 

*. RESTORE .* 


♦♦G2******* 

♦SET OP TO GO * 

♦ TO DMKCPINT *<— 


COHPLETED 


*********** 


***G4*********** 


**************** 


***£5*3 

♦ISSUE SIO TO * 
DISK 

* * 
**************** 


****F5**4 

♦ LOAD WAIT PSW * 

♦ “ADR# a IOINT ♦ 
*************** 


**H1** 

SET OP CCW 
*********** 


♦♦♦*H3********* 

♦ R15 RETURN * 

*************** 


♦SET UP SEARCH* 
♦ID AND ADR# OF * 


*************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


S“*~i 


CP NUCLEUS 
************* 


*****B1********** 
♦GET IPL DEVICE * 


**d******* 


♦♦♦*A2********* 

► ENTRY VIA LDT * 

► CARD FROH * 


*************** 


SAVE COPY OF 
THE NUCLEUS ON 


♦*C2+****** 

* SET UP EXT * 


*. SYSHES=231« .*- 


*****E2*********’ 
S 1O FOR E 3330 : 

****************3 


' AND END ADR. 

' FOR 3330 OB 


***************** 


► SYSRES DISK * 


♦♦♦C3****+****** 
ISSUE SENSE 


.♦DEVICE NOT * 


** D 4**«**«* 

♦NOT READY HSG* 

► = DMKSAV351 ♦ 


L>*o*** 


♦SCPZCAH^ ^ # 


♦ . SYSRES=3330 


330 ^ .♦-^ 


*F3 *.* 

*’.CORRECT LABELS 

’♦YES 

L>****% 

♦ A5 ♦ 


*****G2********** 

♦ LOAD EXTENTS * 

♦ FOR 2305 * 

***************** 


♦.^SYSRES-2305^#*-j 


*************** 


‘"1 


♦♦ A 5 ♦ * ♦ ♦♦ ♦♦ 


♦ THE NUCLEUS * 


ADDRESS OF 
DHKSAY FOR 
CHECKPOINT 


***************** 


*********** 


***************** 


♦FOR 1 NUCLEUS ♦ 
♦LOADED* MESSAGE* 

*********** 

L>:sr* 
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BMKSAV - 


IBM VM/370: Control Program Logic 


- Save CP Nucleus or SYSRES (Part 3 of 3) 


n 


***** 2 ********* 

* SCPZCAff * 


****A3********* 

* LBIOINT * 
*************** 


*****q2********** 


***C2*********** 


**************** 


. ERROR OCCOE « 


**D3******* 

► RESET ERROR * 


*********** 


****B3*** 

* RETURN ON R15 * 
*************** 


♦*♦** 04 ********** 




^.*ERR0R^C00NT*. ^NO 

**YBS * * 


**E4******* 




*****£ 5 ********** 


k Q BEFORE.*-J 


• DROP FROM * 
' DISPATCHABLB * 
■ LIST * 
<**************** 


DROP FROM 


* C3 * 
CKIDLE** 




.*DSER IN PSW*. 
*. WAIT .* 


fES .* USER TIHE *. 

:—*. STAMPED .* 

*. ALREADY .* 


***************** 


***************** 


CKRSTAT 

! 

YES •*’ 


r"' 


HERE TO CHECK 


"T 1 


► FAVORED *. 

EXECUTION .* 
►. USER .* 


if 


*****G3********** 
♦SAVE CPU TIMER * 
♦OF CURRENT USER* 
*- DO NOT CHARGE* 
♦ FOR LIST SEARCH* 
***************** 


‘**H 3 ********** 


GET LIST OF * 
ISERS ELIGIBLE * 
FOR Q1 * 


*****J3********** 

*GET ADDRESS OF * 

* NEXT USER IN * 

* LIST * 

***************** 


; EXIT - R14 * 

*************** 


TO: K2 
03F3 
03G2 


* DROP FROM * 

* ELIGIBLE LIST * 
***************** 


♦ADD USER TO Q1 


♦ADD TO DISPATCH* 


| DMKSCH — Scheduler (Parts 1 and 2 of 8) 


* 

♦ 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 




.♦FLAGGED FOR*. 

'. PRIORITY .* 
♦.DISPATCH .* 


*. BEFOBE .* 


*•*'* ] 


*. BOUND .* 


.♦ALREADY*.. 

.* FLAGGED *. ! 
*• COMPUTE BOUND. *- 


) RUNNABLE* 


***************** 


L.:iiti!Ki it!:. 


♦DROPLIST 

DROP FROM~ 


****»G1********** 

?set p8U^!, 1HD! 


* DBOP FROM * 

* DISPATCH LIST * 
POSITION < 


****£ 4 ********** 


.*****♦♦*♦***♦*1 


IBS .*TIME SLICE *. 

END EXPIRE .* 


;****£3********** 

;OMPUTE S BOUND, * 


*N( 


.* FAVORED *. NO 
♦ .EXCUTION USER.*-^ 


'' ~J 


* ASSURED 
PERCENT 
♦.RECEIVED . 


♦HARK USER A£ 
♦ NOW LOW 
♦ PRIORITY 


AWAITING 

*****B1********** 

♦AWAITLST * 


THRDROP 

*****H4> 

*DROPQ 




■ ADD USER TO 
' ELIGIBLE LIST 


********************** 


n 


> DROP FROM QUE * 


♦DROPLIST 
*_*_*_*_*_*_*_i 
* DROP FROM 


' FAVORED * 
EXECUTION 
‘. USER .« 


♦ ADD TO DISPATCH 1 
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| DMKSCH — Scheduler (Parts 3 and 4 of 8) 


***** 01K3 


GET S& 


>**“» 


********** 

* GET LIST OF * 
♦USERS ELIGIBLE * 

* FOR Q2 * 


CKQ **< 


LO .*COHP PROJ. *. 
*. TO TOTAL .* 
*. PAGES .* 


*****{94 ********** 

♦FORCE PROJECTED* 

* WORKSET TO * 

* TOTAL-1 * 

***************** 


ADDQ 

****A5********* 
*ADDQ ADD A USER* 


[ ****C1 ********** 

'GET ADDRESS OF * 
NEXT USER IH * 
LIST * 

i**************** 


YES .* ANY Q2 


*****C5********** 
♦FLAG USER AS IN* 
* Q, PICK UP * 
♦CURRENT Q COUNT* 
*AND TINE SLICE * 


SETIHE 


i****D2********** 
♦GET ADDRESS OF * 
- CURRENT USER. * 


♦WORKING SET FOR* 
* THIS USER TO * 
♦CURRENT SYSTEM * 

:***55si*i$$s***: 


.♦COMP TO*. 

.^pagPfrahIs*:*^ 


’list>-J 


*****F3********** 

* RE-CHAIN * 

* CORTABLE * 

—>*ENTRIES TO USER* 

* PAGE LIST * 

* * 
***************** 


ADDg2^ 


*. DROP 
*. .* 
**YES 


*USE VIRTUAL CPU* 
* TIMER IN * 
♦VMTMOUTQ FIELD * 
***************** 


******** 

♦SAVE ADDRESS OF* 

* NEXT USER IH * 

* BLIGIBLE LIST * 


*****52********** 

: ch S5?ri c eT$o b1b : 

* FLUSHED PAGE * 

* LIST * 


*****H1*> 

♦DR OPLIS T 

piiSj’SSsT; 

***************** 


****+G5********** 
♦STORE VIRT. CPU* 
♦TIBER OR Q DROP* 

* INTERVAL IN * 

* VMTMOUTQ * 
***************** 


****H5********* 

* R14 RETURN * 

*************** 


***************** 


♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 


DROPg^ 


n 


!***( 1 ********* 

* DROPQ DROP A * 

* USER FROM A Q * 


*****C1*’ 
*UNFLAG ' 

♦^oifcsi.- 

* SYSTEM 


USER AS * 
•1BTRACT * 
' FROM * 
PAGE * 


*****01*********’ 

* 

♦DECREMENT IH Q 
* COUNT 

****************1 


tNE 1 


***»*F1********** 

♦USE TIME VALUE * 
*IN TRQBLOK FOR * 
* CALCULATION * 


*****H2********** 

* CALCULATE * 

* AMOUNT OF * 

* PROBLEM TIME * 

* USED * 

***************** 


♦HBRE IF USER IS* 

* HON BC-MODE *— 

* MACHINE * 
***************** 


*****13********** 

*CALC. TOTAL CPU* 
—>*TIME USED WHILE* 
* IN Q * 


*****133 ********** 


***»*C3********** 


HIS VMBLOK 


***** 34 ********** 

♦BUMP REFERENCED* 

* PAGE COUNT, * 

* RESET * 

♦REFERENCED BIT * 


* PAGE FRAME * 
***************** 


*****C4********** 


***************** 


*****03********** 


***************** 


*****B3********** 

* CALCULATE * 

* ELAPSED TIME * 

* FOR DISPATCH * 

* PRIORITY * 
***************** 


r" ; * 


■♦.RESERVED, OR . 


*****05********** 

* UNCHAIN ENTRY * 
♦FROM USER LIST,* 

—*CHAIN TO TEMP. * 

* FLUSH LIST * 


r****£4 ********** 

INDEX TO NEXT * 
SEGMENT r TABLE * 

* 

**************** 


* TIME) * 4096 * 

***************** 


*****G3********** 

* GET HUMBER OF * 
•RESIDENT PAGES,* 

* INDEXES FOR * 

* PAGE AND SEG * 

* TABLES * 

***************** 


*****H3+********* 
♦POINT TO FIRST * 


* SEGMENT TABLE * 


***************** 


*****G4********** 

* SUBTRACT * 

* ALLOWABLE * 

* PAGING LOAD * 

* FROM CURRENT * 


>*nmi 


♦ .DIFFERENCE > .*- 


OVERLOAD 

*****H5********** 

* WORKSET * * 

* AVERAGE OF * 
->* RESIDENT AND * 

* REFERENCED * 
PAGES 


*****j3********** 

* POINT TO 1ST * 

* AND LAST * 

*pagtabl| h ehtry * 

I*****i**i*I*4 " 


♦****J4********** 

* WORK SET = * 

* RESIDENT PAGE * 

* COUNT / * 

* LOG2(DIFF.) * 
***************** 

L>*05** 


"1 






V 

















:sr: us 

* A1* 


♦****A1********** 
• GET EHROB * 
♦BETBEEH ACTUAL * 


***************** 


*****B1********** 

* COMPARE EBB * 

* ERROR TO LAST * 

* ERROR * 

* CALCULATED * 
***************** 


.*ARB ERRORS *. ' 
». OF THE SAHE 
*. SIGH .* 


****A3********* 


* DISPATCH LIST * 
*************** 


*****83**4 
♦GET ADDRESS OF * 

* DISPATCH LIST * 

* AHD USER'S * 

* DISPATCH * 
PRIORITY 


****A5********* 


* ELIGIBLE LIST * 
*************** 


***** 85 ********** 

*GET ADDRESS OF * 
* ELIGIBLE LIST * 


***************** 


*****C2********** 

♦PROJECTED BOBK * 
_>* SET = ACTUAL * 
* BORK SET * 
***************** 


iDD S$5!* c4 *,******** 

*POIHT TO ERD OF* 


***************** 


****♦ 81 ** 

* 

♦PROJECTED BORK 
♦SET = OLD PROJ 
* ♦ ACTUAL / 2 


^****Er 
* R14 RETURH 


♦****D3********** 

♦GET ADDRESS OF * 

* 1ST USER OH * 

* LIST * 

***************** 


.* USER *. ’ 
• .FLAGGED HIGH .*- 
♦.PRIORITY .* 


->*. EHD OF LIST . 


1DD HSS*Q4*« 

* FLAG USER IH 
♦RUNNABLE LIST, 


‘♦.PRIORITY .*’ 
♦.OSER .♦ 


3********** 


'**************’ 


ADQLOOP ^ 

.♦* *♦. 

->♦. EHD OF LIST . 


f . PRIORITY OSER • * 


**************** 


***************** 


★***H4*** 

♦ R14 RETURH ♦ 

*************** 


* 

♦ 

♦ 

* 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 


DROPLIST 

«***A 

♦DBOPLIS' 

* USER 1 

* RUHHAB] 
*******4 


. DROP A* 
'BOH A * 
>B LIST * 


t****81*< 

JUHFLAG THE^USER; 

RUHHABLB LIST 
'***************> 


RSTHPOH 

♦♦♦♦A2********* 

♦ RSTHPOH SET A * 

♦ "REAL" TIBER * 

♦ IHTERRUPT ♦ 
*************** 


*****B2* 5 

: FL i! 

* STAMPED 

* ADDRBf 

* TRQ1 
********< 




***************** 


****D1* 3 
♦ R14 RETURH 


FROH YHBLOK ♦ 
**************** 


*****£2********** 

♦ GET TIHE TILL ♦ 
♦IT WRAPS AROOHD* 

♦ TO ZERO AGAIH ♦ 
***************** 


CVTHS, 


:***F2*********> 


♦*♦***♦*♦♦***♦*1 


****G2*********’ 
1 GET VALUE OF 
TOD CLOCK, ADI 


:***************: 


ESTABLISH 


* GET CURRBRT 

* VALUE OF 
->* VIRTUAL CPU 

* TIBER 

****************> 


*****83********** 

* ADD CPUTIHER * 

* VALUE TO * 

* CUBRBHT TOD * 
♦CLOCK, SAVE IH * 

* TRgBLOK 


* ESTABLISH * 

* IHTERRUPT * 

* REQUEST * 

***************** 


****D3********* 

* R3 RETURH * 


BSTHPOFF^ 


M>A<t********* 
♦RSTHPOFF RESET * 
♦A "REAL" TIBER * 
* IHTERRUPT * 
*************** 


.♦LOCATIOH 80*. HO 
♦ .TIBER STAMPED.*- 


****C4*********< 


**************** 




CAHCEL 

IHTERRUPT 

REQUEST 


i****84*********4 
CALCULATE 
ELAPSED BAIT 
'IBB, SUBTRACT 
FROM TIBER 
VALUE 

! ***************i 


timer"*:* 


NO .* DID 


*****G4********** 


: ****B5********** 


TIBER STAMP 


[***♦♦♦****♦**♦** 


*****C5********** 

♦ CALCULATE ♦ 

♦ ELAPSED WAIT ♦ 

♦ TIME, GET HEW ♦ 
♦CPU TIBER VALUE* 


*****D5*********> 


****B5********* 

* R3 RETURN * 


****J4********* 

* * 
* R3 RETURN * 
*************** 


****K2********* 

* R3 RETURN * 


| DHKSCH -- Scheduler (Parts 5 and 6 of 8) 
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| DMKSCH — Scheduler (Parts 7 and 8 of 8) 


> (INFLAG ANY 

■ PENDING TIBER 

■ INTERRUPT 


■ UNCHAIN 
1 REQUESTED 
' TRQBLOK FROH 















SCNXCU 


****ai********* 

* DHKSCHRU * 
*************** 


CONTROL ufllT, 
AND DEVICE 
BLOCKS 


IP SUCCESSFUL 
ON EXITING 
GPR-6=CHANNEL 
GPR-7=CTL.UNIT 
GPR—8=DEVICE 


*****D1********** 


***************** 


FIND THE BLOCKS 
FOR A GIVEN 
VIRTUAL DEVICE 


IF SUCCESSFUL 
ON EXITING 
GPR-6=VCHBLOK 
GPR-7=VCUBLOK 
GPR-8=VD£VBLOK 


*****04********** 

* INDEX INTO * 
♦VIRTUAL CHANNEL* 

* TABLE * 
***************** 


♦.CHANNEL EXIST?*- 


***** 02 ********** 

* INDEX INTO * 
->* CONTROL UNIT * 

* TABLE * 
***************** 


'. CHANNEL EXIST. *- 


*****05********** 

* INDEX INTO * 

—>*VIRTOAL CONTROL* 

* UNIT TABLE * 
***************** 


D' 


****F1 ********* 

* RETURN TO * 

* CALLER * 
*************** 


**F3******* 
♦SET CONDITION* 


****F4********* 

* RETURN TO * 

* CALLER * 


J*** 

* 4 

* F3 4 


*********** 


■ : *n 


*****q2********** 


***************** 


DEVICE EXIST .*- 


♦****G5********** 
* INDEX INTO * 


***************** 


n 


****J3********* 

* RETURN TO * 

♦ CALLER * 


| DMKSCN — Scan Routines (Farts 1 and 2 of 4) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SEARCH FOR A 
DEVICE WITH A 
GIVEN SERIAL 


♦****D1********** 


***************** 


* GET NUMBER OF * 
*RDEVBLOK IN THE* 

* SYSTEM * 


.♦OFFLINE OR *. YES 

—>*.DEDICATED TO .*-1 

*. SYSTEM .* 1 


RDEVBLOKS 
*.SEARCHED .« 


**J1******* 


****A2********* 

* DMKSCNRD * 


COMPUTE REAL 
DEVICE ADDRESS 
IN CCU FORM 


****A3**»****** 

* DMKSCNVD * 


c 


iSS J.* -J 


SCNFOUND 

*****A5********** 

* OR CHANNEL * 

* CTL.UNIT, * 


.♦MORE CHAN'S*. 

, TO PROCESS .* 


CTL.UNIT & 


***************** 


****E2********* 

* RETURN TO * 

* CALLER * 


***** 03 ******** 

* GET VIRTUAL 
♦CHANNEL ADDRESS' 


****************' 




*****P3*4 
* -221 NT c TO 




* .DEVICE EXIST 


r 


ARE LOOKING . 


****B5********* 

♦ RETORN TO 4 
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| DMKSCN — Scan Routines (Parts 3 and 4 of 4) 


FIHD THE VHBLOK 
WITH A GIVEH 
USERID 


INPUT BUFFER 


|- ■*.* 2311 ^ 







■***♦ 03C1 
■01 * 03E1 
■ A4* 03F2 


* STOKE SEAL * 
♦BUFFER ADDRESS * 

* IN IOBCAB * 


**************** 


♦.SEPARATOR.* 


****A4******** 
♦ RETUBN TO 
>* DHKESP 


PUNTYPE 

*****B4********** 

♦SET BUFFER BITH* 

* CCBS AND DATA ♦ 
->* FOR SEPARATOR ♦. 

♦ CARDS ♦ 


»****C4****‘ 


♦ 01 ♦ 

♦ C5 *-1 021 

**** I 

JNSIO V 

♦♦♦♦♦C5*********' 


♦ SET UP IOBLOK ♦ 

♦ TO TEST BLOK ♦ 

♦ DATA LATCH ♦ 
***************** 


.* SEPARATOR 
*. BOX PRESENT 
*. AND SET ' 




****************1 


.♦BLOCK DATA ♦ 
<. LATCH 
♦.VERIFIED .* 


***»*D3******** 
*♦ TRANS GET 
♦♦INSTALLATION 


***************** 


«****E3**4. 

♦ MOVE DHKBOXBX ♦ 
♦TO THIS NODULE * 

♦ AT LABEL * 

♦ -CONSTANT- * 
***************** 


♦♦♦♦FI********** 

ccb^to B restabt^* 

CCB * 

**************** 


♦HOVE IN SYSTEH * 
« RESTART CCBS * 




'****g1********** 

■ SET IOBIRA TO * 




'°j1%-> 0°IP4 3 


***************** 


****K1********* 

* GOTO DHKDSPCH * 
*************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


♦*♦♦♦ 01C3 


♦SET UP COHPLETE’ 


♦RESTORE IOBCAB * 


♦RESTART HOVE IN* 


► DIST CODE * 


****»C1*** 

* SET UP FIRST 

* BUFFER BITH 
♦SKIP TO CHI A"” 


HOVE IN CCBS * 
AND LINES OF * 
ASTERISKS * 
**************** 


*DEV : 


■ El********** 


CALL- CONVERT * 


***************** 


♦****G1********** 

♦HOVE IN VERSION* 

* - CLASS - DEV * 
♦ADDRESS - DATE * 

* AND TIHE * 


*»***J1********** 


♦CALL - CONVBRT * 

* FILE RECORD * 

* COUNT * 

***************** 


♦HOVE IN SFBLOK * 


*****B2********** 

♦IF CLASS X HOVE* 
♦IN INSTALLATION* 
* PAGE LINE * 


* CALL- GET 2ND » 
♦VIRTUAL BUFFER * 

* ADDRESS * 
***************** 


*****D2********* ! 

** TRANS BRING * 
♦♦AND LOCK 2ND * 
** BUFFER *; 
****************1 


****«E2********** 

* CONNECT 1ST ■ 

* BUFFER CCB 

* CHAIN TO 2ND 

* BUFFER CCB 

* CHAIN 
****************1 


***+*F2********** 

♦HOVE USERID TO * 

* SAVEBRK8 FOR * 

* BLOCK ROUTINE * 

***************** 


SBTBLOCK^ 


.*G2«******** 1 


■ HOVE IN NEXT 


♦BLOKLETR ^ ^ 

*~ CREATE~NEXT ~ 
* LINE OF BLOK 


*************4 


♦ COHPLETE ♦ 
—>*CHANNEL PROGRAH* 
♦BITH SENSE CCB ♦ 


*****B3********** 
♦HOVE DIST-CODE * 


***************** 
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DMKSEP — Print/Punch Output Separator (Parts 3 and 4 


****A2********* 

* RSTRIRA * 


**4t4«a4********* 

* SEPIRA * 


*+***B2********** 

* RESTORE * 

* GPR0-GPR11 * 

***************** 


.* FATAL 10 *. YES 


r •%: 


PRINTER .*<— 


YES .* FATAL 10 


i 


”, ■*- 1 


aZ-~Rll.EiSE"'* 

,T a T D Ris°f FEB : 


♦♦♦♦♦D3********** 
♦ SET IOBCAW TO 


***************** 

L>*o* 


—>*THIRD PAGE DONE 1 


n 


ADDRESS 

***********3 

L>*oi 


L>: 


*****£2********** 

* SET RDETLOAD * 
♦FLAG - INDICATE* 

* BLOCK LATCH * 

* VERIFIED * 
***************** 


NEXT CCS 

i***************i 


***************** 


STARTED + .*-j 

"* B °**** *°A4* 

L>*oT** ** 4 ** 


***************** 

1—>*01** 


of 4) 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


****A3********* 

* BLOKLETR * 


*****B3***»****** 
♦GET LINE NUMBER* 
***************** 


*****C3********** 
♦GENERATE A LINE* 


4c * * * *D 3 4c * * * * * * i 


****E3********* 

* R6 RETURN * 
*************** 













| DMKSEV — 2870 Channel Module (Parts 1 and 2 of 6) 



♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 


SY20-0880-1, Page Modified by TNL SN20-2624, August 15, 1973 





ST20-0880-1, Page Modified by TNI SN20-1624, August 15, 1973 


IBM VM/370: Control Prograa Logic 370 


| DMKSEV — 2870 Channel Module (Parts 3 and 4 of 6) 


CCH144A V 

♦♦A3******* 

* INDICATE * 
♦INTERFACE IS * 
♦SOURCE OF ERROR* 

************ 


r 


.*IS TBIS*. 


► . CONTROL . 


.♦IS THIS *. 
-♦.CHANNEL DATA .*<— 
*. CHECK ? .* 


►.FLAG OH ?.* 
"*YES 


*********** 




♦INDICATE THE * 
—>*DEVICE ADDRESS * 
* VALID * 


.*IS THIS*. 

.* A SIO *. YES 
►.INSTRUCTION ?.*— 

**. .*' ***** 

*■« *06 * 

* A3* 


*'*BO *05** 


♦+D2******* 

*%5SS5I£ T fs ** 

♦SOURCE OF ERROR* 
*********** 


**E2******* 

► SET SYSTEM * 
RESET 6 RETRY 

► CODE 1 
* * 

*********** 


**D4******* 


* SET SYSTEM * 

■ RESET S RETRY * 
CODE # * 
*********** 


CCHRETRN .*. 


04C 
-> 041 

< FNC 


; 0| v 

**** 

CCH162 


)3 * Ob A3 

G2 *—, 06B3 
^ 8® 
* **g2******* 


► .LOGOUT ? .* 


i on | 


.♦IS MODI*. 

►:io?§5 G !? h |:*I^ 


*03 * 04G2 

* U y-l 05H5 

CCH157* V 

**K2******* 


—>* TERMINATION « 
♦CODE TO (003^* 
*********** 


**F3******* 

* SET THE * 
* DISCONNECT < 
* FLAG IN THE 
*BOILDED ECSH < 
*********** 


♦****G3********** 

* SAVE THE I/O * 
♦EXTENDED LOGOUT* 

* AREA IN CCH * 

* RECORD * 

***************** 


*****(] 3 ********** 

* RE“INITIALIZE * 

♦extendId^ogout* 

* AREA TO ONES * 


► THIS FROM * 

► .INTERRUPT. 1 


.*IS THIS*. 

.* A UNIT *. t 
*. ADDRESS OR .*- 
*. ADDR-IN .* 
♦.CHECK.* 


**G4******* 


*SET SELECTIVE* 


*********** ***] 


□ 


♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

* 

* 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

♦ 


***** 02K3 


CCH141E V 

**j2******* 

* INDICATE * 

* CHANNEL IS * 
♦SOURCE OF ERROR* 

*********** 

| **** 
*—>*02 * 


*IS THIS*. 






rr 


,*IS COMMAND *. 
*. CHECK ON IN .► 
*.LOGOUT ? .* 


♦NO 

03K1 


CCH165B 

**D2******* 

**ciSS5iPfs % 

->* THE SOURCE OF * 


**** 

*04 * 

* El *-> 


.♦IS THE *. 

.* VALIDITY *. 
*. FLAG ON FOR . 
*. COUNT ? .* 

%N$* 

►"FI *->j 05D4 
**•* 

CCH156 


.♦IS THE *. 

.* COMMAND *. NO 
•♦.ADDRESS VALID.*——, 

*•*. ? .•'* 1 


c 


**F1******* 

JET THE BETRY’ 
>* CODE TO (101) 


*********** ***** 


“i 


* GET COUNT IN * 
•CCS LOC AT CMD * 

* ADDR. -8 * 

* * 
***************** 


r 


.* COUNT *. HI 

■.GREATER THAN .*- 

*.CSW COUNT.* 

*. ? .* 


.*IS THE UNIT*. NO 
>*.ADDRESS VALID.*- 




.* IS THIS A ► 


**J3******* 
♦INDICATE THE ► 


.* DOES *. 

.*CCW BITS EQ*. NO 
•*.TO LOGOUT BIT.*-1 











03B1 



* # 


03D1 
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IBM VM/370: Control Program Logic 372 


| DMKSIX — 2860 Channel Module (Parts 1 and 2 of 5) 




► DHKSIX60 
*************** 


,* HAS THE ♦ . NO 

CHANNEL .♦- 

♦ .LOGOUT ? .♦ 


*****D2********** 


***************** 


*********** 


.♦IS THE UNIT*. 
ADDE PARITY .* 
♦. GOOD ? .♦ 


***** G 2********** 

* SET THE DNIT ♦ 

* ADDRESS VALID ♦ 

* FLAG * 

***************** 


♦GET THE PARITY * 
♦BIT FOR COMMAND* 
* REGISTER * 

***************** 


♦REGISTER PARITY* 


**A4******* 


.* INTERFACE *. 
■♦.CONTROL CHECK.* 
*. SET ? .* 


♦*C4»****** 


~1 


—♦.OPERATION IN . 
♦. ON ? .* 

'♦YES 


**E4**#**»* 

♦SET THE VALID* 

* DNIT STATUS * 
* FLAG * 

♦ ♦ 
*********** 


CCH109B^ 


‘**F4 ********** 
♦GET THE PARITY * 
♦BIT FOR COMMAND* 
* ADDRESS * 


*****G4********** 

*L0GPAR_*_*_*_*_* 

* - cIeck THE * 
♦COMMAND ADDRESS* 
PARITY * 


.♦IS THE *. 

COMMAND *. 
ADDR PARITY . 
'. GOOD ? .* 


**J4******* 


♦COMMAND ADDRESS* 
* VALID FLAG * 


.♦IS THIS*. 


* “1 


♦ 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 


* COMMAND 
REGISTER 
>. PARITY . 
♦.VALID.* 


*********** 


.♦IS THE UNIT*. YES 
♦.ADDRESS VALID.* 


“1 


t CLEAR FES < 
TERMINATION 
► CODE * 
* * 
*********** 


* D5 *-1 04A1 

♦*♦* I 
CCH113 ?* D5 *L**** 

* INDICATE * 

* CHANNEL IS * 
->* THE SOURCE OF « 

* THE ERROR * 


*********** 




♦INDICATE CPU ♦ 

* IS THE SOURCE ♦- 
♦OF THE ERROR * 
*********** 


*02 ♦ 

* F2 ♦- 

CCH115 

NO . 


1* 


F2 


r 


*02 * 

c 

:h*15c i 


* INDICATE * 

♦ CHANNEL IS * 

► THE SOURCE OF * 

♦ ERROR * 
*********** 

**** I **** 

>—>*04 * 


^OPERATION IN . *<— 
* ON ? .* 

'♦YES 


.♦IS THIS*. 


3 .*IS SEQ. TWO*. 
-*. TRIGER ON ? .* 


**F5******* 

* TURN OFF * 
♦COMMAND ADDRESS* 

* VALID FLAG * 
*********** 


,*IS THE *. 


n 


INTERFACE 
>. CONTROL .* 
♦.CHECK.* 


CCH115A V 

♦*H2+****** 

* INDICATE * 
♦INTERFACE IS * 

-* THE SOURCE OF * 

* THE ERROR * 


♦.STORAGE ERROR.*- 


VALID.*-1 


*********** 

] **** 
L>*03 * 


*SOURCE OF ERROR* 


*********** 


**j3******* 


*********** 







02K3 


02C4 


02E3 


r— — *• SEQ• j 

r ***.° n 


.♦IS THIS*. 

YES .*AN ERROR ON*. 
-*.A TIO OR HIO .* 



*H (,CCHRETRN)* 
* SET THE RETRY 1 
♦CODE TO (Oil)* 


| DMKSIX — 2860 Channel Module (Parts 3 ana 4 of 5) 
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IBM VM/370: Control Program logic 374 


| DMKSIX — 2860 Channel Module (Part 5 of 5) 




01J5 


♦ BUILDCTL ■ 

* BUILD~VSPLCTL~* 


■ BUILD RSPLCTL 1 
► AMD SFBLOK 1 
***************** 


*****D1********** 

♦SET UP SFBORIG i 
* AND SFBUSER 1 


** TRANS BRING ** 

g^HHS* :s 

***************** 


SET LOGICAL 
SIZE IN 
SFBRECSZ 


BAL R6 GET 


************** 


*****% 2 ******** 

*♦ 

*♦ TRANS BRING 

s: ".bus * 1 


*****Y2********** 


***************** 


♦ ****G2*^**< t ***** 

♦ SET LOGICAL * 
♦RECORD SIZE IN ♦ 

♦ SFBRECSZ ♦ 


*«***H1 ********** 


♦ SET DEVICE * 
♦SPOOL CLASS TO * 






♦GET NEW USERID < 

* AND READER * 

* CHAIN POINTER * 


♦CHAIN SFBLOK TO* 

* END OF READER * 

* CHAIN * 

***************** 


**H3******* 

* SET FILE TO * 

AND FROM 

* MESSAGE * 


♦****J3********** 

♦DMKgCNWT ^ ^ ^ * 

* CALL- SET MSG *— 

* TO SENDER AND ♦ 

* RECEIVER * 
***************** 


SETPEND V 

*****i4********** 

♦LOCATE ALL VDEV* 

* VCH VCU BLOKS ♦ 
->♦ FOR AVAILABLE * 

* DEVICE ♦ 


COPIES FROM 
VDEVCOPY TO 


****** ******* *4 


•*,VALID DEVICE . 


RDRPEND^ 

♦DMKFREE 

* storage G for 


♦ CALL- STACK ♦ 

♦ IOBLOK FOR ♦ 

♦ DHKVIOIN . ♦ 

***************** 


02F1 
02F2 
02J2 


CLOSEXIT 

****FU********* 

* RETURN TO * 

* CALLER ♦ 

*************** 


*****B5****** 


FROM VMDIST 


HOLD .♦SFBHOLD OR * 
SFBNOHOLD 


r 


NO .^IS VDEVHOLD*. 


***************** 


CHAINIT I 

♦♦♦♦*H5********** 
♦ SFBCHAIN ♦ 


.♦COPY EQUAL *. NO 


| DMKSPL — Spooling Subroutines (Parts 1 and 2 of 5) 


* 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 


♦CALL - CONVERT * 
♦ NUMBEH OF ♦ 
COPIES 


♦****B1 ********** 
♦DMKCVTBD A 

♦CALL - CONVERT 1 
* SPOOLID * 


E UP (TYPE) ♦ 

5 (ID) COPY ♦ 
[NN) MSG ♦ 


♦DMKgCNHT ^ j 
* CALL - WRITE 


♦♦♦♦♦E2********** 

: ** 

->* DEVICE TO * 
* OUTPUT THIS * 




V'"! 


* CALL- SET * 

* STORAGE FOR * 

* IOBLOK * 

***************** 


*****H2*********> 
♦SET IOBLOK FOR * 
♦FAKE DEVICE END’ 

* AND IOBIRA 

* DMKRSPEX 

****************1 


***************** 


**F3******* 


*********** 


*****G3»********* 

♦DMKQCNWT * 

* - *CALL-*SEND~* - * 

* MESSAGE TO * 

* >* s * F *§Si?* B ****; 


1—>*01 ■ 


****AR*> 

* BDILDCTL 


* CALL- GET * 

* STORAGE FOR A 

* SPOOL CONTROL =1 

***************** 


CALL- GET 
STORAGE FOR 


CALL- GET 


***************** 


*****£4***. 

* SAVE VIRTUAL - 
♦BUFFER ADDRESS * 

* IN SPOOL A 

* CONTROL BLOK < 


*»*** G 4********** 

♦SET SFBLAST AND* 

* SFBSTART * 

* ADDRESSES * 


***************** 


***************** 




‘****B5********** 

CHAIN SFBLOK * 
LAST ON CORRECT* 
FILE CHAIN * 
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IBM VM/370: Control Program Logic 376 


DMKSPL — Spooling Subroutines (Parts 3 and 4 of 5) 


get °II 5* a1 ********* + 

* GETUSER * 
*************** 


************* 


****C1*’ 

* DMKSPLDL 
************* 


*♦*♦£ 2 ********** 


*****])1 ********** 
♦CHAIN SFBLOK TO* 
* DELETE FILE * 


***************** 


->* CALL- GET 

* STORAGE FOR 

* CPEXBLOK 



DLEXIT 

****H2**^ 

* RETURN TO 

* CALLER 


*****B2********** 

* SET CPEXADD * 
♦ENTRY POINT TO * 

* DMKSPLDR * 
***************** 


*****C2********** 


***************** 


*****D2********** 

♦INDICATE DELETE* 
♦ROUTINE RUNNING* 


****A4******* 
* DMKSPLDR 
************* 


***************** 


* DELETE CHAIN * 
***************** 


W 


DREXIT^ 


♦CALL- STACK AND* 

* HAVE CP START * 

* ROUTINE * 
***************** 


***************** 


*****23********** 

* RESET DELETE * 
♦ROUTINE RUNNING* 

* SNITCH * 

* * 
***************** 


***************** 


****H3********* 

* GOTO DMKDSPCH * 


*03 * 

* E5 *-, C 

JMPFILE „ V 


DUHPFILE 

*****^ 5 ********** 

♦DHKDRDDD * 


***************** 
I **** 

*—>*04 * 


j^CHAIN*. ^ 


*'*71 


DUMMY 

ALLOCATION 

RECBLOK 


CALL- RESET 


♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 


c 


***** 03F5 


DELRESET V 

***** A 2********** 

* MOVE LAST * 

* BUFFER * 

* (SFBLAST) * 

* ADDRESS TO * 

* SFBSTART * 

***************** 


*****B1********** 


**************** 

L>*03*» 


INDICATE 
LOOKING FOI 
BUFFER 1 


r *%? 


BACKING UP 


****A4********* 

* DELIRA * 

*************** 


YES .* FATAL 10 *. 


DUMP FILE 


READ BUFFER 
* CHAIN LAST TO < 
> FRONT * 


belpaget, 


.* FIRST *. YES 

.BUFFER FOUND .*- 

*. - DBLSH .* 


: **D4********** 
RESET FIRST * 



*GPR5 POINTS TO * 
—>*CCPD OF CURRENT* 
* BUFFER * 
***************** 


***************** 


***************** 


*****F2********** 


***************** 


***************** 


CALL- 

DE-ALLOCATE 
DASD PAGE 


***********4 


, LAST BUFFER . 


****H2********* 

* GOTO DMKDSPCH * 
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r—:: 


■>*'.* INDEXES) *.* -j 


J *DMKCVTBH** * 

* - cIll- - cohvebt - *- 


DMKSSP 


Build Real I/O Blocks for Starter System or at IPL Time (Parts 1 and 2 of 3) 
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IBM VM/370: Control Program Logic 378 


DMKSSP - 


- Build Beal I/O Blocks for Starter System or at IPL Time (Part 3 of 3) 


READADDR 

****A1******’ 

->* READADDR 


CONS, AND 


* CALL- CONVERT * 
♦DEVICE ADDRESS < 


****G1********* 
♦RETORN ON GPR-5* 
*************** 


e **A2 ********* 
SCAN * 

&************* 


PREVIOUSLY * 
[*************** 


.♦DEVICE TYPE*. NO 


TYPEHSG 

***C«*********** 
ERROR- 

* DUPLICATE * 

-> DEVICE 

* ASSIGNMENT * 


***E1*********** 

♦PRINT LINE TO * 
-> CONS AND READ 
* DEVICE TYPE * 
**************** 


***»*Q2**4 

*BLOCKS L FOR THIS* 
* DEVICE * 

***************** 


****************, 


‘ BUILD ENTRIES * 
FOR SYSTEM * 
SPOOLING * 


*************** 


*************** 







DMKSTK - 


****A2******* 

■ DHKSTKCP 


PROCESSING 


'***C2********** 


♦ONE TO THE END * 


* BUILD THE * 
♦BACKWARD CHAIN * 

* POINTERS * 


R14 RETURN 


* IOBLOK IN THE ♦ 
♦CHAIN. ADD THIS* 
♦ONE TO THE END * 


*****03********* 

* BUILD THE 
♦BACKWARD CHAIN 

* POINTERS. 
**************** 


- Stack (queue) a CPEXELOK or ICBLOK for Dispatching (Part 1 of 1) 
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IBM VM/370: Control Program Logic 


380 


| DMKTAP - 



- Tape Error Recovery Procedures (Parts 1 and 2 


TAPE ERROR 


-♦. IOBRCNT = 


3********** 

* STORE ADDR * 

* IOERBLOK IN * 

* RDEVIOER * 

***************** 


*****D3********** 

* ZERO IOBIOER• * 
♦TURN ON IOBERP * 


***************** 


3***♦♦♦♦♦** 

f!*_*-*_*_: 

* CALL- GET 5 * 

* DN'S STORAGE * 
***************** 


,* G entry *. 

YES .*ON RECOVERY*. 
-*. MOTION CTL .* 


3********** 

♦ INCREASE ♦ 

♦ IOBRCNT BY 1 ♦ 

***************** 


. ACTION .* 


Of 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 


ID 


***** 01K3 


.* REWIND 
*. RECOVERY 
*. ACTION . 


**B1 

* TORN OFF < 
* IOBRSTRT S 
♦IOBERP FLAGS 1 


*.CORRECTLY.* 


**** 01 ********* 

* EXIT DMKIOS * 


♦YES 

06D5 


*********** 


'fnote 


c 


****************’ 




8113 

05F2 
06C1 
06C2 
06F4 


'1 


**03******* 

> EQUIPMENT * 
ERROR * 

■MSG=DMKTAP503* 

* * 
*********** 


. IOBRCNT > 5 . 


**D5******* 

♦BUS OUT ERROR 1 
—>♦ HSG=DMKTAP502 


f.CCW AVAILABLE.♦ 


**F5******* 

♦ ERROR 
>♦ CONDITION 
*HSW=DMKTAP5n 


***** *********** 


* F5* 04B1 
*** FNOTE 


TRYAGAIN 




04H2 

05E2 

FNOTE 


*'“1 


**J3******* 
♦RESET IOBRCNT* 




TO:F5 TO:H5 T0:H5 
05B2 05E5 07C4 

- 07K3 

08C5 


07A4 
07E2 
10D3 


COL 5 CXREF 


n 
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| DBKTAP — Tape Error Recovery Procedures (Parts 5 and 6 


CMdI* ->*llOBRCNT > 15 -, 


.* data *. res 

*.TRANSFER > 12.*-, 

*. CHARS .* I 


(RITE COMHAND.*-^ j--CCW TXPE -^ 







**A1*> 

* BAD SENSE % 

* DATA * 

*BSG=DHKTAP516* 
*********** 

L>*02** 


r’1 


*****^ 5 ********** 


>.CCIf AVAILABLE. 1 


***************** 


#♦52******* 
♦SET 5 INTO ♦ 
♦IOERHRK. TORN* 

* ON IOERBSR & * 

♦IOERCLN FLAGS* 


-*. RECOVERY 


‘“1 


**%**B4********** 


*****B5********** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


r*‘ 


ENTRYNSK 

B1 

k" IOERORA * 


r*'<: 


X0E8FSH OH . *<— 


ENTRYRTY 

B2 

‘'iOERORA * 


, IOERSOPP ON .*<— 


k OPPOSITE 
RECOVERY 
ACTIVE . 


CORRECTLY 


•*B5******» 

* TORN OFF * 

■ IOERBSR & * 

♦IOERERG FLAGS* 


| 08E2 



***************** 

I 

*—>*02 * 

* H5 * 

* 

* 

***** "*. # *‘ 

*10 * *YES 

V, J 

* *YES 
| 

* *NC 
| 

**NO 

j 


V 

**C4* J i 

;***** 


* 

Cl* 

C2* ** *. 

C3*’*. 

C4 * '*. 

**C5* ; 


TORN C.. 

* IOERORA 6 * 

*IOERSOPP FLAGS * 


*********** 

L>*02*< 


*.CCH AVAILABLE. 




. OR IDL FLAG . 


* H3 *-> 
DATAMSG 


.* DRIVE IN *. 
*•DATA CONVERT . 
*. MODE .* 


—>*BACKSPACE & N 


* K2^*—>| 10B2 

ENTRYORA .*. 

K2 *. 

OPPOSITE NO 

*. RECOVERY .*-, 

*. ACTIVE .* I 


**K3******* 
c TORN ON * 
IOERCLN & 


| DMKTAP — Tape Error Recovery Procedures (Part 7 and 8 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

cf 


*'~I 




>■-1 


*.CC» AVAILABLE. 


i ABLE. *-1 


* CORRECTED *. YES 




ERROR OCCOH 


“1 


*****D3********** 

* BOILD CCBS-, * 

* TIE-CCW, * 

* TIC-CCW * 

***************** 


♦****E1********** 


***************** 


**E2******* 

* TORN OFF * 
* IOERFSR FLAG 


IOBRCAN FOR 


■ ERROR, ^ 

*HSG=DHKTAP518* 
‘****1 

L>; 


•°h-. 


*********** 

l_>*02*t 


♦ * * * * * * * * * * * * * * * * 


**F4******* 


10) 
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IBB VB/370: Control Program Logic 384 


| DMKT8P — Tape Error Recovery Procedures (Parts 9 and 10 of 1 


IDICATED IN .*--i 

*. CSH .*•* I 




IGNORE 


| DMKTAP - 




****A4********* 

* FRETPTR * 


♦RELEASE STORAGE* 


♦RELEASE STORAGE* 


♦ IOBRSTRT. frURN * 
* ON IOBFATAL * 
FIGS * 


■ 2'SD 
IOERBLOK 
>. BUILT . 


* CALL- RELEASE * 


************** 


♦CLEAR IOBIOER* 


\ 

****E2******** ; 
* EXIT DMKIOS 



♦RETURN ON GPR-9* 


*************** 


- Tape Error 


Recovery Procedures 


(Part 11 of 11) 
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IBM VM/370: 


Control Program Log 


| DMKTDK — T-Disk Space Manager (Parts 1 and 2 of 2) 


****A2********* 
♦TDISK ALLOCATE * 
*************** 


***** B 2*** 

♦SAVE REGISTERS * 


*****cl*4 

♦GET LIST ANCHOR* 

* FOR 2314 *<- 

♦*****♦**♦*’ 



'3330 

♦****D2* 

******** 

♦GET^LIS^ANCHORJ 



GETDEVIC 

♦****E2* 

***♦♦♦♦♦ 


♦♦B4******* 

* SET DP NO * 
♦SPACE AVAILABLE* 

*********** 

*01** 

* 04 *-> 02C1 

**** I 

SETDEVIC V 

***♦*04********** 

* STORE 
->*C0DB It 

*******^ 


* GET NEXT * 

* RDEVBLOK ON * 

* LIST * 

***************** 


•*LIST EMPTY * 


>Y 


*. SPACE FOUND . 


****E4********* 

* RETURN TO * 

* CALLER * 

*************** 


*****G2*** 

* POINT TO 
->♦ ALOCBLOK LIST * 

* ANCHOR * 

***************** 


*01 * 


>2*1 


.* ANY TDISK * 




L>." 


***************** 


*****35********** 


**F5******* 


*********** 


*CALL~ SCHEDULE * 

* IOS TO ERASE * 

* THE TRACK * 
***************** 


♦***H5********* 
* GOTO DMKDSPCH * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


♦RETURN^FROM IOS* 
*************** 


’“I 


**»**B2***i 
♦SAVE REGISTERS 1 


* ALLOCATE * 

♦ CYLINDERS AND * 

♦ LOAD START IN * 

* R7 * 

***************** 


► LOCATE * 

► CYLINDERS TO * 

► DEALLOCATE * 
***************** 


****C4 ********* 
♦EXIT TO CALLER ♦ 




♦ FIND ♦ 


DEALOCAT .*. 


♦♦♦♦D3+******** 

* SVCO - ABEND ♦ 
>* CODE TDK001 ♦ 


****23********* 

* SVCO - ABEND ♦ 
.♦ CODE TDK002 ♦ 


V ) 


ic 386 
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IBM VM/370: Control Program Logic 388 



* MOVE VIRTUAL * 

* CKC FROM * 
♦TRQBLOK TO USBR* 
***************** 


*****J4********** 

* GET TIMB * 

* REMAIHINGIN 


♦SAVE TOD CLOCK * 

* AND VALUE FOR * 

* VIRTUAL CKC * 

***************** 


♦****C4********** 
•CALC. AMOUNT OF* 
•TIME QUEUE TIME* 

* SHOULD BE * 

* UPDATED * 




QREQUEST 

***** D 2********** 

* REMOVE ANT * 
->* PENDING CKC * 

* INTERRUPT * 
***************** 


***** 22 ********** 
*DMK|CHST_^ ^ ^ * 

*~ CALL TO SET * 

* INTERRUPT * 

* REDDEST 


i—>*02 « 


DMKTMR — Virtual CPU Timer and Clock Comparator Simulator 

* 

* 

& 

***** 01G4 ***** 01G4 ***** 01G4 ^ 

*03 * *03 * *03 * 

*^A1* ** i3 * * 14 * ♦ 

* * * 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

I ^ 

‘ * 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 


(Parts 3 and 4 of 4) 


**D4******* 

* RESET * 
•VMCPDTMR (NO-* 
♦LONGER TRACKING* 
* CPU TIMER) * 
*********** 


♦MOVE USER'S NEW* 
*CPU TIMER VALUE* 
* INTO ECBLOK * 


**F5******* 


**G4******* 

* FLAG CPU * 
♦TIMER INTERRUPT* 

* IN VMBLOK * 
*********** 


*****25********** 

♦PUT VIRT. TIMER* 
* VALUE IN * 
♦VMTMOUTQ FIELD * 
***************** 


‘°F1** 


*****j2********** 

* GET TIME * 

* REMAINING IN- * 

* QUEUE * 


TRKSTPT 

*****B3********** 

* VIRT. TIMER = * 

* TRQBQUE - * 

->* (EXTCPTMR - * 

* VMTMOUTQ) * 


*****C2********** 

* CALC. ELAPSE * 

* TIME USER NAS * 

* IN QUEUE * 
***************** 


*****52********** 


♦THIS DIFFERENCE* 
***************** 


*****E2********** 
♦STORE RESULT IN* 

* ECBLOK AND * 

* USER'S VIRT. * 

* MEMORY * 

***************** 


*****C3********** 


♦STORE NEW VIRT.* 

* CPU TIMER IN * 

* USER'S MEMORY * 









01E3 


r —>*AND/OH vmce 
* IN VMNSTi 


VBEXHAir & 

■ VMCFWAIT IN 1 
* VMHSTAT * 


♦SET FOH MSG* 

> DMKTRA013E * 
CONFLICTING 
►OPTION - XXX ► 


DMKTRA " Virtual Machine TRACE Command Initialization (Parts 1 and 2 of 4) 
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f 





•*CSWS TO I 




BEADY OB .* 


**C1 ******* 

> ADJUST FLAG 
TO ENSDBE I/C 
■ TRACIBG SET 


**F1******* 

-'EXCLUSIVE OR** 

'i'lVoi&ttiri* 

* SPECIFIED * 
*********** 


**F1** 

* RESET — 
♦CORRESPOBDING* 


* SET HEB * 

* TERHIBAL FLAG 1 

* BITS * 
*********** 


■brand’*-, 

:H .*-* ^ 




* SET BEH * 
^ PRINTER FLAG 

* BITS 1 


*********** 


**D2******* 

* 'OR* BEH * 

* FLAG BITS * 

* INTO TRACE * 
•CONTROL FLAGS* 

* 6 STORE * 
*********** 


**E2******* 
‘ALSO STORE * 

* UPDATED * 
* PRINTER, 

* TERMINAL, 5 * 
.* RUN FLAGS * 


-*HAS IT * 
.* BRANCH, 
-♦.INSTRUCT, C 


,*IS USER*. 

.* RUNNING A *. ' 
♦ .SHARED SYSTEM.*- 


Ur. 


TRA19 

**D3******* 
♦ADD OPERAND* 

* FLAG TO * 

* ACCUMULATED * 
♦OPERAND FLAGS* 

* * 
*********** 


**23******* 

* SIGNAL AT * 

!■ LEAST ONE * 
VALID OPERAND * 
' HAS FOUND * 


.♦OR INSTRUCT*. NO 

*. TRACING .*-, 

*. BANTED .* I 


♦•♦♦♦FA********** 
♦DMKSCNFD * 

*CALl~GET _ NEXT* 

* OPERAND OR * 

* OPTION * 
***************** 


♦CALL - RESTORE * 
♦ANY OLD ALTERED* 
* INSTRUCTIONS * 
***************** 


.* ANYTHING 


* : U 


.♦IS USER IN * 




* CALL - START * 

* INSTRUCTION * 

* TRACING * 
***************** 


.* TRACING *. 
♦.CURRENTLY IN . 
♦. EFFECT .* 


♦ ENSURE CSH * 
♦TRACING HILL BE* 

* RESET ALSO * 


| DMKTRA — Virtual Machine TRACE Command Initialization 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

'♦YES 

* L> **T: 

* %!** : 

* 

(Parts 3 and 4 cf 4) 


***** 02K1 


**F1******* 
♦GET OLD TRACE* 


♦EXCLUSIVE OR * 

* (BITS INVERTED)* 
* OF OPERANDS * 

* SPECIFIED * 


* FLAG BITS IN * 
♦TRACE CONTROL* 

* FLAGS * 


TRACEHOT V 

**A2******* 

* RETURN * 

* ERROR CODE * 

->*180 TO CALLER; 1 

♦NO PARMS FOR * 


♦»B2******* 


c 


ENSURE * 
>* VMTRBRIN FLAG * 
STILL SET * 


£ 


♦.CURRENTLY IN . 


•KORUN* IS 
INCOMPATIBLE 
WITH ’PRINTER* 




K CONTROL FLAG * 
♦.BITS NON .* 


*. IN EFFECT.* 


—>*CALL - RESTORE * 

* ANY ALTERED * 

* INSTRUCTIONS * 


*********** 


♦ CALL - RETURN ♦ 

♦ TRACE CONTROL * 

♦ BLOCK * 

***************** 


*****£ 4 ********** 

♦DMKgCNWT ^ ^ ^ * 

CALL*”-”GIVE ”* 

* ’TRACE ENDED’ ♦ 

* MSG ♦ 

***************** 


INSTRUCTIONS ♦ 
*************** 
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IBM VM/370: Control Program Logic 390 


| DMKTRC — Virtual Machine Tracing Supervisor (Parts 1 


2 of 13) 


* DEVICE NAME » 
(DASD, TAPE, 

* ETC.l IS * 
♦OUTPUT MSG ♦ 


'E THE OUTPUT*<-, , 

MESSAGE ♦ I | 

t****************i j 


°dY*->J 07D5 


.♦STOP OE*. 

.* RUN AFTER ♦. 
♦. EACH TRACED . 
*. EVERT .♦ 


* VMEXNAIT ♦ 
♦ASD/OR VMCFHAIT* 

* IN VMRSTAT * 

* (AS NEEDED) ♦. 


♦ STORE IN * 
♦OUTPUT LINE: * 
' RESTORE B1 & 

* CONTINUE * 


.* ♦.NO 

♦.I/O INTERRUPT.*-1 


*CC, S PROGRAM* 
->* MASK TOGETHER * 
* POR BC MODE ♦ 


.*■-j |-*. + code £ 


.♦NEH PSU*. 

.* SPECIFY *. 
'.EXTENDED MODE.* 


**#*F3******»4 

* RETURN TO 

♦ CALLER 


♦SET BRANCH * 
* AND/OR * 
* INSTRUCT 
♦CONTROL FLAG * 
* BITS * 



















* SAVE THE * 
DEVICE CLASS * 
VDEVBLOK) * 


*i FH< 


♦FOR COND CODE* 




SA127B 

♦♦♦♦♦A3********** 
♦DMKCVTBH * 


.* “SPECIAL” * 
► . DEVICE CLASS 
*. (CTCA) .* 


-1 


♦♦Cl******* 
♦SET REG FOR* 

* CSW INFO * 

► (LEAVING OCT * 

♦ REAL DEVICE) * 


,1126 S., 




***************** 


:.B*y 


*********** 


CALL - FORM 
REAL DEVICE 
ADDRESS 


**F2******* 

♦ STORE 'CSW* 

* AND VIRT0AL * 

► CSW+4/5 IN 

* OUTPUT MSG * 


**J1******* 
►REAL DEVICE* 
ADDRESS AND ► 
NAME INTO 
OOTPOT * 
► MESSAGE * 


""1 


**f|2******* 

* FOR SIO, * 
♦FILL IN »CAWM 


TRA127A V 
♦TRANBRNG 


***************** 


♦STORE USER'S ♦ 

‘ CAW IN OUTPUT * 


.♦CCW TRACING*. NO 
*. WANTED ALSO .*-, 


lBLE ^ 


t*************** 


**F3******* 


**G3******* 

* SET REGS * 

* (FROM IOBLOK) * 
‘ TO START WITH 


♦BLANKBUF 




♦GO HANDLE tew* 
♦STRING IN THIS *- 
* RCBTASK * 


♦ B5 — -I ( 

IA135* V 


.♦ANY VIRTUAL*. NO 
CCWS LEFT . *- 


* TO INDICATE * 


* PREFIX IN * 
♦OUTPUT MESSAGE * 




**D4******* 


****************:< 


**F4******* 

* STORE * 

* ADDRESS OF * 
♦VIRTUAL CCW IN * 

* OUTPUT LINE * 
*********** 


♦CALL - GET REAL* 
♦ADDR OF VIRTUAL* 


.♦ADDRESS*. 

,* ERROR FOR ♦ « 
, VIRTUAL CCW . 




| DMKTRC — Virtual Machine Tracing Supervisor (Parts 3 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

and 


►*A2********** 


*JTWO HALVES) + 


♦♦D1******* 

♦ADVANCE TO * 
♦NEXT VIRTOAL * 
► CCW FOR NEXT 


* DECREMENT * 
* COUNT OF 
♦VIRTUAL CCWS * 
*********** 




♦STORE ADDRESS* 
‘OF REAL CCW IN < 
* OOTPOT LINE * 


**C2******* 
♦REMEMBER HEAL* 


**E2******* 
♦STORE REAL * 

* CCW (TWO * 
► HALVES) IN 

* OOTPOT LINE * 


****************4 




.♦WAS CCW*. 

.* INVALID *. FES 
► . (RCWINVL SET^.*-> 


.* WAS IDA 
. FLAG SET : 
♦.REAL CCW 




*. DASD DEVICE . 


♦♦A3******* 
‘ ADVANCE TO 


*********** 


.* DECREMENT *. 
. COUNT - ANY , 
♦.REAL CCWS.* 
♦.LEFT .* 


* GET POINTER * 
♦TO NEXT RCWTASK* 

* (IF ANY) * 


* PREVIOUS *. NO 
REAL CCW CP- - 


♦.GENERATED. 


CP- .*-, 

ED.* J 


•‘•THERE LEFT TO. a 




►VIRTUAL IDA*. NO 
^ FLAG SET ^.*-1 


•*IS VIRTUAL *. NO 

*. CCW SAME OP .*-, 

*. CODE .* i 

*‘*YES *05** 


**E3******* 
♦SET OUTPUT * 

* MESSAGE TO * 
♦SHOW A BREAK IN* 

* CCW STRINGS * 


BYTE COUNT 
*.THE SAME .* 


'"I 


♦»F5******* 

* GET ADDRESS * 
♦OF VIRTUAL IDAL* 


***************** 


* GET REAL 

* ADDRESS OF 

* VIRTOAL IDAL 
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1 DMKTRC — Virtual Machine Tracing Supervisor (Parts 5 


**A1 ******* 

* SET FOE * 
*VIRTUAI IDAL * 
♦EXISTENT: POINT* 


*1 


**B1** 

♦SET TO OSE 1 
♦FIRST IDAS IN* 
♦VIRTUAL IDAL TO* 
♦ GET IDAS ♦ 

♦ COUNT * 
*********** 


**Di******* 
♦SET TO USE ♦ 
♦FIRST IDAS INI 
► REAL IDAL TO 
♦ GET IDAS * 
♦ COUNT * 
*********** 


TRA142 V 

**E1******* 

♦ GET THE ♦ 

* BYTE-COUNT * 
♦ (LESS 1) FROM * 
♦THE REAL CCS ♦ 


.* HAS IT A ♦. 
♦.READ BACKHAND.* 
*. OP CODE .♦ 


**G1******* 


*********** 


♦ ENDING ♦ 
—>*ADDRESS FOR FWD* 
♦DIRECTION CCS* 
*********** 


♦REMEMBER R7 =♦ 
♦ COUNT OF BEAL ♦ 
♦ CCHS ♦ 
*********** 


**J1******* 

♦ ISOLATE ♦ 

> 2048-BYTE ♦ 

iOUHDABIES FROM* 
* START S END ♦ 

* ADDRESSES * 
*********** 


♦♦A3******* 


.♦ANY VIRTUAL*. 
*. IDAL AT ALL .* 


**1 


*****& 4 ********** 
♦TRANBRNG * 


‘*1 


**A5******* 
♦GET NEXT REAL* 


ADDRESS VALID.♦- 


**E3******* 


*********** 


*****5>3********** 

*DMKCVTBH_^ ^ * ♦ 

♦ CALL - BINAlY~* 

♦ TO HEX * 

♦ * 


* THE VIRTUAL < 

’♦OUTPUT LINE** 
*********** 


**H3******* 

* ADVANCE TO * 

* NEXT VIRTUAL * 
♦IDAS (IF ANY^* 
*********** 


* STORE NEXT ♦ 
♦ REAL IDAS IN 


*********** 


*****D4********** 

♦DMKCVTBH ^ # * 

*"~clLL - BINARY - * 
* TO HEX * 
***************** 


**E4******* 
♦STORE NEXT ♦ 
♦VIRTUAL IDAS * 
* IN THE OUTPUT * 
* LINE * 
*********** 


♦ ANY IDASS *. HO 


**py******* 

* 'IDAL' * 

—>*IDENTIFIER INTO* 

* OUTPUT LINE * 


♦♦G4******* 


*********** 


► CALL - BINARY * 


***************** 


**J4*****«* 

* STORE FIRST * 
* REAL IDAS IN 

* OUTPUT LINE * 


** YBS 

U. M 


TRA148 V 

♦*D5’******* 
♦ADVANCE TO ♦ 
♦NEXT PAIR OF ♦ 
->*IDAWS (IF ANY) 


* 4c * * * ** * * * * * * * * * * 


*«***F5********** 

♦BIANKBUF ^ ^ + * 

*~"s5l NITIALIzI "* 
♦MESSAGE BUFFER * 
***************** 


**G5******* 

♦DECREMENT HO.* 
♦ OF REMAINING 
♦IDAWS BY TWO * 
*********** 


.♦ANY LEFT TO^. YES 


.*•*• "1 


C^UNT}[ ( 
ADVANCE 


and 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 
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: **1 


♦BYTES; POINT * 


♦****B2***' 

♦DHKCCHSB 


***************** 


**D1 ******* 
♦SEEK PREFIX S* 


*********** 


**E1******* 

♦POINT TO REAL* 
♦SEEK ARGUMENTS * 


*********** 


*****?;********** 
♦DMKCVTBH * * *_* 

*~ CALL~— _ SEEK * 
*ARGS BINARY 10 * 


**G1 ******* 
*STORE REAL * 

* SEEK * 

► ARGUMENTS (6 ' 

* BYTES) IN * 
♦OUTPUT LINE* 

*********** 


** D2 ******* 

* GET THE * 
♦SEEK ARGUMENT* 
'BYTES FROM OUR 
* WORK AREA + * 
*********** 


*****^ 2 ********** 
♦DMKCVTBH * 


***************** 


' IN OUTPUT ♦ 
* LINE * 
*********** 


**G2******* 

■ AND INSERT ♦ 
> IDENTIFIER 1 
*********** 


.*IS VIRTUAL *. 
*. CCS SAME OP . 


TRA159 

***** 22 ********** 
♦TROUSUB 


♦AND DO NEXT CCS* 
***************** 


PROCESS AN I/O 
INTERRUPT: 


INVOKE 

INITIALIZER 

SUBROUTINE 


PROCESS A 
PROGRAM 
INTERRUPT: 


»****C4**»******* 
♦TRAINIT * 

* INVOKE * 

* INITIALIZER * 

* SUBROUTINE * 

***************** 


**D4******* 


*********** 

1 **** 
L >*01 ♦ 




**F4******* 

* ADD X'0080' » 
' TO INTERRUPT 

* CODE * 
*********** 

**** 

*—>*01 * 


'*»A5**»****** 
DMKTRCSI * 


SUBROUTINE 


**D5******* 


♦»F5******* 
♦SET PREFIX * 

* TO I/O; SET ' 

• FLAGS FOR 

YJiiiL/ 


**G5******* 

* GET ADDRESS * 
*OF INSTRUCTION < 
♦FROM VMPSS+4 * 



















■•'1 


PROCESS AN SVC, 
BRANCH, OR FULL 
INSTRUCTION 
TRACE: 


SUBROUTINE 


*.ALL INSTR.* 


* RESET * 
—>*"VMPERPND" FLAG* 

* IN "VMPEND" * 


♦ADDRESS OF * 

< ACTUAL * 
INSTRUCTION 


**C2******* 

* STORE CC 8 * 

♦PROGRAM MASK IN* 

* VMPSW+2 * 


♦INSTRUCTION OF * 


***************** 


**A4******* 

♦SET FLAGS FOR* 
* INSTRUCTION * 
* OUTPUT * 
*********** 


,*OR INSTRUCT*. NO 


**£ 2 ******* 

*CC 8 PROGRAM * 
♦MASK INTO FIRST* 
* BYTE OF 81 * 


**F1 ******* 


**P2******* 
♦STORE R1 IN* 


"-I 


* COMPUTE WHERE * 
*THIS WOULD HAVE* 

* XFER'D TO * 


‘.WHERE WE ARE .* 


***** 33 ********** 

♦COMPUTE 8 FILL * 

* IN ALL NEEDED * 

* FIELDS FOR * 


**F3******* 

* SET 6 RESET * 
* FLAGBITS AS 


*********** 


FLAGS FOR 


.* TRACING *. NO 

->*.INSTRUCTIONS .*- 

*. ALSO .* 


‘ REINITIALIZE 
‘ MESSAGE LINE 



*****E4********** 
♦COMPUTE 8 FILL * 

* IN FIELDS OF * 

* INSTRUCTION * 

* ABOUT TO BE * 

* DONE * 

***************** 


*****F4********** 

* COMPUTE * 

* POSSIBLE * 

♦BHANCH-TO ADDR * 

* ETC. FOR * 

INSTRUCTION 


L>*< 


NEXT TIME 


► RESET * 

FLAGBITS AS 
‘ NEEDED * 




**g5******* 

* SET NEW * 

* 'SVC B2' * 

♦AND/OR 'SVC B1 1 
♦WHERE NEEDED * 


♦ABOVE IF BRANCH* 
* TRACING IN * 

* EFFECT * 


ON .* BOTH OFF# * 

r *. MIXED, OR 
*. BOTH ON 


•'.BRANCH ABOVE 


'>*-1 


*****G5********** 
♦TROUSUB^ * 

* Givi THE ~ * 

♦INSTRUCTION MSG* 

* LINE * 

***************** 


.♦BRANCH *. 
.*8 INSTRUCT * 
‘. FLAGS BOTH 


* 

* 

* 

* 

* 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

and 


DMKTRCSW 

**+*A2****»*i 

* DMKTRCSW 


PROCESS A 
PRIVILEGED 
INSTRUCTION: 


♦SET PREFIX * 

* 8 FLAGS FOR * 
♦DMKTRCPV ENTRY.* 
♦POINT TO PRIV* 

* INSTR 


.♦privileged'*. 

►.TRACE FLAGBIT.’ 


**F1 ******* 
♦SET BRANCH * 
* AND/OR * 
* INSTRUCT 
♦CONTROL FLAG > 


n 


******* 


*. TRACING ON 


*“1 


*SET PREFIX * 

* 8 FLAGS FOR * 
♦DMKTRCSW ENTRY * 


**E2******* 

* GET VIRTUAL * 
♦DEVICE ADDRESS * 
*^(FBOM IOBLOKjj_* 

*********** 


*****, 2**1 

JDMKCVTBH # ^ # J 

*~CALL - IlNAil”* 
* TO HEX * 
***************** 


**G2******* 


**H2******* 

• GET VIRTUAL * 




♦DMKCVTBH ’ 

*~CALL - BINARY - ^ 

* TO HEX (TWO * 

* HALVES) > 


♦STORE VIRTUAL* 


**A3******* 

* . GET REAL * 
->*DEVICB ADDBESS * 
*^FROM IOBLOK)* 


♦DMKCVTBH 


♦STORE 'R' AND* 
*RADD IN OUTPUT * 
* LINE * 


♦STORE REAL * 
*CSW IN OUTPUT* 

* LINE; GO GIVE * 
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♦VMRSTAT: SET * 
* VMEXWAIT 6 
* VMCFWAIT IN * 
* VMRSTAT * 


♦SET REG TO * 

* ADDRESS OF * 
♦TRACE EXTENSION* 


*CLEAR FLAGS* 

* AND ERROR * 

► COUNTERS IN * 


♦*B4******» 

* SET LOCK * 
♦BYTE IN TRACE* 
♦EXTENSION^BLOCK* 

** tr^cT 




.* WAS LOCK *. 
♦.BYTE ALREADY , 


*************** 


♦ BLANK-FILL ♦ 
♦THE OUTPUT LINE* 

* BUFFER * 
*********** 


* RETURN - R1 
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| DMKTRC — Virtual Machine Tracing Supervisor (Parts 9 


DMKTRCPB^^^^ 
* DMKTRCPB 


****A2********* 

* DMKTRCIT * 
*************** 


PUTBACK^. 


* REFERENCE * 

k TRACE CONTROL * 

* BLOCK * 




**D2********** 


* INSTRUCTIONS * 
***************** 


** E 1******* 
♦ALSO CIEAR * 
k 1ST BYTE OF * 
"TREXNSI 11 , 6 
k EXIT. 1 


♦TRANVIRT 

*GET ADDRESS OF * 
*BRANCH-TO PLACE* 


***************** 


**E2******* 

* SATE * 

* INSTRUCTION * 
♦THERE; SET 'SVC* 


**F2******* 

* SET * 

* "TREXVAT" ' 
♦FLAG IF IN EC ' 

* TRANSLATE * 
- NODE 


**B3***»**» 


X'FFFFFFFF 1 


**C3******* 
*GET TREXIN1* 
*= ADDRESS OF * 

> 1ST REPLACED * 
* INSTRUCTION * 


-*. STILL THERE . 


k 2ND BYTE OF « 
THE REAL 
► INSTRUCTION < 
*********** 


.* IS IT *. 
.♦NONEXISTENT*. YES 
*. (ALL FF'S) .*-: 


**E3******* 
.♦SETpTREXINI I 


*********** 


***************** 


*». ADDRESS OF * 
* 2ND REPLACED 
* INSTRUCTION a 


****D5********* 
—>* RETURN - R3 * 


*********** 


♦♦H3******* 

* GET 1ST 2 * 

‘ BYTES OF REAL * 

♦ INSTRUCTION * 


TILL .♦-t 


B2 1 STILL 


k INSTRUCTION ' 


****G5********* 
>* RETURN - R3 * 
*************** 


****H5********* 
>* RETURN - R3 * 
*************** 


**K3******* 

* PUT BACK * 

‘ 1ST BYTE OF * 
THE REAL 
» INSTRUCTION * 


****K4**** 
* RETURN - 


and 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


10 of 13) 


TROUSUB 

♦♦**A1********> 
* TROUSUB - R3 


**51******* 

* SET REGS * 

* FOR BYTE * 
‘ COUNT AND 

* ADDRESS OF * 
♦OUTPUT LINE* 

*********** 


■1 


WANTED ON 


* RESET LfNE * 

* COUNT TO ZERO * 
♦FOR NEXT TIME* 
*********** 


♦STORE UPDATED* 

* PRINTER LINE * 
* COUNT * 
*********** 


.♦OUTPUT ALSO*. NO 


c 


***»*J4********** 


: INSTRUCTIONS 


WANTED ON 
*.TERMINAL .' 


YES .*IS PRINTER *. 
-*. LINE CODNT >0.’ 


* CALL - GET A * 

* NEW PAGE ON * 

* PRINTER * 
***************** 


.♦ERROR 8 OR < 
*. MORE FROM 
*.DMKQCNWT .1 


****C3********* 
—>* RETURN - R3 * 


****D3********* 
>* RETURN - R3 * 
*************** 


*************4 


**B4******* 
♦CLEAR ADDR * 

* OF TRACE * 

* CONTROL BLOCK > 

* (6 FLAG) IN * 
* VMBLOK * 

*********** 


*****C4***** : 


k CALL - RETURN * 
k TRACE CONTROL * 
BLOCK * 


*****D4********** 
♦DMK^CNHT + ^ + * 
*” CALL _ - GIVE * 
* 'TRACE ENDED' * 


♦RESTORE BYTE * 
k COUNT (= 80) 

*********** 


**F2******* 

k SET R3 TO * 
RETURN TO 
k TROUSUB7 ' 


*****G2*i 
*DMK^CNWT ^ 

*~CALL - OUTPUT < 
* LINE TO USER ' 
TERMINAL 


'1 


♦ GO TO DMKDSPCH * 


.♦IS IT LESS ♦. YES 


> ~1 


r) 

V y 




A2 
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v 




♦♦♦*A2******* 
* DHKTRMID 


*****32********** 
♦SCAN FOR FIRST * 


CHARACTER 


.♦KEYNORD*. 
YES .♦ .GT. 8 * 

-*. CHARACTERS 


*****E2********* : 


****************> 


♦SCAN PTTC/EBCD * 

* FIRST COMMAND * 

♦ TABLE * 
***************** 


*****G3********** 

* SCAN * 

♦CORRESPONDENCE * 

—>♦ FIRST COMMAND * 

* TABLE * 

***************** 


*.’ + HATCH -1 


IDENTIFIED 


*****J3********** 
—♦CORRESPONDENCE * 


a 


DMKTRM — Identify Terminal (Part 1 of 1) 
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| DMKODR — User Directory Manager (Parts 1 and 2 of 5) 


c Ilast odevblokI*-. 

*■*. .*’* 7 


♦IS IBIS THE+. 

LAST DSEBID 
*. IN PAGE .♦ 












03G3 




LAST PAGE -1 |-END OF LIST ! 

*'*v. •*'* ...I. 


8ETLIST 

***»*G5**i 

♦DHKFRET 


| DMKUDR — User Directory Manager (Parts 3 and 4 of 5) 
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IBM VM/370: Control program Logic 400 


*****£ 1 ********** 
♦DHKFREE * 

*_*_*_*_*_*_*_*_* 

* CALL TO GET & * 

* WORK BUFFER * 

* IOB+CCW+DATA * 
***************** 


**»**B1********** 


*************** 




* RELOCATE CCW * 
♦STRING INTO THE* 

* BUFFER * 


***************** 


* SET THE * 
♦RETURN ADDRESS * 
♦TO (IORETURN) * 


*****£ 1*1 
♦DMKIOSRQ 

♦”cALL*TO READ * 
♦ VOL 1 S ALLO REC* 
***************** 


****p1********* 

* ♦ 
♦ GOTO DHKDSPCH * 
*************** 


♦GET POINTER TO ♦ 
♦DIRECTORY FROM * 
♦ V0L1 REC * 
***************** 


, IS IT VALID .♦■ 


n 


*+***F3**i 

♦POINT TO FIRST ♦ 

♦ DIRECTORY CYL ♦ 

♦ IN ALLOCATION * 

♦ TABLE * 


♦ IS IT *. NO 
ALLOCATED *.* -, 


SY IN !*-, 

I*..’* n 


' SET VM PSH CC * 


***************** 



INCE8 



OUt 










DMKUNT 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 










05E5 
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| DMKUSO — Process DISCON,FORCE, and LOGOFF Commands; 


********* 

* DMKUSOLG * 

* (LOGOFF) * 






<+ opt: 


««D1******* 

** £ 1*811 % 
♦ADDRESS - DON'T' 
♦RUN VM,DON'T * 
♦ POST READ ♦ 
*********** 


**E1******* 
♦RESET FLAGS* 
♦IN VBOSTAT AS* 


* SIGNAL NO * 
♦FREE STORAGE IN* 
*^USE FOR MSG** 
*********** 




j->*CONTINUES) HERE* 


**************** 


US011 V 

*****B2********** 
♦DHKFREE * 


CALL - GET 
STORAGE FOR 
MESSAGES 


***************** 


► SET FOR * 

RETORN TO 
* USOCONT X 

* * 
*********** 


JDMKgCNHT******** 

* _ CALL - LOGOFF'* 
♦MESSAGE TO OSER* 


****F2**< 

♦GO TO DMKDSPCH ■ 


DMKOSOFL 
****A5 : 

* DMKUSOFL 

* (FORCE) 


**B5******* 


*********** 


**C3******* 


REAL *. 
FORCE* *. 5 
(R2 = .*- 


•*NON DOING A*. NO 

'. CONSOLE .*- 

♦.FUNCTION .* 


OSOSTK 

*****04 ********** 
*DMKSTKCP^_ # ^ * 

->*CALL~-~HAvI CP * 

♦STACK CPEXBLOK * 
* * 
***************** 


**E3******* 

* REFERENCE * 

* PENDING * 

♦LOGOFF LIST AT 

* DHKCFMLL * 


**F3******* 

* ADD THIS * 
♦BLOCK TO THE * 
♦TOP OF THE LIST* 

************* 


'.COMMAND 


♦wlii/* 

*ADDR: po::nt TO * 
♦FORCED USER'S* 

* VMBLOK * 


* B5 # *-> 02J1 

Dso iiS* x E 5 j******** 

♦DMKFREE* ^ # + * 
*” CALL - ~ 


♦♦F5******* 
♦SET RETURN * 

* ADDRESS FOR * 
* USOJOIS OR 

* OSOJOINA X 
*********** 




♦ADJUST R 15 BY* 

* +4 (OR 0) FOR * 
* RETURN * 


* ALTER * 
♦SATEAREA RETURN* 

* TO DMKDSPCH * 


'ON *.* -1 


Logoff 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 

ES X 

”1 * 

**** 

02 * 

<1* * 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 


Routine (Parts 1 and 2 of 6) 


CKFORCE V 

*****£<] ********** 
♦DMKSCNFD 


***************** 


•* MISSING 


■1 


♦♦♦♦A3********* 

* DMKUSOFF * 

* (USEROFF) * 


♦CONTINUES) HERE* 


♦.FROM COMMAND . 


OSOJOINA 

♦♦B3******* 

* SAVE * 

♦ PARAMETERS * 
♦FROM CALLER (IN* 

* GPR2) * 


ERROR20 

**C2*x 
* SET FOR * 
♦DMKUS0020E - * 

->*0SERID MISSING X 

* OR INVALID * 
*********** 


***************** 


ERROR45 

**E2******* 

* SET FOR ♦ 
♦DMKUSO045E - x 

->* USERID NOT 

* LOGGED ON X 


♦+F1******* 

♦ * 

♦ REMEMBER X 
♦VMBLOK ADDRESS 

♦ OF USER X 

♦ * 

*********** 


♦ CALL - RESET 

♦ MEASUREMENT 

♦ REQUEST 
***************x 


*****35********** 

♦DHKFRET^^ ^ # _* 

* CALL - RETURN * 

* TRQBLOK * 
***************** 


♦DMKSCHDL * 

*~ call - set * 

* SCHEDULE FOR * 

* DMKDSPCH * 
***************** 


**F2******* 


*********** 


***************** 


DMKERMSG HILL 
RETURN TO OUR 
CALLER VIA SVC 


US020 

*****D4********** 
♦DMKLOCKQ * 

*_*_*_*_*_*_*_*_* 

* CALL TO LOCK * 

* THE USERID * 
***************** 


***************** 


****»F4********** 

♦DMKLOCKD * 

♦CALL*”TO UNLOCK - * 
« THE USERID * 
***************** 


♦ USER'S PAGES * 
***************** 


♦♦J1******* 




' VMV370R - 
EXTENSION 
'. BLOCK . 


'"1 


*****05********** 
♦DMKVATBC # ^ ^ * 

*call - - - r5lIase - * 

* SHADOW TABLES * 
***************** 


* REFERENCE * 
♦TIMER REQUEST* 
♦^BLOCK^FOR CPU** 

*********** 


'.DOES IT EXIST.X 
*. . * 

’♦YES 


* CALL - RETURN * 

* IT * 

***************** 


♦♦H5******* 

* REFERENCE * 
♦TIMER REQUEST* 
♦BLOCK FOR CLOCK* 
* COMPARATOR * 


♦YES *03. X 


'.IS IT QUEUED . 
























***** 02K5 




DS023F V 

♦**** B 1********** 
♦DMKFRET 


* CALL - RETURN * 

* CONTROL UNIT * 

* BLOCKS * 

***************** 


*****C1********** 


**Oi******* 

♦REFERENCE THE* 

* SEGMENT TABLE * 


'• DOES IT EXIST.* 
** YES 


IS °***< 


**G1* J 

* REFERENCE * 

* CHANNEL, 1 
> CONTROL UNIT, 

* AND DEVICE * 

* BLOCKS * 
*********** 


*•DO THEY EXIST.* 


US028 

** 02 ******* 

* REFERENCE * 
♦TIMER REQUEST* 
->*BLOCK FOR REAL * 


►.DOES IT EXIST .* 


* CALL - RETURN * 

* IT * 

***************** 


*YES 

L>*~ 


* APPROPRIATE * 
♦VMBLOK AND CORE* 

* TABLE * 

* POINTERS * 

*********** 


♦RESET RESERVE* 

* FLAGS IN CORE *- 
♦TABLE ENTRIES* 


**A3******* 

* REFERENCE * 

‘ SYSTEM * 

OPERATOR'S 
* VMBLOK * 

*********** 






* CALL - GET 

* STORAGE FOR 

* MESSAGE 
****************. 


**F3******* 

♦SET UP LOGOFF* 
*MSG FOR SYSTEM * 
* OPERATOR * 
*********** 


**C*1 ******* 

* DECREMENT * 
♦COUNT BY 1 IF* 

* HE HAS REALLY * 
* LOGGED ON * 


**F4*> 

* » 
*ADD 'FORCED' * 
* TO.LOGOFF 
* MESSAGE * 
*********** 


.* HAS USER 
*. DISCON- 
*. NECTED . 


•-1 


US085A 

*****G4**>i 
♦DMKQCNHT + ^ + * 

*~CALL - LOGOFF* 1 * 
* MESSAGE TO * 
♦SYSTEM OPERATOR* 


**H3******* 


CALL - FORM * 
TERMINAL DEVICE* 


* CALL - RETURN * 
♦TRACE EXTENSION* 

* BLOCK * 


| DMKUSO — Process DISCON, FORCE , and LOGOFF Commands; 


* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

Logoff 


***** 03H4 


**A1******* 


♦ACTIVE USERS » 


•1 


* COMMAND AND * 

♦ POINTER TO NEXT* 

* VMBLOK * 
*********** 


**B3******* 


► IN SYSLOCS 


* RESTORE * 

* COMMAND AND * 

♦ POINTER TO NEXT* 

* VMBLOK * 

*********** 


US094 

*****E2********** 
♦DMKFRET * 


***************** 


*»F3*****»* 

* RESTORE * 
♦FLAG - STILL * 
♦THE OPERATOR'S,* 


**G3******* 

♦FLAG VMPSH * 

* IN DISABLED * 
HAIT STATE, 

* FINISH OP. * 
*********** 


* SWITCH R11 TO* 
♦POINT TO SYSTEM* 

* VMBLOK NOW * 


* AND CHARGE * 
♦SYSTEM FROM NOH* 


US098A V 

****** 4 ********** 
♦DMKFRET 


, STORAGE IN 


US099 

****B4********* 

* RETURN TO * 
->* CALLER *< 


DHKUSODS 

****A5********* 

* DMKUSODS * 

* (DISCONN) * 

*************** 


,*IS USER*. 
ALREADY 
DISCON- 
, NECTED . 


L>* 


Routine (Parts 3 and 4 of 6) 


• : ‘-j 


**D5******* 

► SIGNAL 
DISCONNECT 

► ENTRY 


***** E 5***««**, 

:° s *£^l,_*_*_ 

* CHECK FOR 

* POSSIBJ.E_HOLD 


CALL - GET 
STORAGE FOR 
MESSAGES 


* CONSTRUCT * 
♦DISCONNECT MSG * 

* TO USER * 
***************** 


**H5******* 


*****j5********* 
♦DMKQCNHT , , , 

♦CALL - DISCONN - 
* MSG TO USER 


♦***K5********* 
*G0 TO DMKDSPCH * 
*************** 
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| DMKUSO — Process DISCON, FORCE, and LOGOFF Commands; Logoff Routine (Parts 5 and 6 of 6) 


* CALL - FORM * 
♦TERMINAL DEVICE* 

* ADDRESS * 


* DELETE * 

* TRAILING * 
♦BLANKS (IF ANY)* 


**to b tIrminIl** 

♦RDEVBLOK, FLAG ■ 









YAT&BCO 


►:* ae tablIs ow *: 

*. PRESENT .* 


* TORE OFF * 
♦STATUS BITS IH < 

* VMESTAT * 
*********** 


(_*_*_* 
->* VALIDATE * 

* CONTROL * 

♦REGISTER VALDES* 




I***************: 


****F1**4 

* RETURN - R14 * 

*************** 


.♦ARE C-REG 0*. NO 

*. AND C-REG 1 .♦- 

*. VALID .* 


.♦NAS VIRTUAL*. 
•. C-REG 0 .* 

*. LOADED .* 


* SANE PAGE *. 
. AND SEGMENT . 
*. SIZES .* 


*********** 


**GET SAVE AREA** 


**G2******* 
*SET SHADOW * 
♦C-REG 0 FROM * 
♦VIRTUAL C-REG 0* 


,*WAS VIRTUAL*. HO 


.♦HAVE HE*. 
.♦STOLEN ONE * 
—>*.OF VM*S PAGES 


1 


* COPT VIRTUAL * 

* SEGMENT TABLE * 
♦TO REAL STORAGE* 


*****j3********** 

*ZAPSEGS^ ^ * 

* INVALIDATE * 
♦SHADOW SEGTABLE* 
***************** 






♦****D4********** 
♦DMKVATBC ^ + + * 

*CALL _ - RElIaSE * 

* ALL ACTIVE * 

* SHADOW TABLES * 
***************** 


.* MORE THAN *. TES 
*.256 SEGMENTS^.*-^ 


♦CALL - REBUILD * 

* SHADOW TABLE * 

* ARCHITECTURE * 
***************** 


****F4*' 

* EXIT - SVC 12 * 
*************** 


, ALIGNED .* 


*«VMBADCR1* If 
* VMESTAT OF 
* VMBLOK 


* 'VMBADCRO' It 
VHESTAT OF 
* VMBLOK 


RETURN - R8 


—* RESET SHADOW * 

* SEGMENT TABLE * 

* FROM COPT * 
***************** 


DMKVAT — Virtual Storage Manager for EC Mode Virtual 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

Machine 


CALLED VIA BALR 


CONTROL REGS 


♦REGISTER VALDES* 
***************** 


****D1 *' 

* RETURN - H14 


* REAL STORAGE * 
***************** 


SHADOWS* ^ ^ 
SETUP™SHADOW ' 


«3!i, 




*****62********** 

* CONSTRUCT * 
♦SHADOW CONTROL * 

* REGISTER ZERO * 

* FROM VIRTUAL * 

* C-REG 0 * 

***************** 


**H2******* 

♦INDICATE THAT* 

> SHADOW TABLES * 
* ARE ACTIVE * 
*********** 


,****63*********' 
■ USE STANDARD ' 
C-REG 0 VALU1 


♦INDICATE THAT* 

* SHADOW TABLES * 
* ARE ACTIVE * 


► SEGMENT TABLE < 

**********4 


TES -*ARE SHADOW *. 
*. TABLES 
*. PRESENT .* 


**D3******* 
♦FORCE MINIMUM* 
>* SEGTABLE = 16 * 
* SEGMENTS * 
*********** 


c****E3********** 
‘GETSHAD^ * 

r tiATB - MINIMUM - * 
iEGHENT TABLE * 
**************** 




*****04********** 

* SET SHADOW * 
♦SEGTABLE LENGTH* 

* AND OHIGIN IN * 

* ECBLOK * 


c 


*IS VIRT*. 

.- SEGTABLE *. 
->*. LONGER THAN . 
* SHADOW .* 
'.TABLE. * 




INVALIDATE 
♦SHADOW SEGMENT 
* TABLE 

****************> 


****64********* 

* RETURN - H8 * 
*************** 


REALLOC 

*****E5********** 

♦ GETSHAD * 


•****p5********** 
♦COPT OLD SHADOW* 
♦SEGTABLE TO NEW* 
♦TABLE AND CLEAR* 
* EXCESS * 
***************** 


*****65********** 

* EXCHANGE * 

* SEGTABLE * 

* POINTERS AND * 

* LENGTH IN * 

* ECBLOK * 

***************** 


* CALL DMKFRET * 

* RELEASE OLD * 
♦SHADOW SEGTABLE* 
***************** 


that does Paging (Parts 1 and 2 of 11) 
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DMKVAT — Virtual Storage Manager for EC Mode Virtual Machine that does Paging (Part 3 

* 


ind 4 of 11) 


* FORCE CORRECT * 
♦ALIGNMENT CLEAR* 
♦TABLE TO ZEROES* 


♦****D3********** 
♦MOVE 16 ENTRIES* 
*FROM VIRTUAL TO* 

* COPY SEGMENT * 

* TABLE * 



I * FREE S3 
* FOR NEl 

************4 










DMKVATLA 

****A1****** 

* DMKVATLA 


DMKVATLA IS 
:alled via svc 
FBOM DMKPBVLG 
FOB 'LBA' 
SIMULATION 


BEJOIN .*. 

D1 *. 

YES .*ABE SHADOW** 


♦DMKVATHD 1 

♦"call dhkvathd"* 

♦ ALLOCATE SHADOW* 

♦ TABLES * 


TBNCHEK .*. 

G2 ♦. 
.*IS THIS*. 

->*I*SIMULATION 


* *YES 

*YES *06 * 

| * A4* **** 

* * *05 * 09D1 

* * H3 **-1 0904 

V TBNEXCP V 

*05** 09G2 

* H4 *—| 09J2 

:**** 1 roil 

VATEXCP^^V^^^^ 

* 

* 

********* 

. 

►SBCHPTE * 

l-FIND _ AiDBESS - OF* 

** ** * SET * 

** SVC 16 - ** * IHTEBBUPT * 

**DON'T BETUBN **->* CODE X 1 12 1 *— 

** - •TRANS' - ** 

->** FOR VIRTUAL ** 

* 

TBNEXIT r 

****H1**“ 


! TABLE .*-. 

>IL ABLE. * i 

!. .** ***** 

♦NO *06 * 

I—>*07** ***** 


| DMKVAT 


Virtual Storage Manager for EC Mode Virtual Machine that does Paging (Part 5 and 6 of 
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410 


1 DMKVAT — Virtual Storage Manager for EC Mode Virtual 


*. SIHULATION .*- 


—>*.SEGMENT ERROR. 


n 


.♦PAGE TABLE * 
*.LENGTH ERROR 
*. = CC 3 .1 


"I 


.* SEGHENT *. YES 

‘.UNAVAILBLE = .*- 

*. CC 1 .* 


**D2******* 

* HOST BE * 
♦SEGMEHT TABLE* 


* INTER 
CODE X 
‘ SEGH 


CALLED VIA SYC 
TO TRANSLATE 
THIRD-LEYEL 


♦»C4******* 

* SET SNITCH * 
♦INDICATING POLL* 

* TRANSLATION * 


n 


SHADSET 

****A1********* 

* UPDATE SHADON * 

* PAGE TABLE * 
ENTRY 


k *i mi 


********** 


*************** 


*********** 


*. SUCCESSFUL .*- 


* REAL PAGE * 
■ ADDR IN PAGE 

* TABLE ENTRY * 
*********** 


****E1********* 

* RETURN - HI 5 * 

* * 
*************** 


.* IS IT AN 


•*DOES SHADOW*. 
‘. PAGE TABLE .« 
*. EXIST .* 


SERIOUS ERROR 
—> IN SHADOW TABLE 


****D3**4 

* SVC 0 - ABEND * 

* CODE VAT002 * 
*************** 


FOR TRANSLATION* 
ENTRIES * 
*************** 


**D4******* 

* ACCESS * 
*ECBLOK, COPY ■ 


********* 


1 ALLOCATE NEW * 
• SHADOW PAGE * 


****E4********* 

' RETURN - R6 * 
*************** 


Machine that does Paging (Part 7 and 8 of 11) 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

4c 
4c 
4c 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

4c 
* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 


■ HARK SHADOW 4 

. tttUHZi , 


* SET SHADOW * 

* PAGES * 

* UNAVAILABLE * 
***************** 



( 


;s S 






09K4 


♦COMPOTE SEGMENT* 

* TABLE ENTRY * 

♦ DISPLACEMENT ♦ 


♦ACCESS ECBLOK, 
♦COPY SEGTABLE, 
* ARCHITECTURE 


♦♦DS******* 
♦SET RETURN ♦ 

♦ CODE ZERO, ♦ 

► ENTRY ADDRESS « 

* IN R1 ♦ 


WITHIN 

*. VIRTUAL .♦ 
♦.MACHI.* 


♦SET INTERRUPT* 
"CODE X'11' PAGE* 
* EXCEPTION * 


| DMKVAT — Virtual Storage Manager for EC Mode Virtual 


:hine that dees Paging (Parts 9 and 10 of 


Program Organization 












IBM VM/370: Control Program Logic 412 


| DMKVAT 


Virtual Storage Manager for EC Mode Virtual Machine that does Paging 


(Part 11 of 11) 


CHEKPTE 

♦♦♦♦A2********* 
♦CHECK FOR VALID* 

♦ PAGE TABLE ♦ 

♦ EHTRY * 


*****B2********* : * 

♦ EXTRACT PAGE ♦ 

♦ ADDRESS FROH ♦ 

♦ PAGE TABLE ♦ 

♦ EHTRY * 
***************** 


.* ARE 'MOST ♦. ’ 
‘.BE ZERO' BITS. *- 
♦. ZERO .♦ 


♦♦♦♦D2**i 
♦ERROR EXIT R15 ' 
*************** 


♦HITH^COHDITIOH * 


I 

! 

i 




♦CALL - SIMULATE* 

* ENDING STATUS * 

♦ NOT READY DEV. * 


*02** l_>*04** 

* F3F*-^, J C3^* 
**** _ **** 
:aucib v 


| DMKVCA — Simulate Channel-to-Channel Adapter between two Virtual Machines (Parts 1 and 2 of 
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| DMKVCA — Simulate Channel-to-Channel Adapter between 


Virtual Machines (Parts 3 and 4 of 19) 


■ RESET 

■ EHD-OF-FILE 

■ LATCH IF SET 


|->* FROM CHXBLOK 

l*** *********** 


* CALL - STACK 
► CPEXBLOK FOR 

* EXECOTIOH 




.* DISAELI *. XES 
► .COHPATIEIIITY.*- 


* SET X-SIDE * 
—>*INHIBIT COHPAT.* 

* LATCH * 


* OR COMHAHD * 
♦BYTE IH VIRTUAL* 

* STORAGE * 


-1 i->* CPEXBLOK AI 

I I *RESTART FLJ 
********* *********4 


L >*I COEEIID 

*. CHAIRED .* I 

* "*. ,*' **** 
















*BOILD CEEXBLOK * 

* FOB X-SIDE 1 

* RE-CONNECT * 


* TAKE X-SIDE * 
♦VIRTUAL MACHINE* 

* ODT OF IOBAIT * 


| DMKVCA — Simulate Channel-to-Channel Adapter between 


Virtual Machines (Parts 5 and 6 of 19) 
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IBM VM/370: Control Program Logic 416 


- Simulate Channel-to-Channel Adapter between two Virtual Machines (Parts 7 and 8 of 19) 


**B2******* 


♦BRANCH VECTOR =* 


.ACTIVE V-SIDE•* 


BEi Sf$I* D3 ********** 

♦RBSEO FL^ t t t * 
- >*~rIset _ x-sidI "*♦ 

* END-OF-FILE * 




* SET X-SIDt- * 

> STATUS UNIT * 
♦EXCEPTION EOF* 
*********** 

1—>*03** 


**E2******* 

* v SET GR3 * 
♦BRANCH VECTOR = 

* •DATATRN• * 


YES .* IS CCB *. 
-*.for»ard 2 read + . 


**J2******* 

► SIT CBXBLOK t 
FLAG = READ 

> BACKWARD * 
*********** 


****K2********* 

* BRANCH - GR3 * 
*************** 


SIMULATION 


CALLED VIA SVC 
FROM DMKVIOEX 


SIMULATION 


♦INITIALLY ZERO * 




TIOCSOC 

** c1 ******* 

* SET CSW * 
♦STATUS = UNIT* 
♦CHK, CONE CODE ♦<— 


LATCB SET 


♦RESET END OF * 

♦ BILE LATCH IN ♦ 
♦ CBXBLOK 
*********** 


.♦ ATTENTION ♦. 
—>♦. PENDING FROM . 
♦. Y-SIDE .♦ 


*********** 


<************** 


♦♦J2******* 

♦SET ATTENTION* 

' PENDING IN *- 
* X-SIDE * 


'Y 


*********** 

**** 

>—>*01 < 


IS THE * 
ADAPTER 
. COUPLED .* 


* RESET ANY * 

* DEFERRED ATTN * 

* IOBLOK'S * 
***************** 


**G5******* 

* SET GR10 * 

VECTOR TO 

* 1 VCAEXC1 1 =1 

* * 

*********** 


♦.X-SIDE ACTIVE 


♦NO *09 ♦ 

■ **** * 61 * 
*—>*09 * * * 


*********** 








09K5 



k CHXB10K AND 
♦CHIBLOK FROM * 
* VDEVBIOKS * 


.♦IS THERE A > 
-♦.DEFERRED ATT1 
*. IOBLOK . > 


♦ DETERMINE * 
■WHICH BLOCK IS 
♦REAL ADDRESS ♦ 


I *STORAGE FOR A1 


♦RESET ATTN ♦ 

* FROMX-SIDE, ♦ 

► TAKE I-SIDE CDT + 

♦ OF WAIT * 


| DMKVCA — Simulate Channel-to-Channel Adapter between two Virtual Machines (Parts 9 and 10 of 19) 
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IBM VM/370: Control Program Logic 


DMKVCA 


Simulate Channel-to-Channel Adapter between 


Virtual Machines (Parts 11 and 12 of 19) 


NO .* IS Y-SIDE *. 
-*.E0F LATCH SET. * 

* * YES 


.*IS THEBE A *. 
DEFERRED ATTN.* 
*. IOBLOK .* 


* RELEASE * 
♦DEFERRED IOBLOK* 

* - BESET ATTN * 



♦SET INCORRECT* 
LENGTH IN * 
*Y—SIDE STATUS* 


* * 1 131 
**** V 13] 


VECTOR - GB10 








1262 



.♦iDIPTEB IN *. 1 
—>*.COMP»TIBILITI.*- 
*. HODB .* 


► VECTOR * 
'BECONCT* INC * 
* IEN TO READ * 

•SHI.—* 


| DMKVCA — Simulate Channel-to-Channel Adapter between two Virtual Machines (Parts 13 and 14 of 19) 


Program Organization 
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i 



IBM VM/370: Control Program Logic 420 


- Simulate Channel-to-Channel 


BEAD BACKWARD 
REQUIRES 
CHARACTER ORDER 
INVERSION 


.♦READ BUFFER*. YES 


' DEL-HD LOOP * 


RDBACKl V 

♦♦♦♦*C2********** 

* INVERT DATA * 
♦WHILE HOVING TO* 
♦DEL-HD BOUND ON* 

* READ * 


RDEACK2 V 
*****D2*» 

* SETUP FOR 

* INVERSION OF *DCNE 

->* DBL-HD AT A *- 

* TIME * 


RDBACK5 

♦♦D3******* 
* ADJUST 
ADRESSES. 


>* COUNTS F06 * 

" MISALIGNED + * 


*********** 


3aI 2 register - 

[Is^eP^I 

ORDER 


BDBACKJ^ 


:**R3 ********** 

INVERT END OF * 
DATA SINGLY *— 


RDBACK7^ 




*********** 


Adapter between two 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
❖ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


Virtual Machines (Parts 15 and 16 of 19) 


FIGURE OUT NEXT 
DATA SEGMENT 
FOR TRANSFER 


.* BORE DATA *. 1 
*. COUNT THIS .*- 


**D3******* 
♦UPDATE IDAH* 


r* 


.♦IS H-0 BYTE*. 

. OF IDAH = .* 

ZERO .* 


5T T IDAW 


DATABID 
* S i*:**coHBJC: 


r 


ALIGNED^.*" 

♦ NO 

| **** 
l_>* * 

* S3 * 


♦****P3********** 

♦PICK FIRST DATA* 

* ADDRESS FROM *— 

* IDAH * 

***************** 


DATAFHD ’ 

*****E4* j 
♦COMPUTE LENGTH * 

* FROM START TO * 

->* 2048 BYTE * 

* BOUND. * 

***************** 


DATAEND 

**P5******* 

♦SET REGS TO* 

* MOVE FULL- * 
->* AMOUNT THIS 

* TIME * 


*16 * 

* G3 *-. 

MACC3 V 


17E1 


.* IDAH * 
*. CORRECTLY 
*. ALIGNED .* 


**G3******* 


*********** 


■n 


**G4******* 
♦UPDATE REGS* 
♦FOR COUNT TO * 
♦MOVE THIS TIHE * 
* AND NEXT * 


)ATACC0 : 


*H3********* 




* UPDATE DATA * 

* START ADDRESS * 
♦FOR NEXT MOVE* 




* UPDATE REGS * 
♦FOR NEXT START * 

* ADDRESS * 


****K5********* 









***** 16B4 


IINED^I*-1 


CLEAR DEFERRED 
ATTENTIONS FOB 
EOTB SIDES 


**i4******* 

* SNITCH TO * 

* THBICK OF ' 
■ Y-SIDE USES 

* SNAP CPU * 

* TIBER * 


**A5******* 

* SNITCH TO * 

* VBBLOK OF < 
‘ X-SIDE USER, 

* SNAP CPU ' 
TIBER 


*********** 


< VALIDATE HEN 


'n 


DATANTC^ 


► 'TIC• AFTEB*. NO 


*. DATA CHAIN 


* 02 ******* 
♦’pick UP NEN * 
—>* DATA ADDRESS 
* AND COUNT * 

*********** 


1—>*16 


* ' TI< 

POINT! 
*TI< 

*. 

‘*YES 


NTS 1 
TIC' 

*YBL 

L>*16*1 


*+** B 5********* 

K RETORN - GR14 * 
******** 


♦RESET X—SIDE * 
♦ BED OP FILE 


, ATTH IOBLOK . 


♦FRETIOB 


RELEASE THE 


.* IS Y-SIDB *. 
-*.ECF LATCH SET. * 


♦★G3******* 
♦RESET Y-SIDE * 

% EMD lS?cI I1E ' 


NO .* DEFEBEED *. 
<—*. ATTN IOBLOK . 


■ BETUBN - GH5 


| DMKVCA— Simulate Channel-to-Channel Adapter between 


* 

* 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

two 


*CALL - BELEASE ' 

* IOBLOK FBEE ' 

* STORAGE 


VIEWPOINT 


SENSE ON UNIT 


**** 01 ********* 

> BETUBN - GR 3 * 

*************** 


>*. BITS VALID 


**D2******* 

■ COHPABE CCN « 


“•-I 




' RETURN - GRH 


FOR READING 


.♦IS CAW KEY * 


♦STORAGE KEY VIA^ 




t*D5******« 


' STORAGE KEY < 


C 


.. -*GB14** 

->*WITH COND CODE •< 
*************** 


3 .*IS H-0 EYTE*. 
—*.0F IDAN ZERO^.* 


****E5********* 

* RETURN - GR14 * 
♦WITH COND CODE * 
*************** 


**G3*4***«* 

* * 

> SET PCI IN ' 
CSN STATUS 


Virtual Machines (Parts 17 and 18 of 19) 
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DMKVCA — Simulate Channel-to-Channel Adapter between two Virtual Machines (Part 19 of 19) 


■ CALI - FREE 

> STORAGE FOR A 

■ CPEXBLOK 


♦Y-SIDE VHBLOK* 

► 7given IN * 
* CHXBLOK) * 




< SAVE FLAGS 
PASSED BY 
► DHKVDB 


CALL- GET 
STORAGE FOR 
SAVEVCH 


* SWITCH TO * 

* ATTACHEE'S * 

* VMBLOK * 

***************** 


♦POT ATTACHEE * 
♦ - DETACHEE IN 
♦CONSOLE WAIT * 


♦STORE CHANNEL* 

* NUMBER IN ♦ 
♦DEVADDR FIELD* 
*********** 


**G2******* 




************4 


.* REAL *< 
**CHANNEL BLOK , 
*. FOUND • * 


•T 


■T 


♦ERROR MESSAGE* 
•* DMKVCH048E * 


* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


n 


***** 01K1 


V : ’~l 


*****B2********** 

* LOCATE USER * 

* VMBLOK OWNING *< 

* THE CHANNEL * 
***************** 


' CHANNEL » 
ALREADY 
DEDICATED. * 


* POT NAME OF * 
♦OSERID IN ERROR* 


*********** 


*********** 


♦ERROR MESSAGE* 
—>* DMKVCH132E * 


****************! 


♦SET SCAN FOR * 

* 32 CONTROL 

* UNITS * 


.* DOES C.U. *. 1 


“1 


, *DETACHING A*. YES 
^ CHANNEL *.* -| 


* * _ j 04F1 

:H129 V 


* U *< 
* K<* * 


| DHKTCH — Process ATTACH and DETACH Channel Commands (Parts 1 and 2 of 6) 
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IBM VM/370: Control Program Logic 424 


| DMKVCH — Process ATTACH and DETACH Channel Commands (Parts 3 and 4 of 6) 


HO .* DASD TYPE *. 
j- ■*.* DEVICE 


GET INDEX > 
3VICE POSTION < 
FBOH C.O. * 


BELONG TO CP^.*-^ 



■ FIND CHANNEL 

: ““dedicated 5 











03G2 


o 




***** 01H1 


**A2******* 

* BESET * 

* DEDICATED * 
♦CHANNEL BASK IN* 

* VHBLOK * 


**B2******* 

> SET OP 4 

RESPONSE 

► MESSAGE * 


***************** 


*****22**4 
♦DMK^CNWT ^ f * 

CALL- SEND * 
♦RESPONSE MSG TO* 
* ATTACHEE * 
***************** 


*****F2********** 


*****g2********** 

♦DMKgCNHT __ ^ * 

* SEND SAME * 
♦RESPONSE MSG TO* 


FRETMSG 

♦***+K1*******4 

•DMKFRET 


‘ .CHANNEL BLOK 


LOK^.*—| 


.♦IS CHANNEL 4 
•. DEDICATED 


♦*C5******» 




I **** 

4—>*01 4 


: D4 ******* 




*DMKf£CNWT ^ ^ 


n 


******♦*******♦♦♦♦♦♦%* 
*01^* __ 


* 

* 

* 

♦ 

* 

* 

♦ 

* 

* 

♦ 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 


♦DEDICATE FLAG* 


| DMKVCH — Process ATTACH and DETACH Channel Commands (Parts 5 and 6 of 6) 
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IBM VM/370: Control Program Logic 426 


Console I/O Simulator (Parts 1 and 2 of 


9 ) 


*****52********** 

* INCREMENT * 

* DEVICE I/O * 

* COUNT * 


*****C2********** 


***************** 


*****£)2 ********** 

* REMOVE USER * 
♦FROM EXECUTION * 

♦ WAIT * 

***************** 


*****32********** 


***************** 


***************** 


♦ •VALID OP CODE**- 


i 


FNOTE 
****„**** 

* SET CHANNEL * 
—>* PROG. CHK. IN * 

* VIRTUAL CSW * 
***************** 


* J3 *-> 03H2 




.♦CCW^PCODE *. + no 

■ *. /(i§NSE)Y *' * | 


♦****K3*♦♦**♦♦**♦ 

* PUT DE IN CSS * 

* FOR EXCEPTION * 

* CONDITION * 


TO:H3 

8iSi 

04F2 


* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

* 

* 

♦ 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 


*02 * 

* B2 *-1 C 

IF1** V 


<****B2********** 

‘ SET CHANNEL & * 

■ DEVICE END IN *<- 

■ VIRTUAL CSS * 


**»**A3********** 

* RESET VIRTUAL * 

* SENSE BYTE * 


[*********** 


5 .*CCH OPCODE * 
-♦. .EQ. OB 
*. (ALARM) .* 


• IMMEDIATE * 


.*CC» OPCODE 
*. .EQ. OB 
*. (ALARM) . 




VCNDTACW .*. 


•*. CCS OPCODE .* 


*****D2********** 
♦DMKQCNWT * 

*—*—*—♦—*»♦.— *«»*~* 

* CALL TO WRITE * 

* ALARM MSG * 
***************** 


*02 1 


*****D3********** 

* SET INTV. REQ. * 

* IN VIRTUAL * 

* SENSE BYTE * 
***************** 


FLAGTEST . 


03C1 

0331 


;°fY*. 


>. FLAG ON .*<-1 

*’*•*. .*•*'* ***1 


***************** 

8S1 


c 


.* COMMAND *. 
-♦.CHAIN FLAG ON.* 


♦SET DEVICE END * 

♦ STATUS IN ♦ 

♦ DEVICE * 
***************** 


09 -> 07A2 

05 ---->07A2 

OTHR- 


OA READ INQUIRY 
02 READ, 

09 WRITE AUTOCR 
01 WRITE 
05 SHITE ERRMSG 


*****35********** 

♦ SET CC=1 IN * 

♦ VIRTUAL CSW 1 


SET COMMAND * 
REJECT IN < 
VIRTUAL SENSE * 
BYTE * 


«****G3********** 
* * 
♦ FLAG USER TO ♦ 


***************** 




*****J3********4 

* SET CHANNEL 

* CLASS INT. 

* PENDING 




*. FIRST CCW 


♦****E5********** 

♦ SET INT. * 
♦PENDING MASK S * 

* SUMMARY FLAG * 


***************** 


IUBLE ATTN*. NO 


*'%. HIT .•••‘"'I 


■ CALL TO ENTER * 


I 07H5 
08C1 
I 08C2 


c: : 


TO: J5 
08D3 
09A4 


l / 






01K2 


SET IHCORRECT * 
LENGTH IN 1 
VIRTUAL CSW 1 



♦SET VIRTUAL CAW* 

♦ TO TIC DATA * 

♦ ADDRESS ♦ 


.♦CCW opcode'*. 
*..EQ. 08 (TIC^. 3 


| DMKVCN — Console I/O Simulator (Parts 3 ana 4 of 9) 
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IBM VM/370: Control Program Logic 428 


| DMKVCN — Console I/O Simulator (Parts 5 and 6 of 



r-n VIBTOAL II, ; 

* * I 

* E2 * I **** 

* * t-,>*06 * 


■*:addheII & .gt.*;*<— 

*. VHSIZE .* 


1 SET INCOHBECT * 
• LENGTH IN « 
‘ VIBTOAL CSH < 



:li flag on^.*— j 










02CU 





* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

♦ 
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| DMKVDB - 


****A2********* 

* DMKVDBAT * 
*************** 


CALLED VIA SVC 
FROM DMKCFM FOR 
'ATTACH' 


*****C2********** 

* BRANCH TO * 

* COMMAND-LINE * 

* ANALYSIS * 

* ROUTINE * 


* D2 *-> 
VDBSCAN 


UNIVERSAL 
COMMAND LINS 
SCAN ROUTINE 


♦DMKSCNFD * 

*-*-*-*-*-*-*-*-* ERR 
* CALL DMKSC"”" - 


FIND FIRST * 
♦PARAMETER^FIELD* 

10.K. 


>.DEV ADDR .* 


•~1 


*01 * 

* Gft *-. 

1VADD2 V 


m 


**H2******* 

* INDICATE * 
"ATTACH/DETACH'* 

* 'CHANNEL' * 

* OPTION * 


* IS THIS 
, 'DETACH* 

*. COMMAND . 


* DMKVDB022E * 

> VADDR MISSING < 

* OR INVALID * 
*********** 


**H4******* 


* J4 *-> 

**** | 

MSGONLY 1 


*SET PARMS FOR* 
>* NO VARIABLE * 
* DATA * 




* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 


*****A2********** 
*DMKCVTHB * 

*call~- - attImpt - *-, 

* CONVERSION OF * I 

* ADDRESS * V 


ATTACH OR 
DETACH .1 
*.REAL .* 


**C2******* 

* SAVE DEVICE * 
♦OR CHANNEL ADDR* 
*IN SAVE AREA * 
*********** 


♦DMKSCNFD 


-*-*-*-*-*ERR 


OR 'SYSTEM' * 
***************** 


.* IS IT *. 

YES .*LONGER THAN*. 

-*. AN OPTIONAL .* 

*.'TO/FROM'.* 


•*IS IT A*. 

10 .* VALID *. 

C—*.OPTIONAL W0RD.1 


*****G2********** 
♦DMKSCNFD * 

*—*~*—*—*—*—*—*-r*Ef 

* CALL DMKSCNFD *— 

* LOCATE USERID * 

* FIELD * 

***************** 


* IS USERID * 


■ MOVE USERID * 




*IS USERID =*. 


J.r;** 


GETBLOK 

*****K3*+******** 

*DMKSCNAU 


* CALL - FIND 

* VMBLOK FOR 

► GIVEN USERID 


* DMKVDB020E * 
—>*USERID MISSING ■ 

* OR INVALID * 


- Process ATTACH and DETACH Commands (Parts 1 and 2 of 18) 
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| DMKVDB ” Process ATTACH and DETACH Commands (Parts 3 


***** 02K2 


♦♦A2******* 

* INDICATE * 
♦ATTACH/DETACH* 
♦TO/FROM SYSTEM * 

*********** 




' B2 *-> 02K3 


.* ATTACH OR * 
*. DETACH 
*. CHANNEL .* 


, COMMAND .* 


•*T 


DEDCHAN 

♦♦B3******* 
♦LOAD REG'S * 

*1 THRO 4 WITH* 
->* PARMS FOR * 


""I 


CALL DHKSCNFD *-. 

LOCATE NEXT * I 

,**** 5155 **— 


* DO ACTUAL * 

* ATTACH OR * 
♦DETACH CHANNEL * 


♦EXIT TO DMKCFM X 


************** 


) .* IS IT *. 

—♦.OPTIONAL WORD.* 


* CALL DHKSCNFD ♦-, 

♦LOCATE VIRTUAL * I 

;*2S25II!*^**;**4* 


CVTVADD 

*****G1********** 

♦DMKCVTHB * 

ERR*—*—*—*—*—*—*—*—* 

r *CALL - ATTEMPT *<— 
* CONVERT FOF " 

*v- - 

*****-•“ 

*01 ‘ 


.* IS THIS *. 
-*. ATTACH TO 
*. SYSTEM .* 


O.K. 


*****H1********** 

♦DHKSCNFD * 

*_*_*-*-*_*_*_*_* ERR 

* CALL DHKSCNFD *-— 

♦LOCATE OPTIONAL* 

-- PARK 


•R/O 

****♦■ 


O.K. 


; > : -J 


.♦IS FIELD A * 
>. VALID DASD 
*. VOLID .* 


* DHKVDB023E * 
—>* VOLID HISSING * 

* OR INVALID * 


**J2******* 
♦HOVE VOLUME* 

* LABEL VOLID * 
♦TO USERID FIELD* 
♦OF SAVE AREA * 
*********** 


»*K1«****** 

* INDICATE * 

' READ-ONLY X 
OPTION 

x SPECIFIED x 


*********** 


—>* LOCATE REAL 
* DEVICE BLOCK 


''"I, 


***************** 


**E4******* 

♦DUMBY^UDEVBLOK** 
♦FOR DMKVDSAT * 
*********** 


IClflEI 


ED « ♦—- — | 


i DASD I ♦--— 

: V* I 


♦*H4♦*♦♦♦*♦ 

♦ DMKVDB003E ♦ 
♦INVALID OPTION X 

♦ - OPTION * 
*********** 


MSGSEND V 

♦♦as******* 

* SETUP ♦ 

* MODULE X 
->♦ IDENTIFIER, 

* OPTIONS FOR X 

♦ DMKERHSG ♦ 
*********** 


♦CONSTRUCT, TYPE* 
♦ ERROR MESSAGE ♦ 
- " "-" -■*♦***♦♦♦* 


ONLY 

•DMKVEB128W’ 
NILL RETURN 





♦OF REAL DEVICI 
******** ********* 


♦*E5*“***** 


RBSP 222* F5 *l****** 

* CONTHUCT * 

* RESPONSE * 


♦ CALL DMSFREE X 

* FREE STORAGE X 
♦FOR MSG DUFFER < 


.* IS IT *. 
.♦ATTACH TO, *. NO 

♦.DETACH FROM, .*-, 

♦.•SYSTEM’ .♦ i 


TO: A5 
08G4 
08 HI 


nu 


and 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

* 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

♦ 

♦ 

♦ 

♦ 

* 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 
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♦DEVICE ADDRESS X 


OPRMSG1 •1 

*****42********** 

♦CVTRADD^ 

* _ CONVERT”REAL ♦ 
♦DEVICE ADDRESS * 


♦BUILD ’TYPE* 

* VADD * 
X ATTACHED* 

* MESSAGE FOR * 
* USER * 

*********** 


SPECIFIED 


♦♦B2******* 

* CONSTRUCT * 

■ OPERATOR X 

INFORMATION 
X MESSAGE X 


.* IS IT *. 
.♦ATTACH TO, ♦, 


—>♦ IF SPECIF] 


*********** 


.♦IS THIS*. 

.* ’DETACH* *. YES 

'. VIRTUAL .*- 

*. DEVICE .* 


SELF *.* -1 


*****pi*«4 

♦SNPUSER * 

*—♦—♦—*—*—*—*—*—* 

* SNITCH TO * 

* ATTACHEE'S * 
♦VMBLOK, TIMERS » 
***************** 


♦****G1********** 
♦DMKgCNWT ^ *_*_* 

*~ call~- _ sInd * 

* USER MESSAGE * 


* c **E2***** :< 

kisiil*., 


x CALL - 
X CALLER’S MSG 
XH/NORET OPTION x 
**i************** 


.* IS CALLER *. : 
*. THE SYSTEM .*- 
♦.OPERATOR .* 


♦♦G2******* 


*********** 


—>* CALL DMKFRET ♦ 
♦RELEASE MESSAGE* 
- —?FER AREA * 


♦SWITCH BACK TO X 


♦♦♦****(**♦****♦* 


*****H2********** 

* B * B S5*3*_*—* * * 

*~ CALL - SEND ♦ 
* MESSAGE AND * 
♦RELEASE BUFFER * 
***************** 


**J2******* 


r’ 


IX. E .♦-- 


***** 03D3 


—>*SHITCH BACK TO ♦ 
* CALLER’S * 
♦VMBLOK, TIMERS * 
***************** 


♦CODE BACK TO X 
* CALLER IN 
♦REGISTER TWO X 
*********** 


****C4********* 

* EXIT - SVC 12 * 


**K1******* 
♦MODIFY ATTACH* 

* MESSAGE FOR * 
* OPERATORS * 
















NOTREAD 


| DBKVDB — 

SY20-0880 


.* IS REAL ♦ . 
'.DEVICE A DASD.* 
*. DEVICE .♦ 


**B2******* 

* INDICATE * 

♦WRITE ACCESS IN* 

* DDEVBLOK * 

*********** 


GOODOPT 

*****C2********** 
♦RDLABEL * 


.♦TEST RETDRN*. 

CODE FROM .« 
*.DHKVDSAT .* 



CHEKLOK V 

*****D2********* 

♦SWPUSER 


♦SWITCH OVER TO ♦ 

* ATTACHES'S * 

* VMBLOK * 

***************** 


***************** 


*****p2********** D&I, *****P3********** 

♦DMKSCNVO * ♦FREOSER * 

*_*_*_*_*_*-*_*.,* ER a *_*_*_*_*_*_*_*_* 

♦ CHECK ADDRESS ♦->♦ UNLOCK USER'S ♦ 

* SPECIFIED FOR * ‘CONTROL BLOCKS * 

:**s!5*$5sj$s***: 

IO.K. 


***************** 


.♦ATTACH TO A*. 
♦. DEDICATED . 
♦. CHANNEL .♦ 


-1 


►***G3*’ 

JSERDEV 


♦ SETUP STRING 

* 'TYPE RADDR 
♦USERID' FOR MSG* 


♦ CALL DHKVDSAT * 
♦PERFORM ACTUAL * 
♦•ATTACH' FUNCTN* 


* RELEASE LOCK * 

* AND SWAP * 

* VMBLOKS ♦ 
***************** 


* DMKVDB120E * 

' USERID VADDR 

* ALREADY * 
* DEFINED ♦ 

*********** 


Process ATTACH and DETACH Commands (Parts 5 


* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

and 


—>♦ CONVERT REAL ' 
♦DEVICE ADDRESS * 
TO EBCDIC ' 


♦♦CU******* 

♦ MSG= * 

♦ DMKVDB006E * 
♦INVALID DEVICE < 
♦TYPE - RADDR ♦ 




DOPVOL 

*****£ 2 ********* 

♦ GET RDEVBLOK 

♦ ADDRESS OF 

♦ DUPLICATE 

♦ VOLUME 


♦****E3***' 
♦DMKSCNVS 
YES*-*-*-♦-*-*- 

-* CALL - VOLID * 

♦ALREADY ATT TO * 
* SYSTEM * 

***************** 


* F2 ♦ > 

MSG125E V 

*****£ 2 *********> 

**E^e!$_,_,_*_: 

* CALL - GET 
♦ADDRESS OF DEV 

* WITH VOLID 
****************1 


* VOLOMl 


***************** 


> DMKVDB125B * 
VOLID VOLID 
■ ALREADY * 
♦ ATTACHED 


*********** 


L>*03*’ 


.♦DOES LABEL *. NO 

‘. MATCH VOLID .*-, 

♦. GIVEN .♦ i 

‘*. .♦" ***** 


♦ DMKVDB126E ♦ 

* DASD RADDR * 
♦ERROR HEADING* 
VOLID 


L>;; 


*• VOLOBE 




♦♦♦♦*K3******** 

* ACCESS 

* • DMKSYSOW * 

* SYSTEM 

* OWNED-VOLUME 
LIST 
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DMKVDB — Process ATTACH and DETACH Commands 


***** 06K3 


.♦IS THIS*. 
.* VOLUME IN > 
*. OWNED LIST 


V0LCHAN 

**A2******* 

* INDICATE * 

* THAT * 
->*ALLOCATION DATA* 

* SHOULD BE * 

* READ * 
*********** 


♦READ ALLOCATION* 

* TABLE DATA TO * 

* FREE STORAGE 


L>*03*< 


ERROR *. YES 


■!hhi{e reading; 
*. DATA 


**D2******* 

* HARK * 

* RDEVBLOK " 
> SYSTEM OWNED 

* AND SHARED * 

VOLUHE 


NOALLOC 

*****C3********** 
♦CVTRADD * 


*****E2********** 
♦RESET RDEVHOUT * 

* - INDICATE * 
♦DEVICE ATTACHED* 

* TO SYSTEM * 
***************** 


TEST *. 

I. W » *** ies 


*. PAGING, 
♦.SPOOLING .* 
*.FLAG^, * 

**So 


****G2********* 

* - 'SVC O' - * 

* SYSTEM OWNED 

* LIST INVALID 


—>* CONVERT REAL * 
♦DEVICE ADDRESS * 
* TO EBCDIC * 
***************** 


**D3******* 

♦ SET OPTIONS* 
♦TO RETURN TO * 
*DMKVDB, ACTION * 
* CODE 'W' * 

*********** 


** E 3******* 

* MSG= * 

* DMKVDB128W * 

> ERROR READING * 

* ALLOCATION * 

* RECORD * 

*********** 


**F3******* 

* SET * 

*'RDEVPREF' IF* 
>* HARKED AS * 
♦PAGING VOLUME* 
*********** 


ALLLIST 

*****G3********** 

* ACCESS * 

* ALLOCATION * 

* CHAINS * 

* ACCORDING TO * 

* DEVICE TYPE * 
***************** 


.* ARE THERE *. 
*. ANY DEVICES . 
*.ON CHAIN .* 


**J3******* 

* PUT * 

* RDEVBLOK AS * 
♦FIRST AND ONLY * 

* ENTRY IN * 


**A4******* 

♦PUT RDEVBLOK * 
•* AT HEAD OF 
♦DEVICE CHAIN * 
*********** 


* COMPUTE * 

* REAL DEVICE * 

—>*CODE (RDEVCODE)* 
♦AND INSERT IN* 

* RDEVBLOK " 


THE BYTE/CTL 
MAP MUST BE 
CONVERTED TO 


BIT^CY 


♦CALL - COMPRESS* 
♦MAXI ALLOCATION* 
TABLES 


**»**E4********** 
♦DMKFRET^ + ^ * 

*~CALL DMKFRET * 
♦RELEASE IOBLOK * 

: M »i*sssssu»: 


**F4******* 
♦UPDATE TEMP* 

*CYLINDER C COUNTS* 
* IN DMKPGT * 


(Parts 7 and 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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3 .* IS CALLER *. 
-*. THE SYSTEM .* 
♦.OPERATOR .* 


*•*-1 


*1 


r" 


NODRAIN 

*****£") ********** 
♦GETRTYP * 


n 




.* IS THIS A *. 
". UNIT RECORD . 
*. DEVICE .* 


.* IS REAL *. YES 

DEVICE SYSTEM.*- 

*. OWNED .* 


DEVOWND 

«****F4********** 

♦CVTRADD^ * * + * 

->*~convert _ rIal ~* 

♦DEVICE ADDRESS * 
* TO EBCDIC 


♦DEVICE ADDRESS * 
* TO EBCDIC * 
***************** 


* DMKVDB142E * 

♦TYPE RADDR NOT * 

* DRAINED * 
*********** 


**G2******* 




, * IS THIS *. 
.'DETACH FROM . 
*. SYSTEM' .* 


■ DMKVDB121E 




<• •> 















_-C DP TIRT * 

♦ADDR OF DEVICE * 
♦FROM RDEVBLOK* 


* ♦—> 

**** 

DETRDEV 

**C1*< 

* SAVE * 

* VIRTUAL * 
* ADDRESS FOR 
♦MESSAGES AND 1 
- DETACH ♦ 


♦CONTROL BLOCKS * 
***************** 


*****El********** 

♦DMKSCNVD + + ^ * 

♦ CALL*"- - FIND ”♦— 

♦ VDEVBLOK FOR ♦ 

:*suis*£Uisi**: 

10.K. 


INVADDF1 

*****E2+********* 
♦FREUSER * 


' ll . 

DEDICA5 




UNKNOWN 

*****E2********** 
♦CVTRADD^ ^ ^ ^ * 

♦"'cONVERT^REAL “* 
♦DEVICE ADDRESS * 
* TO EBCDIC ♦ 
***************** 


YES .*DETACH OF A*. 

-*. VIRTUAL .* 

*. DEVICE .* 


**G2******* 

* MSG= * 

> DMKVDB040E * 
DEV ADDR DOES * 

► NOT EXIST * 
*********** 

i—>*03** 


**H1******* 

* SUPPRESS * 

* OPERATOR 1 

► MESSAGE FROM 

* DMKVDBRL < 


DETRELSE 

♦****JT 

♦DMKVDBRL 


DETCULP V 

*****&3********** 

* SCAN VCUBLOK * 
YES* VCUDVTBL FOR * 
-* OTHER ACTIVE * 

* VDEVBLOKS * 
***************** 


♦MARK VCUBLOK * 


* DEVICE ADDR < 


5 UNUSED SPARE* 




'"“I 


L>.‘ 


YES* VCHCUTBL FOR 
<—* OTHER ACTIVE 
* VCUBLOKS 


**D3******* 

* MARK * 

* VCHBLOK AS * 
1 UNUSED SPARE, 

* UPDATE * 

* VMCHTBL * 


***************** 


CALI 

SBCDII 


„L - GET * 
JlC NAME OF * 
DEVICE 


*********** 


| DMKVDB — Process ATTACH and DETACH Commands (Parts 9 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

and 


***** 05A4 
MO * 08D3 
* A5* 11B4 


TYPE NAME 




IS REAL *. YES 


*.DEDICATED.♦ 


► DMKVDB140E ♦ 

TYPE RADDR 

► ATTACHED TO * 
♦ USERID * 

*********** 


—>*SETUP DMKERMSG < 


♦ CONVERT REAL 3 
♦DEVICE ADDRESS > 

♦ TO EBCDIC 


:lear volid, 
USER FROM 
RDEVBLOK 


GET EBCDIC 
DEVICE TYPE 
NAME 
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| DMKVDB — Process ATTACH and DETACH Commands (Parts 11 


* 0562 
> 09F1 


CHANDED V 

*****A1********** 
♦FREUSER^ ^ t t * 

*~UNLOCK USER•S * 
♦CONTROL BLOCKS ♦ 
***************** 


♦CALL - CONVERT ♦ 
♦CHANNEL ADDRESS* 
- “0 DECIHAL 


***** 08E2 


DEVSHRD V 

*****42********** 
♦CVTRADD 


***** 06H3 


* CONVERT REAL 

♦ DEVICE ADDRESS 
TO EBCDIC 


* AVAILABILITY < 

* TEST FOR REAL ■ 

* DEVICE * 

*****♦*<■• 


*****£ 2 ********** 
♦DMKCVTBD ^ ^ ^ * 

*CALL _ - CONVERT * 

* LINK COUNT TO * 

* DECIHAL * 
***************** 


**C2******* 

* HSG= * 

* DMKVDB124E * 
* DASD RADDR IN * 

* USE BY NNN * 
- USERS 


**B3******* 
♦HOVE ACTUAL* 

* VOLID TO * 

' HESSAGE PARH < 

* STRING * 


DEDICATED.* 


f ET T??i L NSSI ICE * 

***************** 


***** E 1********** 

;s?ie£*_*_*_*j 

* CONVERT REAL * 
♦DEVICE ADDRESS * 

* TO EBCDIC * 
***************** 


***************** 


* DOES NOT 


■ ALREADY < 
* ATTACHED * 
*********** 

L:*o*« 




DEVICE OWNED ‘.*-, 

*.BY SYSTEM.* | 


.* IS REAL *. YES 

* * *? E shared eee * * 

■*. .** ***** 

*nn *08 * 

\n* 


****P4*4 

* RETURN - R5 jj 
*************** 


IS THIS *. NO 

•DETACH* .*-, 

COMMAND .* I 


and 

* 

* 

♦ 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

4c 

* 

♦ 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 

4c 
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CVTRADD 

****£-)********* 

* CONVERT REAL * 
♦DEVICE ADDRESS * 
‘ " 1 * 12228 **** 


* CALL DMKCVTBH 

* CONVERT REAL 
♦DEVICE ADDRESS 


ZAPVOLD 

****A2********* 

* REMOVE VOLID * 

* FROM RDEVBLOK * 

* * 
*************** 


**B2******* 
*SET RDEVSER* 

* = BLANKS, * 

► RDEVUSER = * 

* DHKSYSVH * 


RDLABEL 

****A3********* 

* READ VOLUME * 

* LABEL OB * 
♦ALLOCATION DATA* 

*************** 


YES .* READ * 

-*. ALLOCATION 

*. DATA 


****C1********* 

* RETURN - R5 * 
*************** 


*********** 


****C2********* 

* RETURN - R5 * 


* ISSUE SENSE * 
BEFORE READ 

* LABEL * 

* * 
*********** 


ed HK 2* d3 *] 

♦DMKFREE * 

*— *— *— *—*— *^ *—*—* 

* CALL DHKFRBE * 

* FREB STORAGE * 

* IOBLOK+BUFFER * 
***************** 


**E3******* 

* CLEAR * 
♦IOBLOK, SAVE * 
*VMBLOK ADDRESS * 
* OF ATTACHEE * 
*********** 


tK 

RDLCPEX 

*****1 


* CALL DMKFREE * 

* FREE STORAGE * 

* FOR CPEXBLOK * 
***************** 


**G3******* 

* SAVE REGS * 
♦IN CPEXBLOK, 


»»H3******* 
♦SET IOBIRA=* 

* •RDLBIRA* * 

* SETUP IOBLOK ♦ 
♦RADD,USER,CAW* 
*CCW STRING * 


* MODIFY READ * 
♦CCW LENGTH FOR * 
♦LONGER RECORD* 
*********** 


RDLACCW V 

♦♦B5******* 

* SETUP TO * 
♦RELOCATE CCW * 
* ADDRESSES IN 
* IOBLOK * 


RDLIOSR V 

**D5******* 

—»/ f l! fl sBH8*\ 

♦GENERATED I/O* 


* CALL - STACK * 

* IOBLOK FOR * 

* EXECUTION * 
***************** 


****F5********* 

* GOTO DMKDSPCH * 
*************** 


f SENSE * 
OPERATION 
♦. NEEDED .* 


. ALLOCATION 


♦datA address * 
*********** 


■~1 











RDLBIRA 

****&{********* 
♦ENTRY AFTER I/O* 
* IS COMPLETE * 
*************** 


******** 

♦RESTORE LATEST * 
♦REGISTERS FROM * 
* CPEXBLOK * 


INTREQD 

♦****; 


♦****C1********** 
♦DMKFRET^ # * 

*~CALL DMKFRET ~* 

* RELEASE THE * 

* CPEXBLOK * 

*********,**<*.*,*,*** 


?ION * * *———^ 


**E1******* 

* INDICATE * 

* THAT I/O 1 

* FAILED - DATA 
♦NOT AVAILABLE 1 * 

*********** 


YES .* READING *. 
*. ALLOCATION .* 
*. DATA .* 


**G1******* 

* * 
♦CLEAR VOLUME * 
* SERIAL FROM 
* RDEVBLOK * 


•FLAG, TEST REAL* 


*********** 


.* IS THERE * 
. ALLOCATION 
*. DATA 


♦THAT LABEL IS* 

* NON-STANDARD * 
FORMAT # * 
*********** 


.♦IS THE DASD*. 
>.DEVICE READY^. 


*“1 


**G3******* 

* SET FLAG * 
♦ALLOCATION DATA*— 

* AVAILABLE * 


* SERIAL TO * 
—>* RDEVBLOK FOR 

* DEVICE * 


* RESTORE * 

r >*VMBLOK ADDRESS *<— 
* OF ATTACHES * 




:*** *********** 


RDFRIOB 

♦****J1********** 
•DMKFRET * 


**H2******* 

► SET FLAG 1 
DEVICE NOT 
* READY * 
*********** 


* CALL DMKFRET * 
♦RELEASE IOBLOK * 
J AND BUFFER 


'1 


.* WAS THE *. 1 
*• DASD DEVICE .*- 
*. BEADY • * 


♦***K2********* 
>* RETORN - R7 * 
*************** 


>*CONVERT DEVICE * 


c *************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CALLED VIA SVC 
FROM DMKCFM FOR 
•DETACH' 


*****C3*< 

* INDICATE 
" •DETACH* , ■' 


****************4 
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| DMKVDB — Process ATTACH and DETACH Commands (Parts 15 


TO RELEASE A 


* CALL DMKCFPRD * 

* RESET VIRTUAL * 

* DEVICE I/O * 
***************** 


lTBD *!*-j 


V ~1 


) .*IS THERE AH*. 

—*.active l ootput.*< 


*. DEVICE .* 


JHIT RECORD*! 
, DEVICE .* 


k CALL DMKVSPCO * 
k CLOSE OUTPUT * 
k SPOOL FILE 


'‘"I 


CS IT CLASS*. YES 

SPECIAL .*- 

, (CTCA) .* 


—>*. VIRTUAL CTCA . *- 


""I 


* CALL DHKVSPCR *-, 

* CLOSE INPUT * I 

* SPOOL FILE * V 

********************* 


•"I 


* CALL DMKVCARS * 


:*'T 


♦THERE IS ONE < 
*********** 




****J3********* 

* - ABEND 1 - * 

♦INVALID DEVICE * 
CLASS 


< CALL DMKFRET * 
■ RELEASE EXTRA * 
' CONTROL BLOCK * 


*************** 
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* 

* 

* 

♦ 

* 

♦ 

* 

♦ 

* 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

♦ 

* 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

* 

♦ 

* 

♦ 

♦ 


RELDEDD V 

♦♦A2******* 

* PICK UP * 

* RDEVBLOK < 

* ADDRESS FROM 

* VDEVBLOK > 


*. TAPE DRIVE 


• FOR AN IOBLOK * 


* CALL DMKACODV ♦<- 
♦PERFORM DEVICE * 

♦ ACCOUNTING ♦ 
***************** 


*****Q2********** 
♦DISCONNECT REAL* 
♦ DEVICE FROM * 
♦VDEVBLOK, MARK * 


***************** 


.♦HAS DEVICE *. NO 

k.DEDICATED VIA.*-- 

♦.DIRECTORY.* 


1 REWIND/ONLOAD * 
> ON TAPE DRIVE * 


—* CALL DMKIOSQR * 
♦START REAL I/O * 
* SEQUENCE » 
***************** 


*********** 


* CALL DMKSCNRN * 
♦GET EBCDIC TYPE* 

* OF DEVICE * 


* CALL DMKSCNRD * 
♦FOR REAL DEVICE* 




************ 


»«E4******* 

♦FILL MESSAGE * 
♦WITH ABOVE INFO* 
* AND USERID * 


-ADDRE!— 

***************** 


*****G4********** 
♦DMKQCNHT * 

*“*call~- - typI*“* 

* MESSAGE HITH * 
♦NORET+OPERATOR < 
*******♦*»*'•' 











*'. CONSOLE I*-1 

* % (1052) J 


* REMOVE THIS * 

* VDEVBLOK FROM * 

* LINK CHAIN * 


| DMKVDB — Process ATTACH and DETACH Commands (Parts 17 


18 of 18) 
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IBM VM/370: Control Program Logic 440 


| DMKVDS — ATTACH, DEFINE, and LINK Virtual Device Subroutines (Parts 1 and 2 of 5) 


****A1******* 
* DMKVDSAT 


CALLED VIA SVC 
FROM DMKVDBAT 
TO ATTACH A 
REAL DEVICE TO 
VIRTUAL MACHINE 


.♦REAL DEVICE*. YES 

*.DEDICATED OR .*- 

*. OFFLINE .* 


.♦REAL DEVICE*. 
SHARED OR . 
*.SYS-OWNED.* 


sVICE^. *-1 


.*ERR CODE * *. ' 
—>*. REAL DEVICE .*- 
*. OFFLINE .* 


.*ERR CODE = *. 
*. REAL DEVICE . 
•.DEDICATED.* 


IS THE 
. drained 


.*ERR CODE = *. YES 

«. REAL DEVICE .*- 

*.CP-ONNBD .* 


.♦IS THERE AN*. 


**G2******* 

* SET ERR * 
* CODE DEVICE 1 
>* IS SHARED BY 
♦SYSTEM OSERS * 
*********** 


* G3 *-> 
ATTRETN 


*********** 


ATTBLD * I 

*****A4*****i 


♦ BUILD VDEVBLOK, > 


♦DEVICE BLOCK * 
‘ AS DEVICE 
♦ DEDICATED * 


♦RESET RDEVMOUT * 
♦FLAG - INDICATE* 
♦DEVICE ATTACHED* 
**********> 


*****[>4* ********* 

* CONNECT REAL * 

* AND VIRTUAL * 

* BLOCKS, SAVE * 

* ACCOUNTING * 

* INFORMATION * 
***************** 


♦ IS THIS A * 
REAL DASD 
*. DEVICE 


♦ YES 
03K4 


**** 

*01 * 

* F4 *_> 

* * 


,* NAS READ 
. ONLY 
♦.SPECIFIED.* 




02A4 

02H4 
02J2 
FNOTE 

‘~**H4*i***** 

♦PASS VDEVBLOK* 
—>*ADDR IN R8, SET* 
** CC = 0 ** 

*** *********** 


02D4 

02E4 

03F1 


♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 


‘I 


****A2********* 

* DHKVDSDF * 


CALLED VIA SVC 
FROM DMKDEFIN 


**«**£ 4 ********** 
♦SET DEFAULTS - * 

* VMDEVTERM=1 * 

* CLASS=T * 
***************** 


DEFTERM 

♦****F1 

♦DMKFREE 


♦BUILD VDEVBLOK,* 
♦VCUBLOK,VCHBLOK* 
* AS NEEDED * 
***************** 


* VDEVTYPC, 

* VDEVTYPE A£ 
♦REQUESTED II 
* UDEVBLOK 


< IS THIS A * 
TERMINAL 
<■ DEVICE .* 


* 1 


***************** 


n 


♦ VMVTRHAD £oR 
* NEW PRIMARY * 
* CONS ADDR * 


.* IS THIS A *. 
♦.SPOOL DEVICE . 


♦*G3*****+* 

• SET SPOOL * 
INPUT OR 




CTC * V *~1 


♦♦H4******* 

♦*VDEVFLAG TO* 3 * 
« GIVE UNIT 
♦EXCEPTION AT * 
♦ EOF ♦ 

*********** 


♦♦J2******* 


♦SET VDEVNRDY * 








02C2 


03K5 


03D5 


0582 





1 


* 

* 

* 


• CALL DMKTDKGT * 
‘ ALLOCATE DASD * 



‘. AVAILABLE. * 


*BUILD VDEVBLOK,* 


* FILL IN * 

* V DEVBLOK * 

* INFORMATION * 
♦FROM UDEVBLOK, * 
♦DMKTDKGT RETURN* 


FILL IN * 
* ATTACHED TIME * 
- -INTING * 


**F1*’. 

* MARK 
* VDEVBLOK AS * 

BEING A 

‘ TEMPORARY * 

* DASD AREA * 


♦SET ERR CODE * 

► TEMP SPACE IS * 
♦NOT AVAILABLE* 


DMKVDSLK 

♦♦♦♦A3******* 

* DMKVDSLK 


CALLED VIA SVC 


.*REAL DEVICE*. YES 

♦.DEDICATED OR .*-, 

*. OFFLINE .* 1 


!LD VDEVBLOK * 


► CALL DMKSCNVU * 
* LOCATE DEVICE * 
^CONTROL BLOCKS * 


♦BUILD VDEVBLOK,* 


**E3******* 

* INCREMENT * 
♦LINK COUNT IN* 

* RDEVBLOK AND * 
* MARK DEVICE * 

* SHARED 



♦****P3***< 

* FILL IN * 

* VDEVBLOK FROM * 
♦UDEVBLOK INFO, * 


* IS THIS A > 
SEAL OR FAKE 
>. 2311 .* 


VCUBLOK, AND 


'35********** 


.* ARE THERE *. 
♦.ANY EXISTING . 


♦VCHCUTBL, STORE* 


♦VDEVBLOK INTO* 

* LINK CHAIN OF *- 
* RDEVBLOK * 


* VDEVBLOK TO * 

* NEXT VDEVBLOK * 


!■ IS THIS A * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


♦FLAG VCHBLOK 4 
' AS SELECTOR 


► CHANNEL TABLE * 


‘ BUILD VIRTUAL * 
‘ CONTROL UNIT * 
‘ BLOCK * 


♦BLOCK POINTERS 
♦ IN VMBLOK > 


.* IS IT *. 

. * CONTROL *. 
'•UNIT C, D, E.. 
*. OR F .* 


♦MARK CONTROL 4 
'UNIT AS SHARED 
♦ SUBCHANNEL 4 
*********** 


♦VCHCUTBL WITH* 

♦ NEW CONTROL ♦- 


' BUILD VIRTUAL * 
‘ DEVICE BLOCK 4 


♦BLOCK POINTERS * 
♦ IN VMBLOK * 


♦UPDATE VCUDVTBL* 


♦BUILD VDEVBLOK 4 
* VCUBLOK, OR 4 


* BLDBLOK 1 WILL 
ALLOCATE OR 
ENLARGE BLOCK 
AREAS AS NEEDED 


!XT V 


f ** FNTRY ** 


CALL DMKFRET 
RELEASE OLD 
BLOCK TABLE 


.* IS THIS * 

->*. TABLE SLOT 

♦. UNUSED .* 


****E2********* 

♦ RETURN - RIO ♦ 


► CALL DMKFREE 

► FREE STORAGE 

' FOR NEW TABLE 


►TO NEW TABLE 4 
************* 


♦MOVE OLD BLOCK ♦ 

* TABLE DATA TO * 

* NEW TABLE * 
***************** 


.♦LINKED DASD*• 1 


| DMKVDS — ATTACH, DEFINE, and LINK Virtual Device Subroutines (Parts 3 and 4 of 5) 
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| DMKVDS — ATTACH, DEFINE, and LINK Virtual Device Subroutines (Part 5 of 5) 


*.OLD BLOCK.* 


BLDLOOP 

*****43*********: 

♦SCAN LINK LIST 

* FOB VDEV BLOK 
->* PREV TO OLD 

* TDEVBLOK 

* 

****************< 


*********** 




r s 

v J 




DHKVIOEX 



01H2 





07H2 
3B ~ 
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| DBKVIO — Virtual I/O Manager (Parts 3 ana 4 of 14) 


* B5 *-, 06H3 

* * 06K4 

**** l FSOTE 

STORECSft V 


* CALL- GET « 
♦VIRTUAL DEVICE * 

♦ BLOKS < 


* STORAGE DSEI 

* FOR CCH'S 
************** 

_j 


K GET VIRTUAL * 
ADDRESS OF 
* USER'S CAM * 











***** 04G3 
*05 * 04H4 
* A2* 04J3 


*****a2********** 

♦FLAG DEVICE AND* 
♦SUBCHANNEL BUSY* 




>♦ • RPS DEVICE ON.* 


♦FLAG SUBCHANNEL* 


♦CALL TO GET R 


IOBLOK TO 


r~** 


r" 


r ■%. 


.♦DEVICE TYPE*. 


*****E2*** 

**&¥s nnv* 

* VIRTUAL UNIT * 

* ADDRESS * 
***************** 


♦*E3******+ 


« TRANSLATED 


,*'want E ccw*"*. YES 

, TRANSLATION .*—> 




* CALL TO * 

* TRANSLATE * 
♦CHANNEL PROGRAM* 
***************** 


NOCCWTR2 

H2 

NO .*CU RELEASED*. 


I INITIATION.* 


♦VIRTUAL CONTROL* 


. DMKIOSQV BE . *- 


VIOW AIT^^ ******* 

♦PLACE USER IN* 


VIRTUAL SIO 


‘****C4****** 

'SET UP TO CJ 
DMKIOSQV 


-♦.VIRTUAL CTCA . 


**F4******* 

* SET UP TO * 

► CALL DMKVCAST * 


VIOgRE, 


****G4********4 
CALL-^ * m 

CALL- EITHER 
DMKIOSQV OR 
DMKVCAST 




| DMKVIO — Virtual I/O Manager (Parts 5 and 6 of 14) 


* 

* 

* 

♦ 

* 

* 

* 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

* 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 


0 1F2 


.*TIO REQUEST*. NO 

‘.TO DEDICATED .*- 

*. CHANNEL .* 


♦CHANNEL BUSY OR* 


L>:sr* 


♦ISSUE A REAL 
TIO TO THE 
• DEVICE 1 


♦SET CONDITION* 

‘ CODE IN GPR 2 * 


TEST FOR CU 
BUSY OR CUE 
PENDING 


.*CE PENDING *. 
♦.FOR ADDRESSED.4 


► SET VIRTUAL 4 


. CUE PENDING . 


* SET UP CS* * 
* STATUS BYTES 

* FROM CU 4 


CC=0->02A 1 

CC=2->0 IK 2 

CC=3->C'”' 

CC=1—, 



* TEST DEVICE 

* BUSY OR 
•INTERRUPTS PEND* 


RETURN HERE IF 
PATH TO DEVICE 
IS AVAILABLE 


TIOCTCA .*. 

G4 *. 

.*IS DEVICE ] 


► CHECK IN CSW 


♦IS THE CTCA*. YES 
DEDICATED .*- 


♦DMKVCATS 


■ VIRTUAL CTC 


.♦TEST COND. ’*. COO 
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| DMKVIC — Virtual I/O Manager (Parts 7 and 8 of 14) 


r 


■. SUBCHANNEL 


. CE PENDING 


♦ISSUE A REAL 
HIO TO THIS 


YES .♦CUE PENDING*. 
-♦.FOR ADDRESSED.* 
UNIT .* 


r 


**D1******* 

* * 

♦SET CSW STATUS * 
♦ ♦ 

*********** 

I—>*04** 
* B5 * 


**D3******* 

* SET GPR 2 * 

♦WITH RESULTING^* 




rr 


*CALL- SIMULATE * 
♦HIO TO VIRTUAL * 


BUILD IOBLOK TO 
- SCHEDULE 'TIO' 
OR 'HIO' 


* PUT VIRTUAL * 
■ HACHINE INTO 

* I/O WAIT * 




[ION .*-, 

1 n 


* CALL - FREE 
♦STORAGE FOR AN 

* IOBLOK 


*********:t******* 


♦CALL - SCHEDULE* 

* TEST I/O OR ~ 

* HALT I/O 


♦.LINE OR CICA .*- 


* IS IT A * 
DEDICATED 
f. LINE .♦ 


. * IS IT A *. YES 
, DIALED LINE^.*-■. 

*'*. .♦* V 


" IS LINE *. NO 
VIRTUALLY 


, ENABLED .* 


♦♦F5******* 

♦STORE STATUS * 
* IN THE IOBLOK 


♦CALL- STACK THE* 
♦IOBLOK AND EXIT* 


♦GET REAL DEVICE* 

* ADDRESS FROM * 
—>*IOBRADD AND DO * 

* REAL HIO * 


r 


RETURNED BY .*-■, 


* GET STATUS * 

' FROM REAL CSW * 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


'♦A3****** 

CUSCAN 


♦****B1********** 

* POINT TO BLOK * 

* CONTAING * 

* SUBCHANNEL * 

* STATUS * 


■ PENDING, SAVE * 


* PENDING, SAVE * 


***************** 


RETURN - R9 


**D1******* 


*********** 


.*ARE WE IN 1 


'’"I 




♦♦G1♦♦****♦ 


*********** 


ic 446 







DEVSCAN 

****J1********* 


. DEVICE BUSY .*- 


CKIHTS 

***** B 2********* 

* PICK DP AND 

* TEST PENDING 
->* DEVICE 

* INTERRUPTS 


**C1******* 

* * 

♦SET CSW STATUS * 

*********** 

Lar. 

♦ B5 ♦ 


.* ANYTHING ♦. YES 


♦ ***D2******* : ' 
♦ E9 HETORN 


****g5********* 

* DHKVIOIN - ♦ 

♦ ENTERED FOR ♦ 
♦VIRTUAL I/O INT* 


ATTENTION . 
PENDING .* 


.♦ BORE *. 
.♦THAN 'ATTN '* 
♦. OR 'ATTN + 


—>*WITHOUT 'ATTN' 


♦CALL TO LOCATE * 
♦VIRTUAL CONTROL* 
* BLOKS * 
***************** 


, BLOKS FOOND . *- 


CODE VIO002 


♦*E«»****** 

* CLEAR * 

* VDEVBLOK * 

► STATUS, LEAVE 1 

* 'ATTN + UC' * 

I —>*04** 

* B5 * 


-♦.CHECK PENDING. * 


♦♦G3******* 

* CLEAR * 

* ATTENTION * 

1 FROM VDEVBLOK * 

* STATUS * 


‘ .*•*' I 


.♦ADAPTER IN *. 

*.COMPATIBILITY.*-, 

*. MODE .* I 


INTERRUPT 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


REFLECT 

NO .*'AUTO POLL** 
-*. NITH PCI 


****»B1********** 

* REMOVE CP * 

* GENERATED PCI * 


***** D1 *■ 

♦MAKE REAL TIC A* 

* NOP * 

* * 
***************** 


YES ,*FATAL-TYPE *. 

<—*. BITS ON IN .* 
*. CSW+5 .* 


► ANY OTHER *. NO 

STATUS TO .*- 

'. REFLECT .* 


VIOBFRET i 
*****F2* : 
♦DMKFRET 


0 CC . ♦ —" * 


***************** 


****G2********* 

♦ GOTO DMKDSPCH * 
*************** 


►.TRACE WANTED . 


♦DMKTRCSI 


RBFCC12 

K1 *. 

CC1 .♦* ( 

,-♦.TEST REAL CC . *- 


***** 43 ********** 

♦ CLEAR CHANNEL * 
—>*AND DEVICE BOSI* 

* FLAGS * 


*10 * 

* B4 *-- 1 

2TCCX* 7 


*****34********** 


***************** 


♦CALL TO RELEASE^ 


*****33******* 


**************** 


VV*-> 

VIRAXIT 


„1!M 


:*still k busy**:*I^ 



' DISPATCHER Q1 1 


.*NAS THIS AN*. NO 
■.AUTOPOLL TASK.*—--, 


| D MKVIC 


Virtual I/O Manager (Parts 9 and 10 of 14) 
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| DMKVIO - 


Virtual I/O Manager (Parts 11 and 12 of 14) 


♦FROM IOBCSI TO < 

* VDEVCSN GET * 

* VIRT ADDR OF < 


****$B2********** 
** TRANS - GET ** 
**REAL ADDRESS ** 
** OF VIRTUAL ** 


'************** 


*****C2********** 

* STORE VIRTUAL * 

* STATUS IN * 

* VIRTUAL CSW * 
***************** 


*. FOR TIO OR .*- 


**D3******* 

* REMOVE * 

> VDEVBUSY FROM < 

* VDEVBLOK * 

*********** 


.*WAS STATUS *. IBS 
■•PCI^ALONE OR^.*- 




***** F 2+*i 

* MARK THE * 

: s gBS5|gii L : 

***************** 


.* USER OWN *. 
-*. VIRT=REAL .* 
*. AREA .* 


c 


*****g4********** 

♦FLAG DEVICE NOT* 
* BUSY * 


*. VIRT=REAL 




UNTFR3 

♦****E4 ********** 
♦DMKUNTFR * 

♦CALL™TO RELEASE* 
♦CHANNEL PROGRAM* 
***************** 


NOUNTFR3 

*+***FU********** 
♦CHKIOERB * 


*****K2*******’ 

♦DMKUNTFR 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* A5 * 
TESTVCU* . 


*. TRACE MODE 


***************** 


*FLAG CHANNEL * 
*END IN VCUBLOK < 




r 


**C5******* 




DEVICEND .*, 


♦•INTERRUPT.* 


**D4******* 


*********** 


VIRT=REAL .*-•. 


***************** 


***************** 


‘ SET EXCUTE 


*********** 


***** G 1 ********** 

♦ PUT THIS * 
♦CPEXBLOK IN THE* 

* CHAIN ♦ 


****H1 ********* 

* GOTO DMKDSPCH ♦ 
*************** 


JKPX^ *» *-1 


♦STORE DEVICE * 
♦ STATUS IN 
♦ VDEVBLOK * 


♦FLAG PENDING * 


* FLAG DEVICE * 
♦AS NOT BUSY IN * 


♦***H3********* 


t************** 


UNTRN1 

*****P5********** 

♦DMKUNTRN ^ ^ * 

♦UNTRANSLATE THE* 
* CSW ADDRESS * 










GETBCAW 
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| DMKVMI — Simulate IPL to Virtual Machine (Parts 1 and 


***************** 


*****D<1***> 

♦DEVICI 


>.IPL STOP REQ. .* 
’♦YES 


***#*F1 ********** 
* * 

* SET IP1 STOP * 

* FLAG ON * 

***************** 


*.IPL DEV TYPE . 


DASD->03A3 

TAPE->05A3 

RDR->06A3 

CTCA->06A3 

OTHR—-■ 


*HSG=DMKVHI11< 


02D4 
02E2 
02H4 
03D2 
07 A4 


► SET TO PRINT * 
*■ HSG CODE ONLY * 


****A4********< 


b****B2********** 

y SET TO PRINT * 
► HSG TEXT ONLY * 


***Q2*********** 
♦START I/O TO * 


r* : 


♦'VHHCODE 6 ♦. NONE 
VHHTEXT FLAGS.*- 


WAITDIE 

****D2********* 

* LOAD DISABLED * 
->*WAIT STATE PSW * 

* * 
*************** 


*****C4********** 
* SAVE CSW * 


*01 * 

* D4 *_> 02Al 

BEs?a li, D 4 *L******** 

i-> START I/O 


02 -> 02D4 

03 ->02D4 

01 


*##**G4********** 

* SAVE STATUS * 

* PORTION OF * 

* STORED CSW * 


*****84********** 
* RESTORE CSW * 
***************** 


*• SAVE CSW .* 


2 of 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 


7) 


***** 01K4 


.*BUSY & ATTN*. YES 


*. ON IN SAVE .< 


UCHKTEST .*. 

B1 *. 

.♦UNIT CHECK** 


“1 


c 


♦.BUSY FLAG ON 


ON^. *-1 


‘ ANY OTHER *. 

EXCEPTION .1 
I 1 .FLAGS ON .* 


>.32**"} 


>T 


***p 2 *********** 
-—TEST I/O # 

i****************** 


♦**** G 1********** 
* RESTORE CSW * 


.♦OVERLAID BY*. 
*♦. THIS I/O .* 
♦.OPERATION.* 


* SAVE CAW 
******* 



*****J2********** 

♦SAVE STORED CSW* 
***************** 


♦.OPERATION.* 


***************** 


*02 
* D4 

**** 

SIOERR 


T 


**D4******* 


.* CONDITION *. 
*. CODE .NE. 0 . 




* IPL UNIT 
•* ERROR 

*HSG=DMKVHI232* 

*********** ***** 



* CHANNEL S 


**H4 ******* 

IPL SENSE * 
ERROR * 

*HSG=DMKVHI234* 
*********** 

L>**oT* 


!d :*- : *i 


!*** K1 ********* 
R12 RETURN * 


r 


.♦UNUSUAL*. 

* COHHAND * 
SEQ. FLAG ON 
*.IN SENSE .* 
♦.DATA .* 


*****K4********** 

->♦ RESTORE CSW ♦ 
♦ * 

***************** 


f \ 


r 





n 


-A 


ADDRTEST 

****^1 ********* 

* ADDRTEST * 


*****&3*****4 




'***&5********** 


..♦CCW OPCODE 1 
*..EQ. OC (REAR 
♦.BACKWARD) .* 


.♦DATA START ♦ . YES 

—>*..GT. END VHX .♦-, 

♦ . MODULE .♦ I 


YES ,*DATA START *. 

-*..LT. BEG. YMI. 

♦ . MODULE .* 


.♦START*COUNT*. 1 


*****C3******* 
♦ SET CCH PTR 1 




04B2 

04C3 

04F4 


*****C5*> 

♦TURN SKIP FLAG * 


***************** 


.♦START-COUNT*. 1 
*..LT. END VMI .♦- 
*. MODULE .* 


* IPL OVERLAY * 
>* ERROR * 

*MSG=DMKVMI233* 
*********** 


NEXTDISK 

*****D3********** 
♦ADDRTEST * 


****E1********* 


r ->* R12 RETURN 

> El ♦ 


***************** 


.♦ccw opcode'*. : 

♦ ..EQ. 08 (TIC) • *- 


TIC 2J§W< 


♦SET CCW PTR TO * 
->* TIC DATA * 
♦ ADDRESS * 


.♦CCW OPCODE * 


*-] 


^.♦CCW^OPCOI 
’**♦. ‘(S$EK ? 1 


♦♦♦♦♦H3********** 


,**********« 


YES .*OVERLAID BY*. 


***** E 5********** 

* TURN COMMAND * 

* CHAIN 5 SKIP * 

* FLAG ON * 


*****G5********** 

♦ADVANCE CCW PTR* 


***************** 


•’"“I 


| DMKVMI — Simulate IPL to Virtual Machine (Parts 3 and 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

4 of 


“*1 


,* NEXT CCH 
, OPCODE .EQ. 
*.08 (TIC) . 


♦ADDRESS OF 2ND * 


*****C1******** 
♦ CHANGE TIC 


*****21**4 

* CHANGE OPCODE * 

* OF CCH * 

* FOLLOWING TIC * 

* TO NOOP * 
***************** 


.♦COMMAND*. 
.♦CHAIN FLAG *. 
-*. ON IN CCH .* 
♦.FOLLOWING. * 


**+**Gl ********** 

* TURN COMMAND * 
♦CHAIN FLAG OFF ♦ 

* IN CCW * 

* FOLLOWING TIC * 


**»**H1***4 


EXECUTE ALL 


*****J1********** 

* RESTORE CCW * 
♦OPCODES FOR TIC* 

* AND CCW AFTER * 

* TIC * 


*****&3*4 

* TURN COMMAND * 

* CHAIN FLAG ON * 

* IN CCW AFTER * 

* TIC * 

***************** 


,*CSW ADDRESS*. 

• EQ. END OF .* 
*. TIC CCH .* 


< TORN DATA & * 
► COMMAND CHAIN * 
f FLAGS OFF * 


: ************** 
L>*03** 


*****C3*< 

♦SET CCH PTR TO 

* TIC DATA 

* ADDRESS 

**************** 


*****34********** 

♦TORH SILI FLAG * 


***************** 


:****C4********** 


EXECOTE ALL 


'**************** 


*****P4********** 


.♦COMMAND*, 
.♦CHAIN FLAG < 
*. ON IN CCH 
♦ .AFTER TIC. * 




7) 
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IBM VM/370: Control Program Logic 452 


| DMKVMI — Simulate IPL to Virtual Machine (Parts 5 and 


6 of 7) 
* 



SET IPL DEVICE * 
ADDRESS AT * 
X'BA' * 


r: 


r *. LAST I/O 
♦.OPERATION, 



YES •*OVERLAID BY*. 

.-♦. LAST I/O .1 

j ♦.OPERATION.* 
























06K5 


*07 * *07 * 02G2 

* A2* * A3* 





| DMKVMI ~ Simulate IPL to Virtual Machine (Part 7 of 7) 
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IBM VM/370: Control Program Logic 454 


| DMKVSP — Virtual Spooling Manager (Parts 1 and 2 of 19) 


* SAVE POLL * 
♦DEVICE ADDS IN * 

♦ VDEV0NIT * 


—>^Io0TP0T DEVICE^*-. 

'♦. v 


♦02 ♦ 05E2 

li 

IDCCW V 


§ 11 ! 


[TS 4-7 ZERO I*-1 

'♦. .♦* V 


|—r>* PENDING *<- 











*****ai********** 

* SET CONDITION * 
♦CODE IN CORRECT* 

♦ LOCATION * 
***************** 


»****B1********** 
** ** 
** TRANS GET ** 


SIOTIHER .*. 


‘‘1 


f VALID ? .‘ 


H 


*****53********** 


4c * * * * * * * * * * * * * * * * 


«*** 10C5 

*03 * 16D4 

; C2C d->] list 

1 FNOTE 


f**************** 


*****B5********** 


***************** 


*****C5********** 


♦•PAGING ERROR , 


; 0 ^ 


*****£ 1 ********** 


***************** 


*****31 ********** 

♦RESET VDEVCHAN ♦ 

♦ * 
***************** 


I SiS’i 


Tsp ^ P i 

♦ ♦ 
♦HOVE CAH KEY TO* 
* CSS * 

***************** 


* G2^*-1 10A4 

"'isisis!.!........ 


“1 


-♦.PAGING EEROS .* 


*****g3********** 


***************** 


.♦addressing'*, yes 
*. + EXCEPTION ^.*-1 


*.PAGING ERROR .* 


♦****H4********** 


•‘"'I 


iNDING* *-1 


[INTER *.* -j 

* *RD *09 * 

i **** * M* 

>—>*0<t * * * 


TO:C2 

18F2 

19D1 


♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

* 


''I 


I DMKVSP — Virtual Spooling Manager (Parts 3 and 4 of 19) 


♦.DEVICE READY . *- 


SET INTREQ IN * 
SENSE * 

**************** 




.♦READ BIT IN*. 




r->< 

Jeoi 


n c 


.♦SPOOL FILE *. YES 


—>*. IS IT A NOP . 


■♦.ILLEGAL BITS . 


*****E1********** 

* SET INTREQ IN * 

* VDEVSNSE * 

* * 

***************** 

L>*02** 

* A1 * 


***** P 2********** 


***************** 

L>*05% 


FEEDTEST .*. 

E3 *, 

READ 


.-*. RDRFEED FEED .*-, 

I ♦.^SEQ-EBR^.* I 


***** P 3********** 


***************** 

L>:sr* 


CLEAR FILE 


. FILE FOUND 


LASTFILE .*. 


'"I 




*****B5+********* 

♦LOAD GPH5 WITH * 
♦LOGICAL RECORD ♦ 
♦ SIZE ♦ 
***************** 


f****C5*********4 

LOAD GPRO 


***************** 


♦.HOP-CODE TYPE. 




*****35********** 
♦MOVEDATA ^ ^ ^ * 


I*' 1 *—} 


*****35********** 


************* 


*****j5********** 

♦RESET VDEVFEED ♦ 
♦ FEED HOT DOHE * 

***************** 

| **♦♦ 

«—>*05 ♦ 
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IBM VM/370: Control Program Logic 456 


| DMKVSP — Virtual Spooling Manager (Parts 5 and 6 of 19) 


NOFEED V 

*****A1****** 

*PCITEST 


**TRANS PAGE IN*< 
♦♦VIRTUAL SPOOL** 
** BUFFER ** 


>ENSE COHHAND.*-j 


► SET SFBOPEN * 

► INDICATE FILE * 

* OPEN * 


CHD CHAINING^.*-j 


* t G3 **—^ 0741 


OUTPUT -, I 

***** ***** -JJ 


*****F5********* 

* SET UP GPB6 
♦RETURN ADDRESS- 
*SVC SAVEWRK6 - 

* NONSVC 

* UNITCHECK 


| •*** * CS* 

I—>*01 * * * 













06J2 


06G3 


07J 3 


:H12->1914 

:H9->19S5 ( 

!OFE->1932 


**** **> 

* D4 * * I 

**** I *** 

JTEOFD V 


>ET UP ADDRESS * 
OF HOVE * 
INSTRUCTION * 



PDT »****F4*******1 

♦PRTDATA 


| DMKVSP ~ Virtual Spooling Manager (Parts 7 and 8 of 
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| DMKVSP — Virtual Spooling Manager (Parts 9 and 10 of 


♦♦TRANS IH LAST** 
** VIRTUAL ** 
** BUFFER ** 


♦.PAGING ERROR .♦- 


cha I2*** D i 


********* 


***************** 


*+*** E 1********** 
♦DMKBPAPT * 

*—*—*—*—* — *—•*—♦.-»* 
♦CALt-HRITE OUT * 
♦ LAST PAGE * 
***************** 


:°iaV-, m\ 

♦♦♦♦ $ 


, WRITE ERROR . 
'♦YES 


"I 


****»G1********** 

♦ SET SFRECER * 
♦FLAG - INDICATE* 

♦ BUFFER WRITE ♦ 

♦ ERROR ♦ 
***************** 


***************** 


V"1 


♦09** 10E1 

% a r m 


* RESET BUFFER * 

->* ERROR FLAG ♦< , 

* -SFBRECER ♦ j 
********************1 


iG ****< 


***************** 


16J2 


19) 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


***** 09F2 


♦ERROR INDICATER* 
***************** 


,* PREVIOUS *. NO 

, BUFFER .*-. 

♦. PRESENT .* | 


***«*C1********** 
♦DHKRPAGT ^ * 

*~ CALL _ GET ♦ 
♦PREVIOUS BUFFER* 
***************** 


***** 09G2 


***************** 


***************** 


JROR .♦—-—. 


.♦SPOOL WRITE*. NO 

ERROR .♦-1 

*♦. .♦** V 

*. .* ***** 
♦YES *09 * 

i **** * F 2* 

L—>*09 * * * 

* AW * * 


***************** 


♦♦♦*G2********* 

* R6 RETURN * 
*************** 


***** 01E3 


***************** 


«****C3********** 


***************** 


•'•DEVICE BEADY .* 

*. .* 

"*NO 


♦**** E 3********** 

* SET INTRBQ IN * 

* SENSE * 

* * 

***************** 


***************** 


CD •*CHAIN E 


CHKDBVIC 


***************** 

L>*03** 


***** 03H2 

via 


***************** 


♦.ANY CPEXBLOKS. ♦• 


****«C5*^**«****^ 
♦DHKSTKCP + ^ < 

♦~CALL - ItACK 
♦CLOSE CPEXBLOK * 
* ”“■? THIS UER J 


■ FOR__ 

***************** 


* READER OR * 


1 
















♦HOVE DATA FI 

♦ BUFFER TO S 

♦ BUFFER 


♦ SET SFBEOF 
♦INDICATE END C 

* FILE 


BUILD RECBLOK X 
AND CHAIN TO > 
SFBREC X 



♦ 12 ♦ 

♦ E3 ♦-1 

♦♦♦♦ 

VSPCFXIT V 


| DMKVSP — Virtual Spooling Manager (Parts 11 and 12 of 19) 
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IBM VM/370: Control Program Logic 460 


| DMKVSP — Virtual Spooling Manager (Parts 13 and 14 of 


► CALL-DELETE * 

* FILE ADD FEET * 

* SFBL0K_ * 



CLOSECOH V 

*****F4********< 

♦PRTEOF 





■>*' SPACE !*-, 

%. \ 


«->*: REQUESTED l 

**** %. 









***** 16B1 


* MOVE CCW 1HD * 
*DATA TO VIRTOAL*<— 

* BOFFER * 


l# AND£Of 


*15 * 

* B2 *-, 16C3 

**** i 

CONACT 

B2 *. 

HO .*' CONSOLE ’*, 


■'"i rx: 


DEVICE 


* *-> 

PRTSG l 

*****B4*»< 
♦DMKPGTSG ^ 

*~Gii hIxt daId - 
* PAGE 


RESET ERROR 
INDICATED 
SFBRECER 


*****D1********** 

** TRANS GET ** 
**CDRREHT CLASS** 
**X HEADER LINE** 


♦DMKFREE * 

*-*—*-*—*_*_*_*_* 

* storage G for * 

!*.***&»s*****; 


♦****F1********** 


***************** 




CORRENT file 


*****E3*********’ 


*****C5********** 

♦UPDATE COBRENT * 
->* POLL BOFFER * 
* POINTERS * 


***************** 


♦DHK RPAP T 

* CALL - WRITE 

* OOT CORRENT 

;***j*°ii& 


****************4 


♦BOFFER TO SPOOL* 


SRROR^I *-j 




♦YES 

L>*09*< 


*D|VIC 


*SET 0 P T S t t t ^ 

♦CLEAR FILE AND* 
* DEVICE 


ONLOCK V 

***** H 2*********> 
♦DMKPTRUL 


***************** 




t ->♦ ONLOCK DATA 

♦VIRTUAL BOFFER 
********************* 


****J2**4 
* * 
* R6 RETURN * 
*************** 


♦.PAGING ERROR . 




| DMKVSP — Virtual Spooling Manager (Parts 15 and 16 of 


* 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 

♦ 

19) 


***** 15D3 


*****gi*******] 


L>*15% 




♦♦♦♦C2********** 
TRANS GET ♦* 
VIRTUAL ** 
BUFFER ** 
c **************** 


t.PAGING ERROR 


ROR*.*-^ 


*****E2********** 
•DMKRPAGT ^ ^ ^ * 

*~ CALL -~r!aD ~* 
♦PRBVIOOS BOFFER* 
* TO BE OPDATED * 


"'"I 


*****G2*********' 

*OPDATE FORWARD 
♦BOFFER POINTER 
* - SPNXTPAG 


CALL - WRITE 


<**m********* 
SEHSMOVE * 


*************4 


‘**B3********** 
IKPGTVR ^ ^ ^ * 

•CALL - RfeLiAiE - * 
VIRTOAL PAGE * 
BOFFER * 

* *************** 


*****B4*****♦**• 


************4 


•SAVE ADDRESS OF* 
LAST GOOD * 
BOFFER WRITTEN * 
************* 


ho m y*~] 


►.PAGING ERROR 


ROR^.»-1 


*****24********** 


***************** 


****24********* 

* R6 RETURN ♦ 

*************** 
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DMKVSP — Virtual Spooling Manager (Parts 17 and 


18 of 19) 
* 


* locate spool * 

* FILE FOB THIS * 

* USER 1 


_ EXCEPTION ^.*-, 


,GING EBBOB^.*-^ 


^VALID 10X82^!*-j 


I LX ONE ID AH.*-j 


RETURN 









0845 


| DMKVSP — 

SI20-0880 


***** 0845 




***** E1 ********** 
♦PROTEST ♦ 

*-*-*-*_ *_ *_ *_ * 

♦ TEST FOR ♦ 

♦ PROTECTION ♦ 
***************** 


:**** F 1 *********; 


'***************: 


****Q1**X 

* R6 RETURN * 

*************** 


*♦***32********** 
♦IF CCH PCI r SET* 


***************** 


****C2********* 

* R6 RETURN * 
*************** 


****A3********* 

* PROTEST * 
*************** 




***************4 


****C3******** 
* R6 RETURN 


*****A 5******j| 






*19 * 

* J2 *—. 08A5 
)FERR V 

*****j2********** 

♦SET UNIT CHECK * 


*************** 


*T 


*****J3*********4 

*SET UNIT CHECK * 
♦AND LOAD CHECK * 


Virtual Spooling Manager (Part 19 of 19) 
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Program Organization 462,1 



,4 


i 



♦♦♦*A1******* 
» DMKWRMST 


****+B1********** 

♦GET WARM START ♦ 
♦CYLINDER NUMBER* 


************** 


CALL- GET 


*****A2********* 

♦GET POINTER TO 

* ACCOUNT CARD 

* CHAIN ANCHOR 


GETACNT V 

*****B2********** 
♦GETDISK * 

► GET NEXT WARM ♦ 
* START RECORD * 
***************** 


************ 


*****pi********** 

♦DMKPGTVG * * * * 

* CALL- - GET ♦ 
♦VIRTUAL BUFFER * 

♦ ADDRESS ♦ 
***************** 


***************1 


GETLOG 

♦GETDISK^ ^ ^ 

i->♦”GBT~NEXT WARM" 

' * START RECORD 


*****B2********** 

♦MOVE IN RECORD * 
♦ AND SET UP * 
♦CCW-TIC AND SET* 
♦CHAIN POINTERS * 
***************** 


****»F2**< 

* CLEAR FORWARD 5 


***************** 


♦GET ADDRESS OF * 

* SPOOL ANCHOR « 

* TABLE INDEX < 




♦ CALL- GET 

* STORAGE FOR 
♦MESSAGE BUFFER 


♦ POINT TO THE 

♦ NEXT ANCHOR 

♦ CHAIN ADDRESS 


*************> 


.♦ END OF ♦. 

; .ANCHOR CHAIN .* 
♦. LIST .♦ 


♦MOVE IN RECORD ♦ 
—* AND CHAIN TO ♦ 
* ANCHOR ♦ 
***************** 


♦. COLD START 


""1 


***************** 


WARMRBCA 

*****H4--- 
♦GETDISK^ 

GET~NEXT 


♦LOGICAL RECORD ♦ 




DMKWRM — Warm Start - (Parts 1 and 2 of 5) 


* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

* 

* 

* 


► THE RDEVBLOK 
FOR THIS 
RECBLOK 


♦ VOLDME NOT 

—>* MOONTED 

* DMKWRM909E 


*********** 


*****D2********** 

♦ LOCATE THE * 

♦ALLOCATION BYTB* 
» FOR THIS ♦ 

♦ CYLINDER - ♦ 

♦ RDEVALLN- * 

***************** 


■T 


■ ALLOCATION 

■ DMKWRM903E 


L>*03*< 


: + +J?2********** 


***************** 


♦DMKgCNWT ^ ^ ^ 


***************** 


♦ SET UP TO WRITE* 

♦ 5 STATUS 

♦ MESSAGES 


♦ CALL- GET * 

♦ STORAGE FOR * 

♦ RECBLOK * 

***************** 


♦****H2********* 

♦MOVE IN RECORD 
* AND CHAIN TO 


♦DMKjCNWT ^ ^ * 

*call - - - write - 5 - * 

♦STATUS MESSAGES* 


Ussr. 




**H4»*»**** 


♦DMKgCNHT ^ 


DMKHRM911H 


♦ERROR WAIT PSW * 
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| DMKWRM — Harm Start (Parts 3 and 4 of 5) 


*'*•, ...i 

* *YES * ’ 

->1 s G2 : 
















Program Organization 465 






DIREC TORI ES 


MO DULE/ENTRY POINT DIRECTORY 


The directory contains much of the CP cross-reference information for the manual. 

Name contains 1 of 2 possible items: 

Modules — Six alphabetic characters that begin with DMK. 

Entry Points — Seven or eight alphameric characters that begin with DMK, The fourth, fifth, and sixth characters 
of the entry point identify the module. 

Comments Contains: 

For modules, the function and a list of the data area that are used. 

For entry points, the function, 

MOD indicates: 

Method of Operation Diagram that the entry point is in. 

Ch art indicates: 

Page of the flowchart for a module that the entry point is. 

Ca lls To indicates: 

For modules the entry points in other modules that this module calls (Calls To). 

Called By indicates: 

For entry points, the modules that call it (Called By). 


1- 

| Name 

| Comments 

| MOD |Chart|Calls To|Called By 

—i 

|DMKACO 

| Accounting Routines 

| | |DMKCVTBH| 



1 Data Areas Used 

| | |DMKDSPCH j 



| ACNTBLOK 

| | |DMKERMSG| 



| 10BLOK 

| | |DMKFREE | 



| RDEVBLOK 

| | |DMKFRET | 



| SAVEAREA 

| | |DMKIOSQR| 



| SYSLOCS 

| | |DMKPTRUL| 



1 

| | |DMKQCNWTJ 


i_ 

1 

| | |DMKRSPEX| 

—j 
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r--- 

| Name 

i 

Comments 

| MOD 

|Chart(Calls To|Called By 



i 


i 

i 


|DMKSTKCP| 



i 


i 

i 


|DMKSTKIO| 


|DMKACODV 

i 

Create account card for VDEVBLOK 

i 

i 

1 

| |DMKCPV 



i 


i 

i 


| |DMKDIA 



i 


i 

i 


| |DMKUSO 



i 


i 

i 


| |DMKVDB 


(DMKACOFF 

i 

Create account card for VMBLOK 

i 

i 

1 

1 |DMKCPV 


|DMKACON 

i 

User entry point 

i 

i 

2 

| |DMKLOG 



i 


i 

i 


| |DMKUSO 


(DMKACOPU 

i 

Punch queued account cards 

i 

i 

3 

| |DMKRSP 


|DMKACOQU 

i 

Queue request to punch cards 

i 

i 

3 

i i 


IDMKACOTM 

i 

Process use time message 

i 

i 

2 

| |DMKCPV 



i 


i 

i 


| |DMKCQG 



i 


i 

i 


| (DMKUSO 

i i 


|DMKBLD 

i 

i 

Process Blocks 

i 

i 

i 

i 


| DMKCVTBH| 



i 

Data Areas Used 

i 

i 


(DMKERMSG( 



i 

PGTABLE 

i 

i 


(DMKFREE J 



i 

RDEVBLOK 

i 

i 


1DMKFRET J 



i 

SEGTABLE 

i 

i 


|DMKSCNRD( 



i 

SWPTABLE 

i 

i 


i i 



i 

VMBLOK 

i 

i 


i i 


I'DMKBLDRL 

i 

Release real segment, page, and 

i 

i 

2 

| JDMKDEF 



i 

swap tables. 

i 

i 


( (DMKUSO 


|DMKBLDRT 

i 

Build real segment, page, and 

i 

i 

1 

| |DMKCNS 



i 

swap tables. 

i 

i 


| (DMKCPI 



i 


i 

i 


( (DMKDEF 



i 


i 

i 


1 (DMKLOG 


(DMKBLDVM 

i 

Build a new VMBLOK 

i 

i 

3 

| (DMKCNS 



i 


i 

i 

i 

■ 


| |DMKDIA 


(DMKCCH 

i 

i 

Channel Check Handler 

i 

i 

1 

i 


1 1 
|DMKCVTBH| 



i 

Data Area Used: 

i 

i 


(DMKFREE ( 



i 

CCHREC 

i 

i 


(DMKIOECC( 



i 

IOBLOK 

i 

i 


(DMKQCNWTI 



i 

IOERBLOK 

i 

i 


|DMKSCNRU( 



i 

PSA 

i 

i 


1 1 



i 

RCHBLOK 

i 

i 


1 1 



i 

RCUBLOK 

i 

i 


1 1 



i 

RDEVBLOK 

i 

i 


1 ( 



i 

SAVEAREA 

i 

i 


I 1 



i 

VMBLOK 

i 

i 


1 ( 


|DMKCCHIS 

i 

Channel check and CSW stored 

i 

i 


1 1 



i 

after SIO. 

| 8B2 

i 

1 

( (DMKIOS 


|DMKCCHNT 

i 

Channel check from I/O interrupt 

1 

i 

3 

| |DMKIOS 


|DMKCCHRT 

i__ 

i 

Print error message. 

1 

i 

3 

( (DMKIOE 

_i 














i “ n "■ rT 

| Name 

i 

Comments 

| MOD |Chart|Calls To|Called By 


|DMKCCW 

i 

Translate CCWs 

1 1 

|DMKDIASM| 



i 

Data Areas Used: 

1 1 

|DMKFREE | 



i 

10BLOK 

1 1 

|DMKFRET | 



i 

RDEVBLOK 

1 1 

|DMKISMTR| 



i 

SAVEAREA 

1 1 

|DMKPTRAN| 



i 

VDEVBLOK 

1 1 

|DMKPTRLK| 



i 

VMBLOK 

1 1 

|DMKUNTRS) 


|DMKCCWSB 

i 

Get SEEK arguments. 

1 I 30 

| |DMKTRC 


|DMKCCNTR 

i 

Translate user ! s CCWs. 

1 1 1 

| |DMKGEN 



i 


i i 

i i 

| |DMKVIO 

i i 


|DMKCDB 

1 

i 

Process DISPLAY, DCP, DUMP, and 

1 1 

i i 

1 1 
|DMKCVTBD| 



i 

DMCP commands. 

i i 

|DMKCVTBH| 



i 

Data Areas Used 

i i 

|DMKCVTDB| 



i 

BUFFER 

i i 

|DMKCVTFP| 



i 

ECBLOK 

i i 

|DMKCVTHB| 



i 

PGTABLE 

i i 

|DMKDSPCH| 



i 

SAVEAREA 

i i 

|DMKERMSG| 



i 

VMBLOK 

i i 

|DMKFREE | 



1 


i i 

|DMKFRET | 



1 


i i 

|DMKPTRAN| 



i 


i t 

|DMKQCNWT| 



i 


i i 

|DMKSCNFD| 



i 


i i 

|DMKVATAB| 



i 


i i 

|DMKVATBC| 



i 


i i 

|DMKVATMD| 



i 


i i 

|DMKVSPRT| 


|DMKCDBDC 

i 

Display real storage 

i i 

1 1 



i 

(DCP Command)• 

1 1 4 

| |DMKCFM 


|DMKCDBDI 

i 

Display virtual storage 

1 1 

1 1 



i 

(DISPLAY command). 

1 1 1 

| |DMKCFM 


|DMKCDBDM 

i 

Dump real storage in spooled 

1 1 

1 1 



i 

printer (DMCP command)• 

1 1 ^ 

| |DMKCFM 


|DMKCDBDU 

i 

Dump virtual storage on 

1 1 

1 1 



i 

i 

spooled printer (DUMP command). 

1 1 3 

| |DMKCFM 

1 i 


IDMKCDS 

1 

i 

Process STORE and STCP 

l 1 

1 1 

1 l 

1 1 



i 

commands. 

1 1 

|DMKCVTBH| 



i 

Data Areas Used: 


|DMKCVTDB| 



i 

ECBLOK' 

1 1 

|DMKCVTHB| 



i 

SAVEAREA 

1 1 

|DMKERMSG| 



i 

TRQBLOK 

1 I 

|DMKPTRAN| 



i 

VMBLOK 


|DMKQCNWT| 



i 


1 1 

|DMKSCNFD| 



i 



|DMKVATAB| 


i_ 



1 1 

|DMKVATBC| 

_i 
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r 1 _ 

| Name 

1 

Comments 

| MOD |Chart|Calls To|Called By 

—i 


1 


i 

i 

|DMKVATMD 



|DMKCDSCP 

1 

Store into real storage 

i 

i 

i 




1 

(STCP command)• 

i 

1 1 

i 

| DMKCFM 


|DMKCDSTO 

1 

Store into virtual storage 

i 

i 

i 




1 

(STORE command). 

i 

i 

| 1 
i 

i 

| 

| DMKCFM 


|DMKCFD 

1 

1 

Process LOCATE and 

1 

i 

1 

i 

|DMKCVTBH 




1 

ADSTOP commands. 

i 

i 

|DMKCVTHB 




1 

Data Areas Used: 

i 

i 

|DMKERMS6 




1 

ECBLOK 

i 

i 

|DMKFREE 




1 

RCHBLOK 

i 

i 

|DMKFRET 




1 

RDEVBLOK 

i 

i 

|DMKQCNWT 




1 

SAVEAREA 

i 

i 

|DMKSCNAU 




1 

VCHBLOK 

i 

i 

|DMKSCNFD 




1 

VCUBLOK 

i 

i 

|DMKSCNRU 




1 

1 

VDEVBLOK 

VMBLOK 

i 

i 

i 

i 

|DMKSCNVU 

1 



|DMKCFDAD 

1 

Stop virtual machine at specified | 

i 

1 




1 

address (ADSTOP command). 

i 

1 3 

1 

|DMKCFM 


| DMKCFDLO 

1 

Display address of real device | 

i 

1 




1 

blocks, or VMBLOK and/or 

virtual| 

i 





1 

I 

device blocks (LOCATE command)• | 

| 1 
l 

1 

1 

|DMKCFM 


|DMKCFG 

1 

1 

Command Processor 

i 

i 

i 

i 

|DMKCVTBH 




1 

Data Areas Used: 

i 

i 

|DMKERMSG 




1 

ECBLOK 

i 

i 

|DMKFREE 




1 

PSA 

i 

i 

|DMKFRET 




1 

RDEVBLOK 

i 

i 

|DMKPTRAN 




1 

SAVEAREA 


i 

|DMKPTRUL 




1 

SAVTABLE 

i 

i 

|DMKQCNRD 




1 

SYSTABLE 

i 

i 

|DMKQCNWT 




1 

VDEVBLOK 

i 

i 

|DMKRPAPT 




1 

1 

1 

VMBLOK 

i 

i 

i 

i 

i 

i 

|DMKSCNFD 
|DMKSCNVS 
|DMKSCNVU 



|DMKCFGSV 

1 

1 

SAVESYS command processor. 

i 

i 

i i 

i 

1 

1 

|DMKCFM 


|DMKCFM 

1 

1 

Process SLEEP, BEGIN and 

l 

i 

1 

i 

|DMKCDBDC 




1 

QUERY command and direct 

all | 

i 

|DMKCDBDI 




1 

other CP commands to current I 

i 

|DMKCDBDM 




1 

module. 

i 

i 

|DMKCDBDU 




1 

Data Areas Used: 

i 

i 

|DMKCDSCP 




1 

BUFFER 

i 

i 

|DMKCDSTO 



i 

I 

SAVEAREA 

i 

i 

|DMKCFDAD 



I 

1 

VMBLOK 

i 

i 

|DMKCFDLO 



1 

8 _. 

1 


i 

i 

|DMKCFMBE 


_i 










1- 

I Name 

| Comments 

| MOD 

|Chart|Calls To|Called By | 

j DMKCFM 

i 

i 

i 

i 

|DMKCFMQU| | 

| (cont) 

i 

i 

i 

|DMKCFMSL| | 


i 

i 

i 

|DMKCFPEX| | 


i 

i 

i 

|DMKCFPIP| | 


i 

i 

i 

|DMKCFPNR| | 


i 

i 

i 

|DMKCFPRS| | 


i 

i 

1 

|DMKCFPRW| | 


i 

i 

i 

|DMKCFPRY| | 


i 

i 

i 

|DMKCFPSR| | 


i 

i 

i 

|DMKCFSET| | 


i 

i 

i 

|DMKCFTRM| | 


i 

i 

i 

|DMKCPVAC| | 


i 

i 

i 

|DMKCPVDS| | 


i 

i 

i 

|DMKCPVEN| | 


i 

i 

i 

|DMKCPVH | | 


i 

i 

i 

|DMKCPVLK| | 


i 

i 

i 

|DMKCPVRY| | 



i 

i 

|DMKCPVSHj | 


i 

i 

i 

|DMKCPVSV| | 


i 

i 

i 

|DMKCPVULI | 


i 

i 

i 

|DMKCQGEN| | 


i 

i 

i 

|DMKCQPRV| | 


i 

i 

i 

|DMKCSOBS| | 


i 

i 

i 

|DMKCSODR| | 


i 

i 

i 

|DMKCSOFL| | 


i 

i 

i 

|DMKCSOLD| | 


i 

i 

i 

|DMKCSORP| | 


i 

i 

i 

|DMKCSOSP| | 


i 

i 

i 

|DMKCSOST| | 


i 

i 

i 

|DMKCSOVL| | 


i 

i 

i 

|DMKCSPCL| | 


i 

i 

i 

|DMKCSPFR| | 


i 

t 

i 

|DMKCSPHL| | 



i 

i 

|DMKCSPSP| | 


i 

i 

i 

|DMKCSUCH f | 


i 

i 

i 

|DMKCSUOR| J 


i 

i 

i 

|DMKCSUPU| | 


i 

i 

i 

|DMKCSUTR| | 


i 

i 

i 

|DMKCVTHB| | 


i 

i 

i 

|DMKDEFIN| | 


i 

i 

i 

|DMKDIAL | | 


i 

i 

i 

{DMKDSPCH| | 


i 

i 

i 

|DMKERMSG| | 


i 

i 

i 

|DMKFREE | | 


i 

i 

i 

|DMKFRET | | 


i 

i 

i 

|DMKLNKIN| | 

L_—_ 




_i 
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r- 

| Name 

i 

Comments I MOD |Chart!Calls To|Called By 

—I 

IDMKCFM 

i 

i 

i 

|DMKLOGON| 


1 (cont) 

i 

i 

i 

|DMKMCCCL| 



i 

i 

i 

|DMKMSGEC| 



i 

i 

i 

f DMKMSGMSJ 



i 

i 

i 

|DMKMSGWN| 



i 

i 

i 

|DMKQCNRD| 



i 

i 

i 

|DMKQCNWT| 



i 

i 

i 

|DMKSCNFD| 



i 

i 

i 

|DMKSCNVU| 



i 

i 

i 

|DMKSTKCP| 



i 

i 

i 

|DMKTRACE| 



i 

i 

i 

|DMKUSODS| 



i 

i 


| DMKUSOFL| 



i 

i 

i 

|DMKUSOLG| 



i 

i 

i 

|DMKVDBAT | 



1 

i 

i 

|DMKVDBDE | 


|DMKCFMAT 

i 

Simulate attention interrupt | 

i 

i i 



i 

to virtual machine. | 

1 3 

| |DMKCNS 


|DMKCFMBE 

i 

BEGIN command processor f 

I 4 

| IDMKCFM 


|DMKCFMBK 

i 

Attention interrupt twice from 1 

i 

i i 




a terminal. I7B3 | 1 

| |DMKCNS 



i 

i 

i 

| |DMKDSP 



i 

i 

i 

| |DMKHVC 



i 

i 

i 

| IDMKIOE 



i 

i 

i 

| |DMKMCH 



i 

i 

i 

| |DMKPRG 



i 

i 

i 

| |DMKPSA 



i 

i 

i 

| |DMKPTR 



i 

i 

i 

| |DMKTRC 



i 

i 

1 

■ 

| |DMKVCN 

i i 


f DMKCFMEN 

i 

i 

i 

DIAGNOSE code 8, I 

1 

1 2 

1 1 

| |DMKCPI 



i 

1 

i 

| | DMKHVC 



i 

1 

i 

| |DMKLNK 


|DMKCFMQU 

i 

QUERY command processor (initial) | 

| 5 

| IDMKCFM 


IDMKCFMSL 

i 

i 

SLEEP command processor. I 

i 

1 4 

1 

| IDMKCFM 

1 1 


|DMKCFP 

1 

i 

1 

Simulate the operators console | 

1 

i 

|DMKCVTBH| 



i 

for the virtual machine. 1 

i 

|DMKCVTDB| 



i 

Data Areas Used 1 

i 

|DMKCVTHB| 



i 

IOBLOK 1 

i 

|DMKDSPCH| 



i 

RDEVBLOK I 

i 

|DMKDIADR| 



i 

SAVEAREA 1 

1 

|DMKERMSG| 



i 

VCHBLOK I 

1 

|DMKFREE | 



i 

YCUBLOK I 

i 

|DMKFRET | 


t_-_-_ 

i 

VDEVBLOK | 

i 

|DMKPGSPO| 

_i 











| Name 

1 

Comments 

| MOD 

|Chart|Calls To|Called By 



1 

VMBLOK 

1 

1 


|DMKPTRAN| 



i 


1 

1 


|DMKPTRUL| 



i 


1 

1 


|DMKRPAGT| 



i 


1 

i 


|DMKQCNWT| 



1 


1 

1 


| DMKSCHRT j 



i 


i 

i 


|DMKSCNFD | 



i 


i 

i 


| DMKSCNVS | 



1 


1 

i 


|DMKSCNVU| 



1 


1 

i 


|DMKSTKCP| 



i 


i 

i 


|DMKSTKIO| 



1 


1 

1 


|DMKUNTFR| 



1 



1 


|DMKVATBC| 



1 


i 

i 


|DMKVCARD| 



1 


i 

i 


|DMKVDBRL| 



1 


1 

i 


|DMKVSPCO| 



i 


1 

1 


1DMKVSPCR| 


|DMKCFPII 

i 

IPL from LOGON 

i 

i 

5 

| |DMKLOG 


|DMKCFPIP 

i 

IPL command processor. 

| 7B3. 1 

1 

9 

| |DMKCFM 


|D MKCFPRD 

1 

Reset a virtual device. 

i 

i 

2 

| |DMKDEF 



i 


i 

i 


| |DMKVDB 


|DMKCFPRR 

i 

Process system resets from 

i 

i 





i 

other routines 

i 

i 

1 

1 |DMKDEF 



i 


i 

1 


| j DMKMCH 



i 

i 


i 

i 

1 


| j DMKUSO 

1 1 


IDMKCFS 

1 

i 

Process SET command 

1 

i 

1 

1 


1 1 

|DMKCVTBH| 



i 

Data Areas Used: 

i 

1 


|DMKCVTDB| 



i 

CORTABLE 

i 

1 


|DMKC VTDT| 



i 

IRMBLOK 

i 

1 


|DMKCVTHB| 



i 

SAVEAREA 

i 

1 


|DMKERMSG| 



i 

RDEVBLOK 

i 

1 


|DMKFREE | 



i 

VMBLOK 

i 

1 


| DMKFRET | 



i 


i 

1 


1DMKMCHMS| 



i 


i 

1 


| DMKQCNRD| 



i 


i 

1 


| t)MKQCNWT | 



i 


i 

1 


|DMKSCHRT| 



i 


i 

1 


|DMKSCNAU| 



i 


i 

1 


|DMKSCNFD | 



i 


i 

1 


| DMKSCNRU | 



i 


i 

1 


|DMKSTKIO| 


j DMKCFSET 

i 

i 

SET command processor 

i 

i 

1 

i 

1 

| |DMKCFM 


| DMKCFT 

1 

i 

Process user's terminal options. 

1 

i 

1 

1 


1 I 

|DMKCVTDB| 


; 

i 

Data Areas Used: 

i 

1 


|DMKERMSG| 

_i 
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r~ 

| Name 

i 

Comments 

1 

MOD |Chart|Calls To|Called By 

—i 


i 

RDEVBLOK 

1 

1 

|DMKQCNWT 





i 

SAVEAREA 

1 

1 

|DMKSCNFD 





i 

SYSLOCS 

1 

1 

i 





i 

VMBLOK 

1 


i 




|DMKCFTRM 

i 

TERMINAL command processor, I 

i 

1 1 

1 

1 

1 


DMKCFM 


|DMKCKP 

1 

1 

1 

Save pertinent data 1 

1 

1 

|DMKSA VRS 





i 

when check 

point occurs I 

1 

i 





i 

Data Areas Used: I 

1 

i 





1 

RCHBLOK 

i 

1 

i 





i 

RCUBLOK 

i 

1 

1 





i 

RDEVBLCK 

1 

1 

i 





i 

SAVEAREA 

i 

1 

1 





1 

VMBLOK 

1 

1 

1 




|DMKCKPT 

i 

Check Point 

program. I 

i 

| 1 

1 

i 

i 


DMKSAV 


| DMKCNS 

i 

i 

Real Console 

1 

Terminal Manager | 

1 

I 

i 




|DMKCNSED 

i 


i 

| 20 

i 




|DMKCNSID 

1 


i 

1 9 

i 




|DMKCNSIN 

i 


i 

| 1 

i 


DMKIOS 


|DMKCNSNM 

1 


i 

1 15 

i 




|DMKCNSOF 

1 


i 

1 11 

i 


DMKCPV 



| 



i 

i 


DMKIOS 



1 


i 

i 

i 


DMKQCN 


| DMKCPB 

1 

Simulate the 

operator's console | 

i 

| DMKCFPRD 





1 

for the virtual machine. | 

i 

|DMKCFPRR 





1 

Data Areas Used: 1 

i 

|DMKCVTBH 





1 

IOBLOK 

i 

i 

|DMKCVTHB 





1 

RDEVBLOK 

i 

i 

|DMKERMSG 





1 

SAVEAREA 

i 

i 

|DMKFREE 





1 

VCHBLOK 

i 

i 

|DMKFRET 





1 

VCUBLOK 

i 

i 

|DMKIOSQR 





1 

VDEVBLOK 

i 

i 

|DMKPGSPO 





1 

VMBLOK 

i 

i 

|DMKPTRAN 





1 


i 

i 

|DMKQCNWT 





| 


i 

i 

|DMKSCNFD 





| 


i 

i 

|DMKSCNVU 





| 


1 

i 

| DMKVATBC 





I 


i 

i 

|DMKVATMD 




|DMKCPBEX 

1 

Process the 

EXTERNAL command. | 

1 2 

1 


DMKCFM 


|DMKCPBNR 

1 

Process the 

NOTREADY command. I 

1 3 

1 


DMKCFM 


|DMKCPBRS 

1 

Process the 

RESET command. I 

1 3 

1 


DMKCFM 


|DMKCPBRW 

1 

Process the 

REWIND command. | 

1 4 

1 


DMKCFM 


|DMKCPBRY 

1 

Process the 

READY command. I 

1 3 

1 


DMKCFM 


|DMKCPBSR 

1 

Process the 

SYSTEM command. j 

1 1 

1 


DMKCFM 


IDHKCPI 

■ 

1 

Prepare VM/370 for operation I 

1 

|DMKBLDRT 



_i 











1- 

( Name 

i 

Comments 

| MOD 

|Chart|Calls To(Called By 

—i 

1DMKCPI 

i 

Data Areas Used: 

1 

i 


|DMKCFMEN| 


I (cont) 

i 

ALOCBLOK 

i 

i 


|DMKCQGFI| 



i 

CORTABLE 

i 

i 


|DMKCSOSD| 



i 

PAGTABLE 

i 

i 


|DMKCVTBD| 



i 

RDEVBLOK 

i 

i 


|DMKCVTBH | 



i 

SEGTABLE 

i 

i 


| DMKCVTDT| 



i 

SWPTABLE 

i 

i 


|DMKDSPCH| 



i 

VMBLOK 

i 

i 


|DMKFRETR| 



i 


i 

i 


|DMKIOEFL| 



i 


i 

i 


|DMKIOSQR| 



i 


i 

i 


|DMKLOGOP| 



i 


i 

i 


|DMKQCNRD| 



i 


i 

i 


|DMKSCHST| 



i 


i 

i 


|DMKSCNRD| 



i 


i 

i 


|DMKSCNVS| 



i 


i 

i 


|DMKWRMST| 


|DMKCPIEM 

i 

Saves necessary data 

i 

i 

2 

| |DMKCNS 



i 

for automatic re—IPL. 

i 

i 


i t 


| DMKCPINT 

i 

Start initialization of the 

i 

i 

1 

| | DMKSAV 



i 

i 

VM/370 control program* 

| 5B1 

i 

i 

i 


i i 

1 1 


| DMKCPV 

1 

i 

Command Processor 

1 

i 

1 

i 


|DMKACODV| 



i 

Data Areas Used: 

i 

i 


|DMKACOFF| 



i 

BUFFER 

i 

i 


|DMKACOTM| 



i 

CORTABLE 

i 

i 


|DMKCVTHB| 



i 

IOBLOK 

i 

i 


|DMKCVTBD| 



i 

RDEVBLOK 

i 

i 


|DMKCVTBH| 



i 

SAVEAREA 

i 

i 


|DMKDMPRS| 



i 


i 

i 


1DMKERMSG| 



i 


i 

i 


|DMKFREE | 



( 


i 

i 


|DMKFRET | 



i 


i 

i 


|DMKIOSQR| 



i 


i 

i 


|DMKPTRAN| 



i 


i 

i 


|DMKPTRUL| 



i 


i 

i 


|DMKQCNRD| 



i 


i 

i 


|DMKQCNWT| 



i 


i 

i 


|DMKRPAPT| 





i 

i 


|DMKSCNAU| 



i 


i 

i 


|DMKSCNFD| 



i 


i 

i 


|DMKSCNRU| 



i 


i 

i 


|DMKSCNVS| 


i_ 

i 


i 

i 


|DMKSCNVU| 
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r ———-- 

| Name 

i 

Comments 

| MOD | Chart|Calls To 1 Called By 

—i 

|DMKCPVAC 

i 

ACNT command processor. 

1 1 6 

| |DMKCFM 


|DMKCPVDS 

i 

DISABLE command processor. 

1 1 3 

| |DMKCFM 


|DMKCPVEN 

i 

ENABLE command processor. 

1 1 1 

| |DMKCFM 


|DMKCPVH 

i 

HALT command processor. 

1 1 12 

| |DMKCFM 


|DMKCPVLK 

i 

LOCK command processor. 

1 1 4 

| |DMKCFM 


|DMKCPVRY 

i 

VARY command processor. 

1 1 1 

| |DMKCFM 


|DMKCPVSH 

i 

SHUTDOWN command processor. 

1 1 5 

| |DMKCFM 


|DMKCPVUL 

i 

UNLOCK command processor. 

1 1 5 

i i 

| |DMKCFM 

i i 


|DMKCQG 

i 

i 

Process QUERY command. 

I 1 

i i 

|DMKACOTM| 



i 

Data Areas Used: 

i i 

|DMKCVTBD j 



i 

BUFFER 

i i 

|DMKCVTBH| 




SAVEAREA 

i i 

| DMKCVTDB| 



i 

SFBLOK 

i i 

|DMKCVTDT| 



i 

VCHBLOK 

i i 

|DMKCVTHB| 



i 

VCUBLOK 

i i 

|DMKERMSG| 



i 

VDEVBLOK 

i i 

|DMKFREE | 



i 

VMBLOK 

i i 

|DMKFRET | 



i 


i i 

|DMKQCNWT| 



1 


i i 

|DMKSCNAU| 



1 


i i 

|DMKSCNFD) 



i 


i i 

| DMKSCNRD| 



i 


i i 

|DMKSCNVN| 



i 


i i 

|DMKSCNVU| 


IDMKCQGEN 

i 

QUERY command processor for 

i i 

1 1 



i 

Class G users. 

i i i 

| JDMKCFM 


|DMKCQGFX 

i 

QUERY command processor for 

i i 

1 1 



i 

Class G users. 

i i i 

| |DMKCPI 


|DMKCQGLG 

i 

QUERY command processor for 

i i 

| |DMKLOG 



i 

i 

Class G users. 

1 1 2 

1 1 

| |DMKLOG 

l t 


|DMKCQP 

1 

i 

Process QUERY command 

1 1 

1 1 

1 1 
|DMKCVTBDl 



i 

Data Areas Used: 


|DMKCVTBH| 



i 

RCHBLOK 

1 I 

|DMKCVTHB | 



i 

RCUBLOK 

1 1 

| DMKERMSG| 



i 

RDEVBLOK 

1 1 

|DMKFREE | 



i 

SAVEAREA 

1 1 

|DMKFRET | 



i 

VCHBLOK 

1 1 

|DMKQCNWT| 



i 

VCUBLOK 

1 1 

|DMKSCNAU| 



i 

VDEVBLOK 

1 1 

|DMKSCNFD| 



i 

VMBLOK 

1 1 

iDMKSCNRD| 



i 


1 1 

|DMKSCNRN1 



i 


1 1 

|DMKSCNRU| 



i 


1 1 

|DMKSCNVD| 


i_ 

i 


1 1 

|DMKSCNVU | 

_i 











DMKCQPRV 


DMKCSO 


Comments 

QUERY command processor for 
Classes 6, E r and G users. 

Process real spooling commands 
for real unit record devices. 
Data Ar eas Used: 

IOBLOK 

RDEVELCK 

SAVEAREA 

SAVEWRK2 

SFBLOK 

VMBLOK 


I 


|D MKCSOBS 
|DMKCSODR 
|DMKCSOFL 
|D MKCSOLD 
|DMKCSORP 
| |DMKCSOSD 


BACKSPACE command processor. 

DRAIN command processor. 

FLUSH command processor. 

LCADEUF command processor. 

REPEAT command processor. 

Start entry point for warm start. 


|DMKCSOSP 
| |DMKCSOST 

| \DMKCSOVL 

| DMKCSP 


SPACE command processor. 

START command processor. 

LOAD virtual Forms Control Buffer 
Process Class D and G spooling 
commands. 

Data Areas Used: 

savIarea 

SFBLOK 

VDEVBLCK 

VMBLOK 




| MOD |Chart j Calls To|Called By 



1 

1 

1 

1 

i i 

| | DMKCFM 

1 1 


1 

1 


1 1 
IDMKCVTBHj 


1 


|DMKCVTDB| 


1 


|DMKCVTHB| 


1 


|DMKDSPCH| 


1 


|DMKERMSG| 


1 


|DMKFREE | 


1 


|DMKFRET | 


1 


|DMKIOSQR| 


1 


|DMKPTRAN| 


1 


|DMKPTRUL j 


1 


|DMKQCNWT| 


1 


|DMKRSPEX| 


1 


|DMKSC NFD| 


1 


|DMKSCNRU | 


1 


|DMKSCNVU| 


1 


|DMKSPLDL| 


1 


|DMKSTKIO| 


1 

7 

j |DMKCFM 


1 

5 

| |DMKCFM 


1 

1 

| |DMKCFM 


1 

7 

| |DMKCFM 


1 

6 

| |DMKCFM 


1 

5 

| |DMKCPI 


1 


| |DMKCSP 


1 


| |DMKCSU 


1 

2 

| |DMKCFM 


1 

3 

| |DMKCFM 


1 

12 

| |DMKCFM 


1 


|DMKDCOSD| 


1 


|DMKCVTDB1 


1 


|DMKCVTHB | 


1 


IDMKERMSG \ 


\ 


|DMKFREE | 


1 


\DMKFRET | 


1 


|DMKQCNWT | 


1 


|DMKSCNFD| 


1 


|DMKSCNVU| 


1 


|DMKSPLDC| 


1 


|DMKUDRFU| 


1 


J DMKVSPCO| 


1 


|DMKVSPCR| 


Directories 477 















IBM VM/370: Control Program Logic 478 


Marne | Comments 


MOD |Chart|Calls TojCalled By 


DMKCSPCL 

1 

CLOSE command processor. 

1 1 1 

| |DMKCFM 

DMKCSPFR 

i 

FREE command processor. 

| | 3 

| |DMKCFM 

DMKCSPHL 

i 

HOLD command processor. 

1 1 3 

| |DMKCFM 

D MKCSPSP 

i 

i 

SPOOL command processor. 

1 1 4 

| | DMKCFM 

i 1 

DMKCSU 

i 

i 

Process class D and G spooling 

1 1 

1 1 
| DMKCSOSD| 


1 

commands. 

i i 

|DMKCVTBD| 


1 

Data Areas Used: 

i i 

|DMKCVTDB| 


1 

SAVEAREA 

1 1 

|DMKERMSG| 


1 

SFBLOK 

1 1 

|DMKFREE 1 


i 

VDEVBLCK 

i i 

| DMKFRET | 


1 

VMBLOK 

1 1 

|DMKQCNWT| 


1 


i i 

|DMKSCNFD| 


I 


i i 

|DMKCSNAU| 


1 


i i 

|DMKSPLDL| 


1 


1 I 

| DMKUDRFU| 

D MKCSUCH 

1 

CHANGE command processor. 

1 1 1 

| |DMKCFM 

DMKCSUOR 

i 

ORDER command processor. 

1 1 4 

| |DMKCFM 

DMKCSUPU 

i 

PURGE command processor. 

1 1 6 

| |DMKCFM 

DMKCSUTR 

i 

i 

TRANSFER command processor. 

1 1 8 

i i 

| |DMKCFM 

I | 

DMKCVT 

i 

i 

Convert Routines 

1 1 

i i 

|None | 


i 

Data Areas Used: 

i i 

i i 


1 

BALRSAVE 

i i 

1 1 


1 

TEMPSAVE 

i i 

1 1 

DMKCVTBD 

1 

Convert binary to EBCDIC decimal. 

1 1 3 

| |DMKCDB 


I 


1 1 

| |DMKCPI 


1 


1 1 

| |DMKCPV 


1 


1 1 

| |DMKCQG 


1 


1 1 

| |DMKCQP 


1 


1 1 

| |DMKCSU 


1 


1 1 

| |DMKDEF 


1 


1 1 

| |DMKDIA 


1 


1 1 

| |DMKLNK 


1 


1 1 

| |DMKLOG 


1 


1 1 

| |DMKRSP 


1 


1 t 

| |DMKSEP 


1 


1 1 

| |DMKSPL 


I 


1 1 

| |DMKUSO 


1 


1 1 

| 7 |DMKVDB 

DMKCVTBH 

1 

Convert binary to EBCDIC 

1 1 1 

| 7 |DMKACO 


1 

hexadecimal. 

1 1 

| j DMKBLD 


1 


1 1 

| |DMKCCH 


1 


1 1 

| |DMKCDB 


1 


1 1 

| IDMKCDS 


1 


1 1 

| |DMKCFD 



v./ 



















1— 

| Name 

| Comments 


| MOD 

|Chart|Calls 

To|Called By 

—i 

| 



1 

1 1 

|DMKCFP 





1 

1 1 

| DMKCFS 


1 



1 

1 1 

|DMKCQG 





1 

1 1 

|DMKCQP 


1 



1 

1 1 

|DMKCPI 





i 

1 1 

| DMKCPV 


1 



1 

1 1 

|DMKCSO 





i 

1 1 

|DMKDEF 





i 

1 1 

|DMKDIA 





i 

1 1 

j DMKLNK 


1 



i 

1 1 

|DMKLOG 





i 

1 1 

|DMKMSW 


1 



1 

1 I 

|DMKPSA 





i 

1 1 

j DMKRSP 


1 



1 

1 1 

|DMKSCH 





i 

1 1 

1 DMKSEP 


1 



1 

1 1 

|DMKSPL 





i 

1 1 

| DMKTRC 


1 



1 

1 1 

|DMKUSO 





i 

1 1 

| DMKVCA 





i 

1 1 

| DMKVDB 


|DMKCVTDB 

Convert EBCDIC decimal to 

binary. 

i 

1 3 | 

| DMKCDB 





i 

1 1 

| DMKCDS 


1 1 



i 


| DMKCFP 





i 

1 1 

| DMKCFS 


1 1 



i 

1 1 

|DMKCFT 





i 

1 1 

|DMKCQG 





i 

1 1 

| DMKCSO 





i 

1 1 

|DMKCSP 





i 

1 1 

IDMKCSU 





i 

1 1 

| DMKDEF 





i 

1 1 

|DMKMSG 


|DMKCVTDT 

Convert data and time to 

EBCDIC. 

i 

1 4 | 

| DMKCFS 


1 1 



i 

1 1 

| DMKCPI 





i 


|DMKCQG 





i 


IDMKHVC 





i 

1 1 

| DMKIOF 





i 

1 1 

| DMKLOG 





i 

1 1 

|DMKMID 


1 i 



i 

1 1 

|DMKQCN 





i 

1 1 

| DMKRSP 





i 

1 1 

|DMKSEP 





i 

1 1 

|DMKSPL 





i 

1 1 

|DMKUSO 


i 



i 

1 1 

| DMKVSP 

_i 


Directories 479 












IBM VM/370: Control Program Logic 480 


( 

| Name 

1 

Comments 

| MOD 

jChart|Calls To 

1 

Called By 

j 

|DMKCVTFP 

1 

Convert floating-point 

1 

i 

1 

1 


DMKCDB 



1 

hexadecimal to binary. 

1 

1 


1 




|DMKCVTHB 

1 

Convert EECDIC hexadecimal 

1 

i 

1 

i 


DMKCDE 



i 

to binary. 

1 

1 


1 


DMKCDS 



1 


1 

1 


1 


DMKCFD 



1 


1 

1 


1 


DMKCFM 



1 


1 

1 


1 


DMKCFP 



1 


1 

i 


1 


DMKCFS 



1 


1 

1 


1 


DMKCPV 



1 


1 

1 


1 


DMKCQG 



1 


1 

i 


1 


DMKCQP 



I 


1 

1 


1 


DMKC SO 



I 


1 

1 


1 


DMKCSP 



I 


1 

i 


i 


DMKDEF 



1 


1 

1 


1 


DMKDIA 



1 


i 

1 


1 


DMKLNK 



1 


i 

1 


i 

i 


DMKVDB 


| DMKDAS 

i 

i 

DASD ERP 

1 

1 

i 

i 


1 

|DMKCVTBH 





1 

Data Areas Used: 

1 

i 


j DMKFREE 





1 

IOBLOK 

i 

1 


|DMKFRET 





1 

ICERELCK 

1 

1 


|DMKIOESD 





1 

RDEVBLOK 

1 

i 


|DMKIOSQR 





1 

SAVEAREA 

1 

i 


| DMKMSWR 





1 

VMBLOK 

1 

i 


|DMKQCNWT 





1 


1 

i 


| DMKSCNRU 




|DMKDASER 

1 

Retry the failing DASD channel 

1 

i 


1 





1 

program. 

1 

i 

1 

1 


DMKIOS 


|DMKDASRD 

1 

Process unsolicited Device End 

1 

i 


1 





1 

interrupts. 

1 

i 

9 

1 


DMKIOS 


|D MKDASSD 

1 

Collect 3330 Statistical Data 

1 

i 

i 

i 

8 

1 

1 


DMKCPV 


IDMKDEF 

1 

1 

Define a virtual device 

1 

1 

I 

i 


1 

|DMKBLDRL 





1 

or storage. 

1 

i 


| DMKBLDRT 





1 

Data Areas Used: 

1 

i 


|DMKCFPRD 





1 

VDEVBLOK 

1 

i 


|DMKCFPRR 





1 

VMBLOK 

1 

i 


|DMKCVTBD 





i 

SAVEAREA 


i 


|DMKCVTEH 





I 


1 

i 


|DMKCVTDE 





1 


1 

i 


| DMKCVTHB 





\ 


1 

i 


|DMKERMSG 





1 


1 

i 


|DMKFREE 





1 


I 

i 


|DMKPGSPO 





1 


1 

i 


|DMKQCNNT 




i_ 

1 


1 

i 


|DMKSCNFD 



_i 

















1— 

| Name 

i 

Comments 

| MOD |Chart|Calls To|Called By 

—i 


1 


1 1 

| DMKSCNVD| 



i 


1 1 

|DMKSCNVN| 



1 


1 1 

|DMKSCNVU| 



i 


1 1 

|DMKUDRFU| 



i 


1 1 

|DMKUDRLK| 



i 


1 I 

j DMKUDRRD| 



i 


1 1 

j DMKUDRRV| 



i 


1 1 

|DMKUDRUL| 



i 


1 1 

|DMKVDSDF| 


|DMKDEFIN 

i 

1 

DEFINE command processor. 

1 1 1 

1 1 

| |DMKCFM 

i i 


IDMKDGD 

1 

i 

DASD I/O 

1 1 

1 1 

1 1 

|DMKFREE | 



i 

Data Areas Used: 

1 1 

|DMKFRET | 



1 

IOBLOK 

1 1 

|DMKIO SQV| 



1 

SAVEAREA 

1 1 

|DMKPTRUL| 



i 

VDEVBLCK 

1 1 

|DMKSCNVU| 



i 

VMBLOK 

1 1 

i i 


|D MKDGDDK 

i 

i 

Perform disk I/O, 

t i 1 

| IDMKHVC 


|DMKDIA 

1 

i 

Connect terminal to 

1 1 

t 1 

1 1 
|DMKACODV| 



1 

virtual 27CX or convert 

1 1 

|DMKBLDVM J 



i 

virtual channel to 

1 1 

|DMKCVTBD| 



i 

channel adapters. 

1 1 

|DMKCVTEH J 



i 

Data Areas Used: 

1 1 

J DMKCVTHB| 



i 

SAVEAREA 

1 1 

|DMKDSPCH| 



i 

VCHBLOK 

1 ! 

|DMKERMSG | 



i 

VCUELOK 

1 I 

!DMKFREE | 



i 

VDEVBLOK 

1 1 

|DMKFRET | 



i 

VMBLOK 

1 1 

|DMKIO SQR| 



i 


( I 

|DMKQCNWT| 



i 


1 ! 

|DMKSCNAU| 



i 


1 1 

|DMKCNSFD| 



i 


1 1 

|DMKSCNRD| 



i 


I 1 

|DMKSCNVD| 



i 


1 1 

|DMKSCNVU1 



i 


I 1 

|DMKSTKIO| 


|DMKEIACP 

i 

COUPLE command processor. 

1 1 8 

1 1 


|DMKEIADR 

i 

Drop dialed line to virtual 

1 1 

| |DMKCCW 



i 

System 

1 1 5 

| |DMKCFD 


IDMKDIAL 

i 

DIAL command processor. 

1 1 1 

| |DMKCFM 


|DMKLIASM 

i 

i 

Simulate status for undialed lines 

1 1 6 

t i 

| IDMKVCA 

i i 


|DMKEMP 

1 

i 

Dump system and re—IPL 

1 1 

1 1 

1 1 

I 1 


|DMKDMPDK 

i 

WRITE dump to output device. 

I I 1 

| |DMKPRG 


t_ 

i 


1 1 

| |DMKPSA 

_ i 


Directories 481 
















IBM VM/370: Control Program Logic 482 


I— 

| Name 

1 

Comments 

| MOD 

|Chart|Calls To|Called By 

—i 

|DMKDMPRS 

i 

Re-IPL system. 

1 

i 

3 

1 


DMKCPV 



I 


1 

1 


i 


DMKCPV 


|DMKDRD 

1 

Process spool files 

1 

1 


|DMKFREE 





i 

Data Areas Used: 

i 

i 


|DMKPGTSD 





1 

SAVEAREA 

I 

i 


|DMKQRVKY 





1 

SFBLOK 

1 

i 


|DMKPTRAN 





1 

SWPTABLE 

i 

i 


|DMKRPAGT 





i 

UDEVELCK 

i 

i 


|DMKSCNVU 





i 

VSPCT1 

1 

1 


|DMKVSPCR 





1 

VMBLOK 

i 

1 


1 




|D MKDRDDD 

1 

Delete system dump spool file. 

1 

i 

7 



DMKSPL 


|DMKDRDER 

i 

Diagnose interface to input 

i 

i 


i 





1 

spool files. 

i 

i 

1 

i 


DMKHVC 


|DMKDRDMP 

i 

Diagnose read of system dump 

i 

1 


i 





i 

spool files. 

i 

i 

6 

1 


DMKHVC 


|DMKDRDSY 

i 

Diagnose read of system 

1 

• 


1 





1 

symbol table. 

1 

i 

1 

i 

7 

1 

| 


DMKHVC 


|D MKDSP 

i 

i 

Dispatcher 

1 

i 

1 

1 


|DMKCFMBK 





1 

Data Areas Used: 

i 

1 


|DMKQCNWT 





1 

CPEXBICK 

i 

i 


|DMKSCHDL 





i 

ECBLOK 

i 

i 


|DMKSCNVU 





1 

ICBLOK 

1 

i 


| DMKTRCEX 





1 

VCHBLOK 

1 

i 


|DMKTRCIO 





1 

VCUB10K 

1 

i 


| DMKTRCIT 





1 

VDEVBLOK 

1 

i 


|DMKUSOFF 





1 

VMBLCK 

1 

i 


| DMKVATAB 





| 


1 

i 


|DMKVATEC 





I 


1 

i 


| DMKVATMD 




|D MKDSPA 

1 

Fast user re—dispatch* 

1 

i 

9 

1 


DMKPRV 


|DMKDSPB 

1 

Process new virtual PSW and 

1 

i 

9 

1 


DMKPRG 



1 

dispatch. 

1 

i 


1 


DMKPRU 



| 


1 

i 


1 


DMKPSA 



1 


1 

i 


1 


DMKVIO 


| DMKDSPCH 

1 

Update timers and dispatch users. 

|2B 

i 

1 

1 


DMKACO 



| 


1 

i 


1 


DMKCDB 



| 


1 

i 


1 


DMKCFM 



| 


1 

i 


1 


DMKCFD 



| 


1 

i 




DMKCPI 



| 


1 

i 


1 


DMKCSO 



| 


1 

i 


1 


DMKDIA 



| 


1 

i 


1 


DMKEPS 



| 


1 

i 


1 


DMKGEN 



| 


1 

i 


1 


DMKHVC 



| 


1 

i 


1 


DMKIOE 


i_ 

1 


1 

i 


1 


DMKIOS 
















1- 

| Name 

i 

Comments 


| MOD 

IChartJCalls To|Called By 

— i 

| DMKDSPCH 

i 



i 

i 


i 

|DMKMCH 


1 (cont) 

i 



i 

i 


1 

|DMKPAG 



i 



i 

i 


i 

|DMKPGT 



i 



i 

i 


i 

|DMKPRG 



i 



i 

i 


i 

|DMKPRV 



i 



i 

i 



|DMKPSA 



i 



i 

i 


i 

|DMKPTR 



i 



i 

i 


i 

|DMKRPA 



i 



i 

i 


i 

|DMKTRC 



i 



i 

i 


i 

|DMKTMR 



i 



i 

i 


i 

|DMKUSO 



i 



i 

i 


i 

|DMKVCA 



i 



i 

i 


i 

IDMKVIO 



i 



i 

i 


1 

|DMKVSP 



i 



i 

i 


i 

|DMKWRM 


|DMKEIG 

I 

i 

2880 Channel logout 

analysis. 

i 

i 

1 

i 


i 

i 

i 

i 



i 

Data Areas Used: 


i 

i 


i 

i 



i 

CCHREC 


j 

i 


i 

i 


|DMKEIG80 

i 

i 

2880 Channel logout 

analysis. 

i 

i 

i 

i 

1 

i 

i 

|DMKCCH 

i 


|DMKEPSWD 

■ 

i 

■ 

Entry point in DMKLNK. 

1 

i 

I 

1 

i 


I 

1 

i 

1 

|DMKLOG 

1 


IDMKERM 

i 

i 

Message writer 


i 

i 

1 

i 


1 

|DMKFREE 

1 

i 



i 

Data Areas Used: 


i 

i 


|DMKFRET 

i 



i 

SAVEAREA 


i 

i 


|DMKQCNWT| 



i 

VMBLOK 


i 

i 


i 

i 


|DMKERMSG 

i 

Message writer. 


i 

i 

1 

i 

|DMKACO 



i 



i 

i 


i 

|DMKBLD 



i 



i 

i 


i 

jDMKCDB 



i 



i 

i 


i 

|DMKCDS 



i 



i 

i 


i 

|DMKCFD 



i 



i 

i 


i 

|DMKCFM 



i 



i 

i 


i 

|DMKCFP 



i 



i 

i 


i 

|DMKCFS 



i 



i 

i 


i 

|DMKCFD 



i 



i 

i 


i 

|DMKCPV 



i 



i 

i 


i 

|DMKCQG 



i 



i 

i 


i 

|DMKCQP 



i 



i 

i 


i 

|DMKCSO 



i 



i 

i 


i 

|DMKCSP 



i 



i 

i 


i 

|DMKCSU 



i 



i 

i 


i 

|DMKDEF 


i _ 

i 



i 

i 


i 

|DMKDIA 

_i 
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IBB VB/370: Control Program logic 484 


1- 

| Name 

i 

Comments 

| MOD 

|Chart!Calls To|Called By 

—l 

IDMKERMSG 

i 


i 

i 


( |DMKLNK 


1 (cont) 

i 


i 

i 


| |DMKLOG 



1 


i 

i 


| |DMKMSG 



1 


i 

i 


| |DMKRSP 



1 


i 

i 


| |DMKTRA 



1 


i 

1 


| |DMKUSO 



1 


i 

i 


| |DMKVCH 



1 


i 

i 


| |DMKVDB 



1 


i 

i 


| |DMKVSP 



i 


i 

i 

i 


| |DMKWRM 

i i 


|DMKFRE 

i 

i 

Free storage manager* 

i 

i 

i 

i 


1 l 

|DMKPTRFR| 



i 

Data Areas Used: 

i 

i 


|DMKPTRFT| 



i 

FREESAVE 

i 

i 


i i 


IDMKFREE 

i 

Get space from free storage* 

| 6B1 

i 

1 

| | (General 


|DMKFRET 

i 

Return space to free storage* 

i 6B2 

i 

9 

| j entries) 


|DMKFRETR 

i 

Return space to free storage; 

1 

i 


i i 



i 

do not release pages* 

1 

i 

8 

| |DMKCPI 



i 


1 

1 

i 

i 


| |DMKPTR 

i i 


|DMKGEN 

i 

i 

Process CMS I/O error recovery* 

1 

1 

1 

i 


1 I 

|DMKCCWTR) 



i 

Data Areas Used: 

1 

i 


|DMKDSPCH| 



i 

IOBLOK 

1 

i 


IDMKFREE | 



i 

IOERBLOK 

1 

i 


|DMKFRET | 



i 

RDEVBLOK 

1 

i 


|DMKIOSQV| 



i 

SAVEAREA 

1 

i 


|DMKSCNVU| 



i 

VDEVBLOK 

1 

i 


|DMKUNTFR| 



i 

VMBLOK 

1 

i 


IDMKUNTRN| 


|DMKGENIO 

i 

i 

Process CMS I/O error recovery* 

1 

1 

i 

1 

| IDMKHVC 

i i 


|DMKGRA 

1 

i 

Read or write to the primary 

1 

1 

1 

i 


1 1 

I 1 



i 

system console* 

1 

i 


1 1 



i 

Data Areas Used: 

1 

i 


1 1 



i 

None. 

1 

i 


1 1 


|DMKGRARD 

i 

Read from primary system console* 

1 

i 

1 

1 1 


|DMKGRAWT 

i 

Write to primary system console. 

1 

i 

3 

| |DMKCKP 



i 


1 

1 

i 

i 


| |DMKRSP 

i i 


IDMKHVC 

i 

Process DIAGNOSE 

1 

1 

i 


1 1 

|DMKCFMBK| 



i 

Data Areas Used: 

1 

i 


| DMKCFMEN| 



i 

RDEVBLOK 

1 

i 


|DMKCVTDTJ 



i 

VDEVBLOK 

1 

i 


|DMKDGDDK| 



i 

VMBLOK 

1 

i 


| DMKDRDER| 



i 


1 

i 


|DMKDRDMP| 



i 


1 

i 


|DMKDRDSY| 


i_ 

i 


1 

i 


|DMKDSPCH| 

_i 













Name | Comments | MOD |Chart|Calls To|Called By 


DMKHVC 

i 

1 

1 

|DMKFREE | 

(cont) 

i 

1 

1 

|DMKGENIO| 


i 

1 

1 

|DMKIOEFM| 


i 

1 

1 

|DMKPGSPP| 


i 

1 

1 

|DMKPRGSM| 



1 

1 

|DMKPRVKYj 


i 

1 

1 

|DMKPTRAN| 


i 

1 

1 

|DMKRPAGT| 


i 

1 

1 

|DMKSCNRU| 


i 

1 

1 

|DMKSCNVU| 


i 

1 

1 

|DMKUDRDS| 

DMKHVCAL 

| Process a diagnose instruction 

1 

1 

1 1 


| from a virtual machine. 

1 

1 

1 

1 

I 

1 | |DMKPRV 

1 1 
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Directories 484.1 















1— 

| Name 

i 

Comments | MOD |Chart|Calls To|Called By 

—i 

j DMKIOE 

i 

Initiate error recording. | 

i 

IDMKCCHRT| 



1 

Data Areas Used: 1 

1 

| DMKCFMEK| 



i 

IBBLOK | 

i 

|DMKDSPCH| 



i 

ICEEBLOK | 

1 

|DMKFREE | 



1 

IRMBLOK | 

i 

|DMKFRET | 



i 

RDEVELCK | 

1 

|DBKIOFC1| 



1 

SAVEAREA | 

i 

|DBKI0FE1| 



i 

VMBLOK | 

i 

|DMKIOFIN| 



i 

1 

i 

IDBKI0FE1| 



i 

i 

1 

|DBKIOFB1| 



1 

1 

i 

|DMKIOGF1| 



i 

i 

i 

|DBKIOGF2| 



i 

i 

! 

|DMKQCNNT| 


|DMKICECC 

i 

Channel error from SIO in | 

1 

i i 



i 

DEKICS, CC=1. | 

| 5 

| |DMKCCH 


|DMKIOECH 

i 

Stack channel check recording | 

i 

i i 



i 

from DMKCCH. | 

| 5 

| | DMKIOF 


|DMKIOECJ 

i 

Stack channel check recording | 

i 

i i 



1 

from ERP. | 

1 6 

j |DMKIOF 


|DMKIOEFL 

i 

Locate starting page record | 

i 

i i 



i 

for recording. | 

1 6 

| | DMKCPI 


|DMKIOEFM 

i 

Clear and format recording area | 

i 

i i 



i 

on disk. | 

1 7 

| | DMKHVC 


|DMKIOEMC 

i 

Machine check recording. | 

1 6 

| |DMKMCH 


|DMKICEMH 

i 

Stack machine check recording. | 

1 6 

| |DMKIOF 


| DMKIOENV 

i 

Stack environmental recording | 

1 5 

| | DMKIOF 


|D MKICEOB 

i 

Stack OBR recording. | 

1 4 

| |DMKIOF 


|DMKICERC 

i 

Stack erase request. | 

1 7 

| | DMKIOF 


| DMKIOERR 

i 

Schedule recording for unit check,| 

1 1 

| |DMKIOS 



i 

channel data check, and hardware} 

1 

1 1 



i 

environmental counts. | 

1 

1 1 


|DMKIOESD 

i 

i 

Record 3330 data | 

1 

1 5 

1 

| | DMKDAS 

1 1 


| DMKIOF 

i 

i 

1 

Perform error recording | 

1 

1 

! 1 
|DMKCVTET| 



i 

Data Areas Used: 1 

1 

1DMKIOECH| 



i 

CPDEVCOD | 

1 

|DMKIOECJ| 



i 

ICBLGK | 

i 

|DMKIOEMH| 



i 

RDEVBLOK | 

1 

|DMKIOENV| 



i 

SAVEAREA | 

1 

|DMKIOEOB| 



i 

VMBLOK | 

1 

|DMKIOERC| 



i 

1 

1 

|DMKFRET | 



i 

1 

1 

|DMKPGTVG| 



i 

1 

1 

|DMKPGTVR| 



i 


I 

|DMKPTRAN| 


i_ 

i 

1 

1 

|DMKPTRUL| 

i 
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Name 


| Comments 


DMKI0FC1 

DMKI0FE1 

DMKICFIN 

DMKI0FM1 
DMKIOFR1 

DMKIOG 


DMKIOGF1 

DMKI0GF2 

DMKICS 


DMKICSHA 

DMKIOSIN 

DMKIOSQR 


Records channel check error from 
SIC in DMKIOS r CC=1. 

Records 3330 and 2305 
environmental counters. 
Initialize pointers to available 
recording pages. 

Record machine checks. 

Record outboard I/O errors. 

Initializaticn/cleanup error 
recording routines. 

Data Areas Used: 

RDEVBLOK 

SAVEAREA 

VMBLOK 

Initialize RMS functions. 

Erase recording area on disk. 

I/O Supervisor 
Data Ar eas Used: 

CPEXBLOK 

IOBLOK 

RCHBLOK 

RCUBLOK 

RDEVBLOK 

SAVEAREA 

TEMPSAVE 

VDEVBLOK 

VMBLOK 


Halt an active device and drain 
all interrupts. 

Process an I/O interrupt. 
Schedule control program 
generated I/O. 


IBM VM/370: Control Program Logic 486 


| MOD 

|Chart 

|Calls To|Called By 

1 

1 


|DMKQCNWT| 

i 

1 


|DMKRPAGT| 

i 

1 


|DMKRPAPT| 

i 

1 


|DMKSTKCP{ 

i i 

1 

i 

1 

1 

12 

1 1 

| |DMKIOE 

■ i 

i 

i 

1 

1 

9 

1 1 

| |DMKIOE 

i i 

i 

i 

1 

1 

13 

1 1 

| |DMKIOE 

i 

1 

13 

| |DMKIOE 

i 

1 

1 

| |DMKIOE 

1 i 

i 

i 

1 

1 


1 1 
|DMKFREE | 

i 

1 


|DMKPGTYG| 

i 

1 


|DMKPGTVR| 

i 

1 


|DMKQCNWT| 

i 

1 


|DMKRPAGT| 

i 

1 


|DMKRPAPT| 

i 

1 


|DMKSCNRU| 

i 

1 

1 

| |DMKIOE 

i 

■ 

1 

4 

| |DMKIOE 

i i 

1 

i 

1 

1 


1 1 

|DMKCCHIS| 

i 

1 


|DMKCCHNT| 

i 

1 


|DMKCN SIN| 

i 

1 


|DMKDASER| 

i 

1 


|DMKDSPCH| 

i 

1 


|DMKFREE | 

i 

1 


|DMKFRET | 

i 

1 


|DMKIOERR| 

i 



|DMKRSPER| 

i 

1 


|DMKSCHDL| 

i 

1 


|DMKSCNRU{ 

i 

1 


|DMKSTKCP| 

i 

1 


|DMKSTKIO| 

i 

1 


|DMKTAPER| 

i 

1 


|DMKTRCSI| 

i 

1 


|DMKVIODC| 

i 

1 

1 

| |DMKCFP 

i 

1 


| |DMKCPV 

11B4. 1 

1 

3 

1 1 

1 

1 


| |DMKACO 

|1B4.3 

1 

1 

| |DMKCFP 

1 

1 


| |DMKCNS 











1- 

| Name 

i 

Comments 

| MOD 

|Chart|Calls To|Called By 

—i 

| DMKIOSQR 

i 


i 

i 

i 


DMKCPI 


I (cont) 

i 


i 

i 

i 


DMKCPV 



i 


i 

» 

i 


DMKCSO 



i 


i 

i 

i 


DMKDAS 



i 


i 

i 

i 


DMKDIA 



i 


i 

i 

i 


DMKPAG 



i 


i 

i 

i 


DMKPRG 



i 


i 

i 

i 


DMKQCN 



i 


i 

1 

i 


DMKRSP 



i 


i 

i 

i 


DMKSEP 



i 


i 

i 

i 


DMKSPL 



i 


i 

i 

i 


DMKUDR 



i 


i 

i 

i 


DMKVDB 


|DMKIOSQV 

i 

Schedule virtual machine I/O 

I1B4.3 

1 1 

i 


DMKDGD 



i 


1 

i 

i 


DMKGEN 



i 


1 

i 

i 


DMKVIO 


|D MKIOSRW 

i 

Process IOBLOK used for rewind. 

1 

1 11 

i 


DMKCFP 



i 


1 

i 

i 

i 


DMKVDB 


|DMKISM 

1 

i 

Process ISAM CCWs 

1 

1 

i 

i 

1 

|DMKFREE 





i 

Data Areas Used: 

1 

i 






i 

IOBLOK 

1 

i 

i 





i 

RCWTASK 

1 

i 

i 





i 

SAVEAREA 


i 

i 





i 

i 

VMBLOK 

1 

1 

i 

i 

i 

i 




|DMKISMTR 

i 

i 

i 

Find and modify ISAM CCWs 

1 

1 

1 

1 

| 1 
i 

1 

i 

1 


DMKCCW 


|DMKLNK 

1 

i 

Link to a virtual device. 

1 

1 

1 

i 

1 

|DMKCVTBD 





i 

Data Areas Used: 

1 

i 

|DMKCVTBH 





i 

BUFFER 

1 

i 

|DMKCVTHB 





i 

RDEVBLOK 

1 

i 

|DMKEPSWD 





i 

SAVEAREA 

1 

i 

|DMKERMSG 






UDEVBLOK 

1 

i 

|DMKFREE 





i 

UDIRBLOK 

1 

i 

|DMKFRET 





i 

VDEVBLOK 

1 

i 

|DMKQCNRD 





i 

VMBLOK 

1 

i 

|DMKQCNWT 





i 


i 

i 

|DMKSCNAU 





i 


1 

i 

|DMKSCNFD 





i 


1 

i 

|DMKSCNLI 





i 


1 

i 

|DMKSCNVN 





i 


1 

i 

| DMKSCNVS 





i 


1 

i 

|DMKSCNVU 





i 


1 

i 

|DMKUDRFD 





i 


1 

i 

|DMKUDRFU 




i_ 




. 


_ 
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f-'- 

| Name 

i 

Comments 

| MOD 

|Chart|Calls To|Called By 

—i 

1 . . . 

Idmklnk 

i 


i 

1 


|DMKUDRRV| 


1 (cont) 

i 


i 

1 


|DMKVDBRL| 


i 

i 


i 

1 


|DMKVDSLK| 


1DMKEPSHD 

i 

Enter a password* (Part of LINK) 

i 

1 

1 

| |DMKLOG 


Idmklnkin 

i 

LINK command processor. 

i 

1 

1 

| |DMKCFM 


|DMKLNKSB 

i 

LINK subroutines. 

i 

i 

1 

1 

9 

| |DMKLOG 

1 1 


1 

|DMKLOC 

1 

i 

Lock system resource by unique 

i 

i 

1 

1 


|DMKFREE | 


1 

i 

name. 

i 

1 


|DMKFRET | 


i 

i 

Data Areas Used: 

i 

1 


i i 


1 

i 

CPEXBLOK 

i 

1 


( i 


|DMKLOCK 

i 

Lock a name. 

i 

1 

1 

| IDMKLNK 


|DMKLOCKD 

i 

Dequeue a locked name. 

i 

1 

1 

| |DMKDEF 


1 

i 


i 

1 


| IDMKLNK 


1 

i 


i 

1 


| |DMKUDR 


1 

1 


i 

1 


| |DMKUSO 



i 


i 

1 


| |DMKVDB 


|DMKLOCKQ 

i 

Queue or lock a name. 

i 

1 

2 

| |DMKDEF 


i 

i 


i 

1 


| |DMKUDR 


1 

1 


i 

1 


| |DMKUSO 


i 

i 


i 

1 


| |DMKVDB 


|DMKLOCKT 

i 

i 

i 

Test if a name is locked. 

i 

1 

1 

1 

1 

i t 

1 1 


1 

|DMKLOG 

1 

i 

Loqon a user or operator. 

1 

i 

1 

1 


1 1 
|DMKACON | 


1 

i 

Data Areas Used: 

i 

1 


|DMKBLDRT| 


1 

i 

BUFFER 

i 

1 


|DMKCFPII | 


1 

i 

RDEVBLOK 

i 

1 


|DMKCQGFI| 


1 

i 

SAVEAREA 

i 

1 


|DMKCVTBD| 


1 

i 

UDEVBLOK 

i 

1 


|DMKCVTBH| 


1 

i 

UDIRBLOK 

i 

1 


| DMKCVTDT| 


1 

i 

UMACBLOK 

i 

1 


|DMKEPSWD| 


1 

i 

VCHBLOK 

i 

1 


|DMKERMSG| 


1 

i 

VCUBLOK 

i 

1 


|DMKFREE | 


1 

i 

VDEVBLOK 

i 

1 


|DMKFRET | 


1 

i 

VMBLOK 

i 

1 


|DMKLNKSB | 


1 

i 


i 

1 


|DMKQCNWT| 


I 

i 


i 

1 


|DMKSCHCP| 


1 

i 


i 

1 


|DMKSCH80| 


1 

i 


i 

1 


|DMKSCNAU| 


1 

i 


i 

1 


|DMKSCNFD | 


1 

i 


i 

1 


|DMKSCNRD| 


1 

i 


i 

1 


|DMKSCNRU| 


I 

i 


i 

1 


|DMKSCNVN| 


1 

i 


i 

1 


|DMKSCNVU| 


I 

l_ 

i 


i 

1 


|DMKTMRCK| 

_i 










1- 

| Name 

i 

Comments | MOD 

|Chart|Calls To(Called By | 

|DMKLOG 

i 

i 

1 


|DMKUDRFU| 

i 

| (cont) 

i 

i 

i 


|DMKUDRRD| 



i 


i 


(DMKUDRRV| 



i 

i 

i 


|DMKUSOFL| 



i 

i 

i 


|DMKVD SAT| 



i 

i 

i 


|DMKVDSDF| 


|DMKLOGON 

i 

LOGON a user. 1 

i 

1 

i i 

DMKCFM ( 

|DMKLOGOP 

1 

i 

LOGON the operator. | 

i 

9 

i i 

DMKCPI ( 

|DMKMCC 

I 

i 

1 

Monitor Command Handler | 

i 

i 


1 1 

|DMKERMSG| 




Data Areas Used: | 

i 


|DMKFREE | 



i 

cortablS | 

i 


|DMKPTRFR| 



i 

MONCOMM | 

i 


|DMKPTRFT| 



i 

PSA | 

i 


|DMKQCNWTJ 



i 

VMBLOK ( 

1 


|DMKSCNFD| 


|DMKMCCCL 

i 

Process the MONITOR Command | 

i 

1 

i i 

DMKCFM ( 

|DMKMCH 

i 

i 

1 

Machine Check Handler | 

i 

i 


I 1 

|DMKCFMBK| 



i 

Data Areas Used: 1 

i 


|DMKCFPRR| 



i 

CORTABLE | 

i 


|DMKDMPRS| 



t 

MCHAREA | 

i 


|DMKDSPCH| 



i 

MCRECORD | 

i 


(DMKFREE ( 



i 

PAGTABLE | 

i 


|DMKIOEMC| 



i 

PSA | 

i 


|DMKPGSPO| 



i 

SEGTABLE | 

i 


(DMKPTRFTJ 



i 

SWPTABLE | 

i 


(DMKQCNWTJ 



i 

VMBLOK | 

i 


(DMKSCNFD( 



i 

1 

i 


(DMKSTKCP| 



i 

1 

i 


|DMKUSOFF| 


|DMKMCHIN 

i 

Process a machine check interrupt.|8B1 

i 

1 

1 1 

DMKCPI ( 

|DMKMCHMS 

i 

Enable or disable soft recording | 

i 


I 1 



i 

i 

from SET command |8B1 

i 

i 

i 

8 

1 1 

i i 

DMKCFS ( 

|DMKMID 

1 

i 

1 

Date Change I 

1 

i 


1 1 
| DMKCVTDT| 



i 

1 

i 


(DMKQCNWTJ 



i 

1 

i 


|DMKSCHST| 


|DMKMIDNT 

i_ 

i 

Change system date at midnight. | 

i 

1 

1 1 

DMKSCH | 

_i 
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1- 

| Name 

i 

Comments 

| MOD |Chart|Calls To|Called By 


IDMKMSG 

i 

i 

Message Handler. 

1 1 

1 1 

1 1 
|DMKCVTDB f 



i 

Data Areas Used: 

1 1 

|DMKERMSG f 



i 

BUFFER 

1 1 

|DMKFREE | 



i 

RDEVBLOK 

1 1 

| DMKFRET | 



i 

SAVEAREA 

1 1 

|DMKQCNRD| 



i 

VDEVBLOK 

I 1 

|DMKQCNWT| 



i 

VMBLOK 


|DMKSCNAU J 



i 


1 1 

|DMKSCNFD| 


|DMKMSGEC 

i 

ECHO command processor. 

I 1 2 

| |DMKCFM 


|DMKMSGMS 

i 

MSG command processor. 

1 1 2 

| |DMKCFM 


|DMKMSGWN 

i 

i 

WNG command processor. 

1 1 1 

| |DMKCFM 

| I 


|DMKMSW 

• 

i 

ERP Message Writer 

1 1 

i i 

| DMKCVTBH| 



i 

Data Areas Used: 

i i 

|DMKFREE | 



i 

10BLOK 

i i 

|DMKFRET | 



i 

I0ERBL0K 

i i 

1DMKQCNRD| 



i 

RDEVBLOK 

i i 

|DMKQCNWT| 



i 

SAVEAREA 

i i 

|DMKSCNRN| 



i 

VMBLOK 

i i 

i t 


|DMKMSWR 

i 

ERP message writer. 

I 1 1 

| |DMKCNS 



i 


i i 

| |DMKDAS 



i 


i i 

| |DMKSPL 





* i 

I |DMKTAP 

i i 


|DMKNEM 

i 

i 

Translate op—codes. 

1 1 

i i 

1 I 

i i 



i 

Data Areas Used: 


i i 



i 

SAVEAREA 

i i 

i i 


IDMKNEMOP 

i 

Translate op-codes. 

i i i 

i i 

| |DMKTRC 

1 1 


|DMKPAG 

i 

i 

Perform paging I/O 

1 1 

i i 

|DMKDSPCH| 



i 

Data Areas Used: 


|DMKFREE | 



i 

CORTABLE 

i i 

|DMKIOSQR| 



i 

CPEXBLOK 

i i 

|DMKSTKCP| 



i 

I0BL0K 

i i 

1 I 



i 

RDEVBLOK 

i i 

1 1 



i 

SAVEAREA 

i i 

1 t 



i 

SWPTABLE 

i i 

1 1 



i 

VMBLOK 

i i 

1 1 


|DMKPAGIO 

i 

Process requests for paging I/O 

. |1B3.5 | 1 

| |DMKPTR 


i_ 

i 


1 1 

| |DMKRPA 

—i 


ft •*, 


( ' 













r\ 


1-- — - 

| Name 

i 

Comments 


I HOD 

|Chart(Calls To|Called By 


(DMKPGS 

i 

i 

Release virtual storage* 


1 

1 

i 

i 


i i 

| DMKFREE | 



i 

Data Areas Used: 


1 

« 


| DMKFRET | 



i 

CORTABLE 


1 

i 


(DMKPGTPR | 



i 

PAGTABLE 


1 

i 


| DMKPTRAN | 



i 

SAVAREA 


1 

i 


|DMKPTRFT | 



i 

SEGTABLE 


1 

i 


i i 



i 

SHRTABLE 


1 

i 


i i 



i 

SWPTABLE 


1 

i 


i i 



i 

VMBLOK 


1 

i 


t i 


|DMKPGSPO 

i 

Release user's entire 


1 

i 


i i 



i 

virtual storage. 


|1B3.4 

1 

2 

| | DMKCFP 



i 



1 

i 


| |DMKDEF 



i 



1 

i 


| | DMKMCH 



i 



1 

i 


| | DMKUSO 


|DMKPGSPP 

i 

Release a specified area 

of 

I 

i 


i i 



i 

i 

virtual storage. 


|1B3.4 

1 

i 

i 

1 

| | DMKHVC 

i i 


|DMKPGT 

1 

i 

DASD storage management. 


1 

1 

1 

i 


1 1 
|DMKDSPCH| 



i 

Data Areas Used: 


1 

i 


|DMKFREE | 



i 

ALOCBLOK 


1 

i 


(DMKFRET | 



i 

CPEXBLOK 


1 

i 


|DMKQCNWT| 



i 

PAGTABLE 


1 

i 


|DMKSTKCP| 



i 

RDEVBLOK 


1 

i 


1 1 



i 

RECBLOK 


1 

i 


1 1 



i 

SAVEAREA 


1 

i 


I 1 



i 

SWPTABLE 


1 

i 


1 1 



i 

VMBLOK 


1 

i 


1 I 


|DMKPGTPG 

i 

Allocate DASD storage for 

paging. 

I1B3.3 

i 

1 

| (DMKPTR 


|DMKPGTPR 

i 

Release DASD storage used 

for 

11B3.3 

i 

5 

| |DMKPGS 



i 

paging. 


1 

i 


| |DMKPTR 


i_ 

i 



1 



| |DMKRPA 

_1 
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1- 

| Name 

i 

Comments 

| MOD |ChartfCalls To(Called By 

—i 

j DMKPGTPR 

1 


1 1 


| |DMKSPL 


j (cont) 

i 


i i 


| IDMKVSP 


|DMKPGTSD 

i 

Release DASD storage used for 

i i 


i i 



i 

spooling. 

i i 

4 

| |DMKDRD 



i 


i i 


| |DMKSPL 


|DMKPGTSG 

i 

Allocate DASD storage for 

i i 


i i 



i 

spooling. 

i i 

3 

| |DMKRSP 



i 


i i 


| |DMKSPL 



i 


i i 


| IDMKVSP 


|DMKPGTSR 

i 

Release DASD storage used for a 

i i 


| |DMKSPL 



i 

complete spool file. 

I1B3.3 | 

5 

i i 


|DMKPGTVG 

i 

Allocate system virtual storage. 

I1B3.3 | 

7 

| |DMKIOF 





1 1 


| | DMKIOG 



i 




| |DMKLOG 



i 


1 1 


| |DMKRSP 



i 


1 1 


| |DMKSEP 



i 


1 1 


| |DMKSPL 



i 


1 1 


| |DMKUDR 



i 


1 1 


| IDMKVSP 



i 


1 1 


| |DMKWRM 


|DMKPGTVR 

i 

Release system virtual storage. 

1 1 

8 

| | DMKIOF 



i 


1 1 


| |DMKIOG 



i 


1 1 


| |DMKRSP 



i 


1 1 


| |DMKSEP 



i 


1 1 


| |DMKUDR 



i 


1 1 


| IDMKVSP 



i 

i 


1 1 

1 1 


| (DMKWRM 

i i 


| DMKPRG 

i 

Interrupt Handler 

1 1 

I 1 


1 1 
|DMKCFMBK| 



i 

Data Areas Used: 

1 1 


|DMKDMPDK| 



i 

TEMPSAVE 

1 1 


|DMKDSPB | 



i 

VMBLOK 

1 1 


|DMKDSPCH| 



i 




|DMKPRVLG| 



i 


1 1 


|DMKPSAID| 



i 


1 1 


|DMKPTRAN| 



i 


1 1 


|DMKQCNWT| 



i 


1 1 


| DMKTRCPG| 



i 


1 1 


|DMKVATPX| 



i 


1 1 


|DMKVATSX| 


|DMKPRGIN 

i 

Hardware program interrupt. 

1 1B3 | 

1 

| |DMKCPI 


|DMKPRGRF 

i 

Reflect SVC interrupt to 

1 1 


1 1 


i__ 

i 

virtual machine. 

11B3 | 

4 

| |DMKPSA 

—i 










1- 

| Name 

i 

Comments 

| MOD (Chart(Calls To(Called By 

— i 

j DMKPRGSM 

i 

Simulate virtual program 

i i 


i i 



i 

interrupt* 

i i 

4 

| |DMKHVC 



i 


i i 


( (DMKPRV 



i 


i i 


( (DMKTMR 



i 


i i 


| |DMKVAT 


(DMKPRV 

i 

Simulate privileged operations• 

t i 


(DMKDSPA ( 



i 

Data Areas Used: 

i i 


(DMKDSPB | 



i 

ECBLOK 

i i 


(DMKDSPCH( 



i 

VMBLOK 

i i 


|DMKHVCALJ 



i 


i i 


|DMKPRGSM| 



i 


i i 


|DMKPTRAN( 



i 


i i 


|DMKTMRTN( 



i 


i i 


(DMKTRCPVI 



i 


i i 


|DMKVATAB| 



i 


i i 


|DMKVATEX( 



i 




|DMKVATLA| 



i 


i i 


|DMKVATRN| 



i 


i i 


(DMKVIOEX( 


|DMKPRVKY 

i 

Process virtual storage keys* 

i i 

4 

| |DMKDRD 



i 


i i 


( |DMKHVC 



i 


i i 


| (DMKTMR* 



i 


i i 


| |DMKTRC 


t DMKPRVLG 

i 

Simulate a privileged operation* 

I1B3.7 | 

1 

| (DMKPRG 


|DMKPSA 

i 

Interrupt Handler 

1 1 


|DMKCFMBK( 



i 

Data Areas Used: 

1 1 


(DMKCVTBHI 



i 

SAVEAREA 

1 1 


| DMKDMPDK | 



i 

SYSLOCS 

1 1 


(DMKDSPB | 



i 


1 t 


| DMKFREE | 



i 


1 1 


| DMKPRGRF( 



i 


1 I 


| DMKPTRAN ( 



i 


1 1 


(DMKPTRUL ( 



i 


1 1 


| DMKQCNCL ( 



i 


1 1 


| DMKSCNRD | 



• 


1 1 


| DMKSTKIO | 



i 


1 1 


( DMKTRCSV | 


| DMKPSADU 

i 

Force an SVC 0 type of dump. 

1 1 

2 

| | DMKCPI 


|DMKPSAEX 

i 

External interrupt handler. 

1 1B2 | 

4 

( (DMKCPI 


|DMKPSAID 

i 

Get virtual address for any 

1 1 


1 1 


i_ 


instruction. 

1 1 

3 

( (DMKPRG 
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| Name 

i 

Comments 

| MOD |Chart!Calls To|Called By 

—i 

|DMKPSARR 

i 

Get virtual address for RR 

i i 


i i 



1 

instruction. 

i i 

3 

| |DMKTRC 


| DMKPSARS 

i 

Get virtual address for RS r SI, 

t i 


1 1 



1 

or SS instruction. 

i i 

3 

| |DMKTRC 


|DMKPSARX 

1 

Get virtual address for RX 

i i 


i i 



i 

instruction. 

i i 

3 

| |DMKTRC 


| DMKPSASV 

1 

i 

SVC interrupt handler. 

| 1B1 | 

1 

| |DMKCPI 

i i 


|D MKPTR 

■ 

i 

Real Storage Manager 

1 1 
1 1 


1 1 

|DMKCFMBK| 



i 

Data Areas Used: 

1 t 


|DMKDSPCH| 



1 

CORTABLE 

1 1 


|DMKFREE | 



i 

PAGTABLE 

1 1 


|DMKFRET | 



i 

SAVEAREA 

1 1 


|DMKFRETR| 



i 

SEGTABLE 

1 1 


|DMKPAGIO| 



1 

SWPTABLE 

1 1 


|DMKPGTPG| 



i 

VMBLOK 

1 I 


|DMKPGTPR| 



i 


1 1 


|DMKPTRFT| 



1 


1 1 


|DMKQCNWT | 



1 


1 1 


|DMKSCHDL| 



1 


1 1 


|DMKSTKCP1 


|DMKPTRAN 

1 

Translate user virtual storage 

1 1 


| |DMKCCW 



1 

address to a real storage address. 

I1B3.2 | 

1 

| |DMKCDB 



1 


i i 


| |DMKCDS 



1 


i i 


| |DMKCPV 



1 


i i 


| |DMKCSO 



1 


i i 


j j DMKDRD 



1 


i i 


| IDMKHVC 



1 


i i 


| |DMKIOF 



1 


i i 


| |DMKPGS 



1 


i i 


| |DMKPRG 



1 


i i 


| |DMKPRV 



1 


i i 


| |DMKPSA 



1 


i i 


| J DMKRPA 



1 


i i 


| |DMKSPL 



1 


i i 


| |DMKTMR 



1 


i t 


| |DMKTRC 



1 


i i 


| |DMKVCA 



1 


i i 


| IDMKVIO 



1 


i i 


| |DMKVSP 


|D MKPTRFD 

1 

Release page after writing 

i i 

11 

1 1 


|DM KPTRFE 

1 

Page must be swapped to extend 

i i 

7 

1 1 


|DMKPTRFR 

1 

Get a page of real storage. 

I1B3.2 | 

6 

| |DMKCPI 



1 


1 1 


| |DMKFRE 

_i 


Directories 493 














IBMKPTRLK 


LOCK 8 © 


j DMKPTBUL I Unlock a page of real storage. 


1 1 


i 


I 

|DMKQCN | Console queue manager 
I I Data Areas Used_ 

BUFFER 
CFEXBLOK 
CCNTASK 
IOBLOK 
RDEYELCK 
SAVEARBA 
VMBLOK 

|DMKQCNCL | Clear message queue. 

S ! 

|D MKQCNRD | Queue console read request. 


I IB 2 


l DHKCCk 
|BMKPS 1 
| DMKSPL 
| DMKACO 
| DMKCFP 
fBMKCPY 
|BMKCSG 
|DMKDGB 
S BMKIOF 
| DMKPSA 
|DMKEPI 
f DMKSEP 
f DMKSPL 
| DMKUNT 
|DMKVCA 
SDMKVSP 


DMKCVTDT 

DMKFREE 

DMKFRET 

DMKIGSQR 

DMKSTKCP 

DMKUSOFF 


I 

1DMKCFS 
|DMKPSA 
f DMKCFM 
|DMKCFS 
1 DMKCPI 
| DMKCP? 


I 

I 

1 

| 

I 

i 

i 

! 

S 

1 

1 

1 

1 

|DMKEPS f 
|DMKLUK S 
|DMKMSG | 
| DMKMSR { 

| DMKQCKWT 

i_ 

{ Queue console write request, 
j I 

1 

{ i 

i 

i 1 

1 

1 

1 

i 

I 

I 

1 

1 

1 

| DMKACO S 

| DMKCCH | 

| DMKCDB | 

!DMKCDS { 

|DMKCFD j 

i 







1- 

| Name 

i 

Comments 

| MOD 

|Chart|Calls To|Called By 

—i 

j DMKQCNWT 

i 


i 

i 

| |DMKCFM 


| (cont) 

i 


i 

i 

| |DMKCFP 



i 


i 

i 

| |DMKCFS 



i 


i 

i 

| j DMKCFT 



i 


i 

i 

| |DMKCPI 



i 


i 

i 

| |DMKCPV 



i 


i 

i 

| |DMKCQG 





i 

i 

| |DMKCQP 



i 


i 

i 

| |DHKCSO 



i 


i 

i 

| |DMKCSP 



i 


i 

i 

| |DMKCSU 



i 


i 

i 

| |DMKDEF 



i 


i 

i 

| |DMKDIA 



i 


i 

i 

| |DMKDSP 



i 


i 

i 

| |DMKEPS 



i 


i 

i 

| |DMKERM 



i 


i 

i 

| |DMKIOE 



i 


i 

i 

| |DMKIOF 



i 


i 

1 

| |DMKIOG 



i 


i 

i 

| |DMKLNK 



i 


i 

i 

| |DMKLOG 



i 


i 

i 

1 |DMKMCH 



i 


i 

i 

| |DMKMSG 



i 


i 

i 

j |DMKMSW 



i 


i 

i 

| |DMKPGT 



i 


i 

i 

| |DMKPRG 



i 


i 

i 

| |DMKPSA 



i 


i 

i 

| |DMKPTR 



i 


i 

i 

| |DMKRSP 



i 


i 

i 

| |DMKSPL 



i 


\ 

i 

| |DMKTRA 



i 


i 

i 

| |DMKTRC 



i 


i 

i 

| |DMKUSO 



i 


i 

i 

| |DMKVCA 



i 


i 

i 

| |DMKVCH 



i 


i 

i 

I |DMKVCN 



i 


i 

i 

| |DMKVDB 



i 


i 

i 

| |DMKWRM 


IDMKRPA 

i 

Virtual storage mapping. 

i 

i 

|DMKDSPCH | 



i 

Data Areas Used: 

i 

i 

| DMKFREE | 



i 

CoiTABLE 

i 

i 

|DMKPAGIO| 



i 

PAGTABLE 

i 

i 

|DMKPGTPR| 



i 

SAVEAREA 

i 

i 

|DMKPTRAN| 



i 

SWPTABLE 

» 

i 

|DMKPTRFT| 



! 

VMBLOK 

i 

i 

|DMKPTRUL| 


i_- 

1 


i 

i 

| DMKSCHDL| 

—J 
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f- 

j Name 

i 

Comments 


| MOD 

|Chart(Calls To|Called By 

—i 

|DMKRPAGT 

i 

Page-in from DASD to user*s 

i 

1 


1 1 



i 

virtual 

storage. 

i 

1 

1 

| |DMKCFP 



i 



i 

1 


t |DMKDRD 



1 



i 

1 


| IDMKHVC 



1 



i 

1 


| |DMKIOF 



1 



i 

1 


| IDMKIOG 



I 



i 

1 


| |DMKRSP 



1 



i 

1 


| |DMKUDR 



I 



i 

1 


| |DMKVSP 



1 



i 

1 


| |DMKWRM 


|DMKRPAPT 

i 

Page out to DASD from User's 

i 

1 

1 

| |DMKCVP 



i 

virtual 

storage. 

i 

1 


| |DMKIOF 



I 



i 

1 


| IDMKIOG 



1 



i 

1 


| |DMKRSP 



| 



i 

1 


| |DMKVSP 



i 



i 

1 


| |DMKWRM 

i i 


|DMKRSE 

i 

i 

Real U/R device I/O error handler. 

i 

i 

1 

1 


1 1 
| DMKFRET | 



i 

Data Areas 

Used: 

i 

1 


|DMKMSWR | 



i 

IOBLOK 


i 

1 


i i 



i 

I0ERBL0K 


i 

1 


i i 



i 

RDEVBLOK 


i 

1 


i i 



i 

SAVEAREA 


i 

1 


i i 



i 

VMBLOK 


i 

1 


1 t 


|DMKRSERR 

i 

i 

Real spool 

error processing. 

i 

i 

1 

I 

1 

| |DMKRSP 

| | 


|DMKRSP 

1 

1 

Real spooling manager 

I 

i 

1 

1 


|DMKACOPU| 



1 

Data Areas 

Used: 

i 

1 


|DMKCVTBD| 



1 

IOBLOK 


i 

1 


|DMKCVTBH| 



1 

RDEVBLOK 


i 

1 


|DMKCVTDT| 



1 

RSPLCTL 


i 

1 


|DMKERMSG| 



1 

SFBLOK 


i 

1 


|DMKFREE | 



I 

VMBLOK 


i 

1 


|DMKFRET | 



1 



i 

1 


|DMKIOSQR| 



| 



i 

1 


|DMKPGTSG| 



| 



i 

1 


|DMKPGTVG| 



| 



i 

1 


|DMKPGTVR| 



1 



i 

1 


|DMKQCNWTj 



| 



i 

1 


|DMKRPAGT| 



| 



i 

1 


|DMKRPAPT| 



| 



i 

1 


|DMKRSERR| 



| 



i 

1 


|DMKSCNFD| 



| 



i 

1 


|DMKSCNRU| 


t_-_ 

1 



i 

1 


|DMKSEPSP| 

_i 












| Name 
|- 

IDMKRSP 
| (cont) 


| DMKRSPER 
| DMKRSPEX 


I 

I 

| DMKSAV 


Comments 


| MOD |Chart|Calls To|Called By 


Processing spooling errors (ERP) 
Process spooling operations 
for real UR devices. 


4B2 


Save CP nucleus or SYSRES 


| |DMKSPLCR| 

| |DMKSPLDL| 

| |DMKSPLOR| 

| |DMKUDRFU| 

| 8 | | DMKIOS 

| 1 | | DMKACO 

| | |DMKCSO 

| | |DMKIOS 

| | |DMKSPL 

I I I 

| |DMKCPINT| 
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| Name 

i 

Comments 

| MOD 

|Chart|Calls To|Called By 

—i 

|DMKSAVNC 

i 

Write a page image of the control 

i 

1 


i i 



i 

program's nucleus onto DASD. 

| 5B3 

1 

2 

i i 


|DMKSAVRS 

i 

Restore a page image copy of the 

1 

1 


i i 



i 

control program's nucleus from 

1 

1 

2 

| |DMKCKP 



i 

i 

DASD into main storage. 

| 5B3 

1 

1 

1 


i i 

i i 


|DMKSCH 

1 

1 

Scheduler 

1 

1 

1 

1 


1 1 
| DMKCVTBH| 



i 

Data Areas Used: 

1 

1 


|DMKFRET | 



i 

CORTABLE 

I 

1 


|DMKMIDNT| 



i 

TEMPSAVE 

1 

1 


i i 



i 

TRQBLOK 

1 

1 


i i 



i 

VMBLOK 

1 

1 


i i 


|DMKSCHAE 

i 

Interrupt from expiration of 

1 

1 


i i 



i 

execution interval. 

1 

1 

8 

| |DMKCFS 


|D MKSCHCP 

i 

Interrupt from real CPU timer. 

1 

1 

7 

| |DMKLOG 


|DMKSCHDL 

i 

Alters a user's dispatching 

1 

1 


i i 



i 

states. 

1 3B 

1 

1 

| |DMKDSP 



i 


i 

1 


| |DMKIOS 



i 


i 

1 


| |DMKPTR 



i 


i 

1 


| |DMKRPA 



i 


i 

1 


j |DMKU SO 


|DMKSCHMD 

i 

Interrupt from midnight date 

i 

1 


| |DMKCPI 



i 

change. 

i 

1 

8 

i i 


|DMKSCHRT 

i 

Reset a clock comparator 

i 

1 


| | DMKCFP 



i 

interrupt. 

i 

1 

7 

| |DMKCFS 



i 


i 

1 


| |DMKMID 



i 


i 

1 


j |DMKTMR 



i 


i 

1 


| |DMKUSO 


|D MKSCHST 

i 

Establish a clock comparator 

i 

1 


1 1 



i 

interrupt. 

i 

1 

7 

| | DMKCPI 



i 


i 

1 


| | DMKMID 



i 


i 

i 


| |DMKTMR 


|DMKSCH80 

i 

Interrupt from real timer at 

i 

1 


1 1 



i 

storage address 80. 

i 

1 

6 

| | DMKCFS 



i 

I 


i 

i 

| 

ft 


| |DMKLOG 

■ i 


| DMKSCN 

1 

i 

Scan Routine 

1 

i 

i 

i 


1 1 

|None | 



i 

Data Areas Used: 

i 

1 


1 1 



i 

BALRSAVE 

i 

1 


S ! 



i 

BUFFER 

i 

1 


1 1 



i 

RCHBLOK 

i 

1 


1 1 



i 

RCUBLOK 

i 

1 


! 1 



i 

VCHBIOK 

i 

1 


1 1 



i 

VCUBLOK 

i 

1 


1 1 



i 

VDEVELOK 

i 

1 


1 1 


i— 

i 

VMBLOK 

i 

1 


I I 

_i 
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| Name 

J .Comments 

| MOD 

1 

jChart|Calls TcJCalled By | 

i 

|DMKSCNAU 

| Find the specified VMELOK. 

i 

1 

3 I 

j DMKCFD | 


| 

I 

i 

i 

|DMKCFS } 


I 


i 

S 

|DMKCPV | 


1 

i 

i 

1 

1DMKCQG | 


1 

i 

1 

i 

}DMKCQP j 


1 

i 

1 

1 

1DMKCSU | 


1 

i 

1 

i 

|DMKDIA | 


I 

i 

i 

i 

|DMKLNK | 


| 

1 

i 

1 

j DMKLOG | 


I 

1 

i 

1 

j DMKMSG | 



1 

i 

1 

}DMKSPL | 


| 

1 

i 

1 

|DMKU SO | 


I 

1 

i 

1 

|DMKVDB | 


I 

i 

i 

i 

IDMKVSP | 

|DMKSCNPD 

| Find next field in input buffer. 

i 

i 

3 1 

|DMKCDB | 


I 

1 

i 

i 

j DMKCDS S 


i 

1 

i 

1 

jDMKCFD | 


I 

1 

1 

i 

|DMKCFM | 


I 

1 

i 

1 

|DMKCFP j 


1 

1 

1 

i 

|DMKCFS | 


I 

i 

1 

1 

|DMKCFT | 


I 

i 

i 

i 

|DMKCPV | 


1 

i 

i 

i 

j DMKCQG | 


1 

i 

i 

i 

|DMKCQP I 


1 

i 

i 

i 

|DMKC SO | 


1 

i 

i 

i 

|DMKCSP j 


1 

i 

i 

i 

J DMKCSU | 


1 

i 

i 

i 

|DMKDEF | 


1 

i 

i 

i 

|DMKDIA | 


1 

i 

i 

i 

j DMKEPS | 


1 

i 

i 

i 

|DMKLNK | 


1 

i 

! 

i 

|DMKLOG | 


1 

i 

1 

i 

|DMKMSG | 


1 

i 

1 

! 

|DMKRSP | 


1 

i 

1 

1 

|DMKTRC | 


1 

i 


1 

|DMKU SO | 


1 

i 

1 

1 

|DMKVDB | 

|DMKSCNLI 

| Find all links of a minidisk. 

i 

1 

3 1 

|DMKLNK 1 

|DMKSCNRD 

1 Determine real device address. 

i 

1 

2 1 

|DMKBLD | 


I 

i 

1 

1 

|DMKCPI j 


1 

i 

1 

1 

|DMKCQG | 

i_ 

1 

i 

1 

1 

|DMKCQP | 

J 












1--— 

| Name 

| Comments 

BOD |Chart|Calls 

---- 

TojCalled By 

... ... i 



1 

1 

— 1 

|DMKDIA 



1 

1 

jDMKLOG 

1 


1 

1 

1 DMKPSA 



1 

1 

| DMKTRA 



1 

1 

| DMKUSO 

1 


! 

1 

j DMKVDB 

S DMRSCNRN 

Find device name for a given real 

i 4 

1 

|DMKCFD 

| 

device address. 

1 

1 

|DMKCFS 

i 


I 

I 

|DMKCNS 

! 


! 

1 

|BMKCPV 

1 

! 

I 

I 

f DMKCQP 

1 


i 

1 

| DMKCSO 

s 


1 

I 

1 DMKHVC 

1 


! 

\ 

|BHKIQG 

i 

1 

I 

I 

1DMKI0S 

i 


! 

! 

|DMKLOG 

I 


I 

1 

|DMKMSW 

1 


1 

1 

5 DMKRSP 


1 

8 

! 

1 

|DMKTRC | 

i 1 

j 

i 

I 

|DMKVDB 1 

f 

! 

i i 

1 

j DMKVCH | 

1 ! 


i i 

I 

|DMKWRM ! 

IDMKSCHfiU 

Find blocks for a specified real j 

! 1 

1 

! 1 

! ! 

device, j 

I I 1 

I 

1DMKCCH | 

1 ! 

1 

I 1 

I 

jDMKCFD | 

I ! 


1 ! 

1 

|DMKCFS j 

1 

1 

! 1 

I 

|BMKCPV ! 

t ! 


! S 

i 

|DMKCQP 1 

i 

1 i 

1 

1 

jDMKCSO 

1 : 

1 

! 1 

1 

j DMKHYC j 

! 

I 

! 

! 

JDMKICG 

\ i 


* $ 

1 

. dDMKICS 

1 


l I 

j 

: DMKLOG 

s 




ii is n is .it 

■ X5 KV C 3 

1 

j 



}j M K if D 0 

: dhkscnvd : 

j Detenias virtual *e zdtzzsz* 
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1— 

| Name 

j .Comments 

| MOD 

|Chart|Calls To 

|Called By 

—i 

|DMKSCNVN 

| Find device name for a given 

i 

1 

4 I 

| DMKCQG 



| virtual device address. 

i 

1 

1 

|DMKDEF 



I 

1 

1 

1 

|DMKLNK 



| 

1 

1 

1 

|DMKLOG 



I 

1 

1 

1 

|DMKTRC 



1 

i 

1 

i 

|DMKVDB 


|DMKSCNVS 

| Find device for specified 

i 

1 

1 




| serial number. 

i 

1 

2 1 

|DMKCFP 



| 

1 

1 

i 

|DMKCPI 



I 

1 

1 

1 

|DMKCPV 



| 

1 

1 

i 

|DMKLNK 



I 

1 

1 

1 

|DMKLOG 



1 

i 

1 

i 

|DMKVDB 


|D MKSCNVU 

| Find blocks for a specified 

i 

1 

1 | 




j virtual device address. 


1 

1 

|DMKCFD 



I 

1 

1 

i 

1DMKCFM 



I 

1 

1 

i 

|DMKCFP 



1 

1 

1 

1 

|DMKCPV 



1 

i 

1 

i 

|DMKCQG 



1 

i 

1 

i 

|DMKCQP 



| 

1 

1 

i 

|DMKC SO 



I 

i 

1 

i 

|DMKCSP 



| 

i 

i 

1 

j DMKDEF 



| 

i 

1 

i 

|DMKDGD 



I 

i 

1 

1 

j DMKDIA 



I 

i 

1 

1 

|DMKDRD 



I 

i 

1 

1 

|DMKDSP 



| 

i 

1 

1 

|DMKGEN 



| 

i 

1 

1 

|DMKHVC 



I 

i 

1 

1 

|DMKLNK 



I 

i 

1 

1 

|DMKLOG 



| 

i 

1 

1 

|DMKTRC 



I 

i 

1 

I 

|DMKVCA 



I 

i 

1 

1 

j DMKVCH 



| 

i 

1 

1 

|DMKVDB 



| 

i 

1 

1 

|DMKVDG 



| 

i 

1 

1 

|DMKVIO 



1 

i 

1 

1 

IDMKVSP 


|DMKSEP 

j Print/punch output separator 

i 

1 

1 DMKCVTBD 




1 Data Areas Used: 

i 

1 

| DMKCVTEH 




| IOBLOK 

i 

1 

j DMKCVTDT 




| DMKEOX 

i 

1 

|DMKDSPCH 




| RDEVBLOK 

i 

1 

|DMKIOSQR 




| SAVEAREA 

i 

1 

|DMKPGTVG 




| SFBLOK 

i 

1 

!DMKPGTVR 



i_ 

1 

i 

1 

|DMKPTRUL 


_i 













1- 

t Name 

i 

Comments 

( MOD 

|Chart|Calls To|Called By 

—i 

|DHKSEPSP 

i 

Print and punch the respective 

i 

i 


i i 



i 

separators on real spooling 

i 

i 


i i 



i 

devices* 

i 

i 

1 

| |DMKRSP 


|DMKSEV 

1 

i 

2870 Channel logout analysis* 

i 

i 

i 

i 


i i 

i i 



i 

Data Areas Used: 

i 

i 


1 1 



i 

CCHREC 

i 

i 


1 I 


|DMKSEV70 

i 

2870 Channel logout analysis. 

i 

i 

1 

| |DMKCCH 


|DMKSIX 

1 

i 

2860 Channel logout analysis* 

i 

i 

1 

1 


i i 

i i 



i 

Data Areas Used: 

i 

i 


1 * 1 



i 

CCHREC 


1 


1 1 


|DHKSIX60 

i 

i 

2860 Channel logout analysis. 

i 

i 

1 

| |DMKCCH 

i i 


|DMKSPL 

i 

i 

Spool file manager 

i 

i 

i 

i 


I 1 

|DMKCVTBD| 



i 

Data Areas Used: 

i 

i 


|DMKCVTDT| 



i 

CPEXBLOK 

i 

i 


|DMKDRDDD| 



i 

IOBLOK 

i 

i 


|DMKDSPCH | 



i 

IOERBLOK 

i 

i 


|DMKFREE | 



i 

OWNDLIST 

i 

i 


|DMKFRET | 



i 

RDEVBLOK 

i 

i 


|DMKIOSQR| 



i 

RECBLOK 

i 

i 


| DMKMSWR | 



i 

RSPLCTL 

i 

i 


|DMKPGTSD| 



i 

SAVEAREA 

i 

i 


|DMKPGTSG| 



i 

SFBLOK 

i 

i 


|DMKPGTSR| 



i 

VCONCTL 

i 

i 


|DMKPGTVG| 



i 

VCUBLOK 

i 

i 


|DMKPTRAN| 



i 

VDEVBLOK 

i 

i 


|DMKPTRLK| 



i 

VMBLOK 

i 

i 


|DMKPTRUL | 



i 

VSPLCTL 

i 

i 


|DMKQCNWT| 



i 


i 

i 


|DMKSCNAU| 



i 


i 

i 


|DMKSTKCP| 



i 


i 

i 


|DMKSTKIO| 


|DMKSPLCR 

i 

Close real reader file* 

i 

i 

2 

| |DMKRSP 


|DMKSPLCV 

i 

Close virtual printer or 

i 

i 


| |DMKVSP 



i 

punch file. 

i 

i 

1 

1 1 


IDMKSPLDL 

i 

Delete spool file buffers. 

i 

i 

3 

| |DMKCSO 



i 


i 

i 


| |DMKCSP 



i 


i 

i 


| |DMKCSU 



i 


i 

i 


| |DMKRSP 



i 


i 

i 


| |DMKVSP 


|DMKSPLDR 

i 

Delete spool file blocks. 

i 

i 

3 

1 I 


|DMKSPLOR 

i_ 

i 

Open real reader file. 

i 

i 

1 

| (DMKRSP 
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| MOD |Chart|Calls To|Called By 



1 

1 

1 

1 1 

| |DMKVSP 

a I 


1 

1 


1 1 
|DMKCPINT| 


1 


|DMKCVTBH| 


1 


|DMKCVTHB| 


1 

1 

1 


|DMKSCNRU| 

1 1 

i i 


1 

1 

1 

1 

1 

1 

1 

1 1 

i i 

i i 

i i 

i i 


1 

1 

1 

1 

1 

1 1 

1 1 

1 t 

| |DMKACO 


1 


| |DMKCFM 


1 


| |DMKCNS 


1 


| |DMKIOF 


1 


[ |DMKIOS 


1 


| |DMKMCH 


1 


| |DMKPAG 


1 


| |DMKPGT 


1 


| |DMKPTR 


1 


| |DMKQCN 


1 


| |DMKSPL 


1 


| |DMKTRC 


1 


| |DMKDSO 


1 


| |DMKVCA 


1 

1 

| |DMKACO 


1 


| |DMKCCW 


1 


| j DMKCFP 


1 


| |DMKCFS 


1 


| f DMKCSO 


1 


| |DMKIOS 


1 


| |DMKPSA 


1 


| |DMKSPL 


1 


| |DMKTMR 


1 

1 


| |DMKVIO 

i i 


1 

1 


1 1 
|DMKFREE | 


1 


|DMKFRET | 


1 

1 


|DMKMSW | 

1 t 













1—- 

| name 

i _ _ 

Comments 

-, 

| MOD |Chart|Calls TojCalled By | 

i 

i 

IDMKTAP 

RDEVBLOK 

i i i 

1 

1 1 

I (cont) 

SAVEAREA 

t i i 

I 1 

i 

VMBLOK 

i i t 

1 1 

|DMKTAPER 

i 

Magnetic tape ERP* 

1 111 

i i i 

|DMKIOS | 

i 1 

i 

|DMKTDK 

T—disk space manager 

I 1 1 

i i i 

i i 

1 

Data Areas Used: 


i i 

1 

ALOCBLOK 

i i i 

i i 

1 

RDEVBLOK 

i i i 

i i 

1 

SAVEAREA 

i i i 

i i 

|DMKTDKGT 

Get T disk space* 

i i i i 

|DMKVDS | 

|DMKTDKRL 

1 

i_ 

Release T disk space* 

1 1 2 | 

1 1 1 

|DMKVDB | 

1 1 

. _ - _ . - 1 
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V 




1- 

| Name 

1 

Comments 

| MOD 

|Chart|Calls To|Called By 

—i 

| DMKTMR 

1 

Simulate CPU timer and TOD clock 

i 

1 


|DMKDSPCH| 



1 

Data Areas Used: 

i 

1 


|DMKPRGSM| 



1 

ECBLOK 

i 

1 


|DMKPRVKY| 



1 

TRQBI0K 

i 

1 


|DMKPTRAN| 



1 

VMBLOK 

i 

1 


|DMKSCHRT| 



1 


1 

1 


|DMKSCHST| 



1 


i 

1 


|DMKSTKIO j 


|DMKTMRCK 

1 

Simulate virtual clock comparator 

i 

1 


i i 



1 

interrupt. 

i 

1 

1 

1 |DMKLOG 


|DMKTMRTN 

1 

1 

Simulate timer instruction. 

i 

1 

1 

| |DMKPRV 


|DMKTRA 

1 

1 

TRACE command processor. 

i 

i 

1 

1 


I 1 

|DMKERMSG| 



1 

Data Areas Used: 

i 

1 


|DMKFREE | 



1 

TREXT , 

i 

1 


|DMKFRET j 



1 


i 

1 


|DMKQCNWT| 



1 


i 

1 


|DMKSCNFD| 



1 


i 

1 


| DMKT.RCIT | 



1 


i 

1 


1DMKTRCPB| 


IDMKTBACE 

1 

1 

TRACE command processor. 

I7B3.2 

1 

1 

1 

1 

| |DMKCFM 

1 1 


| DHKTBC 

1 

1 

TRACE command routines. 

1 

1 

1 

1 


I 1 

|DMKCCWSB| 



1 

Data Areas Used: 

1 

1 


j DMKCFMBK| 



1 

TREXT 

1 

1 


|DMKCVTEH| 



1 


1 

1 


|DMKDSPCH| 



1 


1 

1 


|DMKFREE J 



1 


1 

1 


|DMKFRET | 



1 


1 

1 


|DMKNEMOP| 



1 


1 

1 


|DMKPR VKY| 



1 


1 

1 


|DMKPSARR j 



1 


1 

1 


|DMKPSARS| 



1 


1 

1 


1DMKPSARX | 



1 


1 

1 


|DMKPTRAN| 



1 


i 

1 


|DMKQCNWT! 



1 


1 

1 


|DMKSCNRD| 



1 


1 

1 


|DMKSCNRN J 



1 


1 

1 


1DMKSCNVN| 



1 


1 

1 


|DMKSCNVU | 



1 


1 

1 


|DMKSTKCP| 



1 


1 

1 


| DMKVATRN | 


1 

1 


1 

1 


|DMKVSPRT | 

_| 
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IBM VM/370: Control Program Logic 504 


t — 

| flame 

1 

‘Comments 

1 MOD |Chart|Calls To|Called By 

—i 

| DMKTRCEX 

1 

Process an external interrupt. 

|7B3.2 | 

1 

| |DMKDSP 


| DMKTRCIO 

i 

Process an I/O interrupt. 

I7B3.2 | 

6 

| |DMKDSP 


| DMKTRCIT 

1 

Set "SVC B2" for instruction 

i i 

9 

| |DMKDSP 



i 

tracing. 

i i 


| |DMKTRA 


| DMKTRCND 

i 

Forcibly end tracing. 

i i 

11 

i i 


| DMKTRCPB 

1 

Put back user instructions altered! | 

9 

| | DMKCFM 



i 

by tracing. 

i i 


j |DMKTRA 


| DMKTRCPG 

i 

Process a program interrupt. 

|7B3.2 | 

6 

| |DMKPRG 


| DMKTRCPV 

1 

Process a privileged instruction 

i i 


i i 



i 

interrupt. 

J7B3.2 | 

8 

| |DMKPRV 


|D MKTRCSI 

i 

Process an I/O operation (SIO, 

I7B3.2 | 

6 

| |DMKIOS 



i 

TIO , HIO , TCH). 

1 1 


| |DMKVIO 


|D MKTRCSV 

1 

Process an SVC, Branch, or full 

1 1 


i i 



1 

instruction TRACE. 

I7B3.2 | 

7 

| |DMKPSA 


|DMKTRCSW 

i 

TRACE virtual and real CSWs. 

i i 

8 

| | DMKVIO 


|DMKTRM 

i 

Identify type of terminal 

1 i 


i i 



i 

Data Areas Used: 

i i 


i i 



i 

RDEVBLOK 

i i 


i i 



i 

SAVEAREA 

i i 


i i 



i 

VMBLOK 

i i 


i i 


|DMKTRMID 

i 

i 

Determine type of 2741. 

i i 

I l 

1 

j | DMKCNS 

$ 1 


|DMKUDR 

i 

i 

Directory Manager 

i I 

i i 


| DMKFREE | 



i 

Data Areas Used: 

i i 


|DMKFRET | 



i 

IOBLOK 

i i 


| DMKIOSQR | 



i 

CWNDLIST 

t i 


|DMKPGTVG | 



i 

RDEVBLOK 

i i 


| DMKPGTVR | 



i 

SAVEAREA 

i i 


| DMKPTRAN | 



i 

SYSLOCS 

i i 


| DMKPTRUL | 



i 

UDEVBLCK 

i i 


| DMKRPAGT | 



i 

UDLBLOK 

i i 


! 1 



i 

UDIRBLCK 

i i 


1 t 



i 

UMACBLOK 

i i 


1 1 



i 

VMBLOK 

i i 


I i 


|DMKUDRBV 

i 

Build a list of virtual page 

i i 


I i 



i 

buffers for each UDIRBLOK page 

i i 





i 

on disk. 

i i 

4 

| |DMKCPI 


|DMKUDRDS 

i 

Swap active user directory to 

i i 


1 1 


i_ 

i 

newly created user directory. 

i i 

5 

| IDMKHVC 

_i 













1— 

I Name 

i 

Comments 

| MOD 

|Chart|Calls To|Called By 

—i 

|DMKUDRFD 

i 

Put specified UDEVBLOK into 

i 

i 


i i 



1 

user's buffer. 

1 

i 

3 

| |DMKLNK 



i 


i 

i 


| |DMKLOG 


|DMKUDRFU 

i 

Put UDIRBLOK into user's buffer. 

i 

1 

2 

| |DMKCSP 



i 


i 

i 


| |DMKCSU 



1 


i 

i 


| |DMKDEF 



i 


i 

i 


| |DMKLNK 



i 


i 

i 


| |DMKLOG 





1 

i 


| |DMKRSP 


|DHKUCRLK 

i 

Lock user directory. 

i 

i 

1 

| |DMKDEF 



i 


i 

i 


| |DMKLNK 



i 


i 

i 


| |DMKLOG 



1 


i 

i 


| |DMKVDB 


|DMKUDRLT 

i 

Test user directory lock. 

i 

i 

1 

i i 


|DMKUDRRD 

1 

Put next udevblok into 

i 

i 


i i 



1 

user's buffer. 

1 

i 

3 

| |DMKDEF 



i 


i 

i 


| |DMKLOG 


|DMKUDRRV 

1 

Release a virtual page used for 

i 

i 


1 1 



i 

a buffer. 

1 

i 

4 

| |DMKDEF 



i 


i 

i 


| |DMKLNK 



i 


i 

i 


| |DMKLOG 


|DMKUDRUL 

i 

Unlock user directory. 

i 

i 

1 

| |DMKDEF 



i 


i 

i 


| |DMKLNK 



i 


i 

i 


| |DMKLOG 



i 

i 


i 

t 

l 


| |DMKVDB 

■ i 


|DMKUNT 

1 

i 

Untranslate CCWs and CSWs 

i 

i 

i 


1 1 
|DMKFRET | 



i 

Data Areas Used: 

i 

i 


|DMKPTRUL| 



i 

IOBLOK 

i 

i 


|DMKSTKIO| 



i 

RCWTASK 

i 

i 


1 1 



i 

RDEVBLOK 

i 

i 


1 1 



i 

SAVEAREA 

i 

i 





i 

VCHBLOK 

i 

i 


1 1 



i 

VDEVBLCK 

i 

i 


1 1 



i 

VMBLOK 

i 

i 


1 1 


|DMKUNTFR 

i 

Release pages and free storage 

i 

i 

1 

| | DMKCFP 



i 

used for CCW chain. 

i 

i 


| | DMKGEN 



i 


i 

i 


| | DMKVIO 


|DMKUNTIS 

i 

Untranslate ISAM CCWs 

i 

i 

5 

1 1 


|DMKUNTRN 

i 

Translate a real CSW to a 

i 

i 


I 1 



i 

virtual CSW. 

i 

i 

1 

| | DMKGEN 



i 


i 

i 


| |DMKVIO 


|DMKUNTRS 

i 

i 

Relocate sense byte information. 

i 

i 

i 

i 

4 

| |DMKCCW 

1 1 
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1- 

| Name 

i 

Comments 

| MOD |Chart|Calls To|Called By 

—i 

|DMKUSO 

i 

Process user termination 

1 1 

|DMKACODV| 



1 

Data Areas Used: 

1 f 

|DMKACOFF| 



1 

RDEVBLOK 

1 1 

|DMKACOTM| 



1 

SAVEAREA 

1 1 

|DMKBLDRL| 



1 

SYSLOCS 

1 1 

|DMKCFPRR| 



1 

VMBLOK 

t 1 

|DMKCVTED| 



1 


1 1 

|DMKCVTBH| 



1 


1 ! 

|DMKCVTDT| 



1 


i i 

| DMKDSPCH| 



I 


1 1 

|DMKERMSG| 



1 


i i 

|DMKFRET | 



I 


i i 

|DMKPGSPO| 



i 


i i 

|DMKQCNWT| 



1 


i i 

1DMKSCHDL| 



I 


i i 

| DMKSCHRT | 



I 


1 1 

|DMKSCNAU| 



1 


i i 

|DMKSCNFD| 



I 


i i 

|DMKSCNRD| 



1 


i i 

j DMKSTKCP| 



1 


1 i 

|DMKVATBC| 


|D MKUSODS 

1 

DISCONN (disconnect) command 

1 1 

i i 



1 

processor. 

I 1 4 

| | DMKCFM 


|DMKUSOFF 

1 

Logoff a user. 

I t 4 

| |DMKCCH 



I 


1 1 

| |DMKCDS 



I 


1 1 

| |DMKDSP 



I 


1 1 

| |DMKLOG 



I 


1 1 

| | DMKMCH 



1 


1 1 

| |DMKQCN 


|D MKUSOFL 

1 

FORCE command processor. 

1 1 3 

| |DMKCFM 



1 


1 1 

| |DMKLOG 


|DMKUSCLG 

1 

1 

LOGOFF command processor. 

1 1 1 

1 1 

| | DMKCFM 

| | 


IDMKVAT 

1 

1 

Storage management for EC mode 

1 1 

t I 

|DMKDSPCH| 



1 

virtual machine. 

1 1 

| DMKFREE | 



1 

Data Areas Used: 

1 1 

|DMKFRET | 



1 

BALRSAVE 

1 1 

|DMKPRGSM| 



1 

ECBLOK 

1 1 

|DMKPTRAN| 



1 

VMBLCK 

t 1 

1 


|DMKVATAB 

1 

Maintain virtual address 

1 1 

I I 



1 

translation. 

|1B3.6 | 1 

| |DMKCDB 



| 


1 1 

| |DMKCDS 



I 


1 1 

| |DMKDSP 


i_ 

1 


I 1 

| |DMKPRV 













1- 

| Name 

i 

Comments | MOD |Chart|Calls To|Called By 

—i 

|DMKVATBC 

1 

Return shadow tables to free | 

i 

| |DMKCDB 



i 

storage, | 

1 3 

| |DMKCDS 



i 

i 

i 

| |DMKCFP 



i 

i 

i 

| |DMKDSP 



i 

i 

i 

| |DMKUSO 


|DMKVATEX 

1 

Simulate page or segment | 

1 

i i 



i 

exception. j 

| 10 

| | DMKPRV 


|DMKVATLA 

1 

Virtual (shadow) — virtual to | 

1 

i i 



i 

virtual address translation. | 

| 5 

| |DMKPRV 


|DMKVATMD 

i 

Allocate and initialization | 

1 

| | DMKCDB 



i 

shadow table. | 

1 2 

| |DMKCDS 



i 

i 

i 

| |DMKCFP 



i 

i 

i 

| |DMKDSP 


IDMKVATPX 

i 

Process paging exception for a | 

i 

i t 



i 

virtual machine that performs | 

i 

i i 



i 

paging. | 

1 9 

| |DMKPRG 


|DMKVATRN 

i 

Virtual (shadow) - virtual to real| 

i 

| |DMKPRV 



i 

address translation. | 

| 7 

| |DMKTRC 


|DMKVATSX 

i 

Process segment exception for a | 

i 

i t 



i 

virtual machine that performs | 

i 

i i 



i 

1 

paging. | 

i 

1 9 

i 

| |DMKPRG 

i i 


|DMKVCA 

1 

i 

I 

Simulate I/O for virtual channel | 

1 

i 

1 1 

|DMKCVTBH| 



i 

to channel. 1 

1 

| DMKDIASM| 



i 

Data Areas Used; | 

1 

|DMKDS PCH| 



i 

CHXBLOK | 

1 

|DMKFREE | 



i 

CHYBLOK | 

1 

|DMKFRET | 



i 

IOBLOK | 

1 

|DMKPTRAN| 



i 

SAVEAREA | 

1 

|DMKPTRUL| 



i 

VCHBLOK | 

1 

| DMKQCNWT| 



i 

VCUBLOK | 

1 

|DMKSCNVU| 



i 

VDEVBLOK | 

1 

|DMKSTKCP| 



i 

VMBLOK | 

1 

I 1 


|DMKVCARD 

i 

Reset device without de—coupling. | 

1 9 

| |DMKCFP 


|DMKVCARS 

i 

Reset device and drop CTCA. | 

1 9 

| |DMKVDB 


|DMKVCASH 

i 

Simulate virtual HIO. j 

1 8 

| |DMKV10 


|DMKVCAST 

i 

Simulate virtual SIO. j 

| 1 

| |DMKV10 


|DMKVCATS 

i 

i 

Simulate virtual TIO. | 

■ 

1 8 
• 

| |DMKV10 

i i 


| DMKVCH 

1 

i 

1 

Process real I/O corrections | 

1 

i 

i I 

|DMKFREE | 



i 

Data Areas Used: | 

i 

|DMKFRET | 



i 

RCHBLOK | 

i 

|DMKQCNWT| 



i 

RCUBLOK | 

i 

|DMKSCNRU| 


i_ 

i 

RDEVBLOK | 

i 

|DMKSCNVU| 

_i 
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i--- 1 


| Name 

1 

Comments 

| MOD 

1 

Chart 

|Calls To|Called By 

1 

1 

SAVEAREA 

1 

1 


|DMKVDBRL| 


l 

VCHBLOK 

i 

1 


|DMKVDSDF| 


l 

VCUBLOK 

i 

1 


i i 

i 

1 

VDEVELOK 

i 

1 


i i 

1 

l 

VMBLOK 

1 

1 


1 1 

|D MKVCHDC 

1 

ATTACH and DETACH (real 

devices | 

1 


i i 

1 

1 

and channels) command 

processor.| 

1 

1 

1 

| |DMKVDB 

1 i 

|DMKVCN 

1 

1 

Simulate user SIOs to 

1 

1 

1 

1 


1 1 
|DMKCFMEK| 

i 

1 

virtual console. 

i 

1 


|DMKDSPCH| 


1 

Data Areas Used: 

1 

1 


|DMKFREE | 


1 

VCHBLOK 

i 

1 


|DMKFRET | 

1 

1 

VCONCTL 

1 

1 


|DMKQCNRD| 


1 

VCUBLOK 

1 

1 


|DMKQCNWT| 


l 

VDEVELOK 

i 

1 



1 

1 

VMBLOK 

1 

1 


1 1 

|D MKVCNEX 

1 

Simulate all SIOs to a 

virtual | 

1 


i i 

1 

1 

console. 

| 7B1 

1 

1 

| jDMKVIO 

|DMKVDB 

1 

Process virtual I/O connections | 

1 


|DMKACODV| 

i 

l 

Data Areas Used: 

1 

1 


|DMKCFPRD| 

i 

1 

BUFFER 

1 

1 


|DMKCVTBD| 

1 1 

1 

I0BLCK 

1 

1 


| DMKCVTBH | 


l 

RDEVBLOK 

1 

1 


j DMKCVTHB f 


l 

SAVEAREA 

1 

1 


|DMKERMSG | 

! ! 

l 

VCHBLOK 

1 

1 


| DMKFREE | 

! I 

I 

VCUBLOK 

1 

1 


|DMKFRET | 

l 

l 

VDEVBLOK 

1 

1 


|DMKIO SQR| 

l 

I 

l 

I 

l 

I 

I 

i i 

i l 

| l 

l 

l 

I 

i 

I 

l 

l 

l 

I 

l 

l 

l 

l 

I 

I 

I 

I 

l 

l 

l 

l 

1 

l 

VMBLOK 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


|DMKQCNWT| 

|DMKSCNAU| 

|DMKSCNFD| 

|DMKSCNRD| 

|DMKSCNRN| 

|DMKSCNRU| 

|DMKSCNVN| 

|DMKSCNVS| 

|DMKSCNVU| 

|DMKTDKRL| 

|DMKUDRLK| 

|DMKUDRUL| 

|DMKVCARS| 

|DMKVCHDC| 

|DMKVDBRL| 

|DMKVDSAT| 

|DMKVSPCO| 

|DMKVSPCR| 

1 1 


















| Name 

1 

Comments i 

MOD |Chart|Calls To|Called By 

—i 

|D MKVDBAT 

i 

ATTACH (virtual devices or 


1 1 



i 

channels tc a virtual machine) 

1 

1 1 



i 

command processor. 

| 1 

| |DMKCFM 


|DMKVDBDE 

i 

DETACH (virtual devices 

1 

i i 



i 

or channels from virtual 

I 

i i 



1 

machine) command processor. 

1 13 

| |DMKCFM 


|DMKVDBRL 

i 

Release a device from a 


i i 



i 

virtual machine. 

1 14 

| |DMKCFP 



1 


1 

| |DMKLNK 



i 



| IDMKVCH 


|DMKVDS 

i 

Virtual device interface 

i 

| DMKFREE | 



i 

Data Area Used: 


|DMKFRET | 



i 

RDEVBLOK 

i 

|DMKSCNVU| 



i 

SAVEAREA 

1 

|DMKTDKGT| 



1 

VDEVBLOK 

i 

i i 



i 

VCHBLOK 

i 

i i 



i 

VCUBLOK 

i 

i i 



i 

VDEVBLOK 

i 

i i 



i 

VMBLOK 

i 

1 1 


|D MKVDSAT 

1 

Attach a virtual device. 

1 1 

| |DMKLOG 



i 


i 

j |DMKVDB 


|DMKVDSDF 

i 

Define a virtual device. 

1 2 

| |DMKDEF 



i 



| |DMKLOG 



i 


i 

| IDMKVCH 


|DMKVDSLK 

i 

Link to a virtual DASD device. 

| 3 

| |DMKLNK 



i 


1 

| |DMKLOG 


|DMKVIO 

i 

Virtual I/O manager 

1 

|DMKCCWTR| 



i 

Data Areas Used: 

1 

| DMKDSPB | 



i 

IOBLOK 

1 

| DMKDSPCH| 



i 

VCHBLOK 

1 

|DMKFREE | 



i 

VCUBLOK 

1 

|DMKFRET | 



i 

VDEVBLOK 

1 

|DMKIOSQV| 



i 

VMBLCK 

1 

|DMKPTRAN| 



i 


1 

|DMKSCNVU| 



i 


1 

|DMKSTKIO| 



i 


1 

|DMKTRCSI| 



i 


1 

| DMKTRCSW| 



i 


1 

|DMKUNTFR | 



i 


1 

| DMKUNTRN | 



i 


1 

|DMKVCASH| 



i 


1 

|DMKVCAST| 



i 


1 

|DMKVCATS| 



i 


1 

|DMKVCNEX| 



i 


1 

|DMKVSPEX| 


IDMKVIODC 

t 

i 

Dedicated Channel Interrupt 

1 13 

| |DMKIOS 

_i 
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1- 

| Dame 

i 

Comments | MOD 

|Chart|Calls To|Called By 

—» 

S DMKVIOEX 

i 

Simulate a SIO, TIO, HIO, or TCH. |1B3.9 

i 

1 

| | DMKPRV 


|DM KVIOIN 

i 

Translate a virtual I/O interrupt.|1B4.2 

i 

9 

| IDMKIOS 



i 

i 

i 


| |DMKSPL 


|DMKVMI 

i 

IPL virtual machine | 

i 


| None | 


|DMKVMIPL 

i 

Simulate IPL to a virtual | 

1 


i i 



i 

machine. | 

i 

1 

| |DMKCFP 


|DMKVSP 

i 

Virtual spooling manager I 

i 


|DMKCVTBH| 



i 

Data Areas Used: 1 

i 


| DMKCVTDT| 



i 

SAVEAREA | 

i 


|DMKERMSG j 



i 

SFBLOK | 

i 


|DMKFREE | 



i 

VCHBLOK | 

i 


|DMKFRET | 



i 

VCUBLOK j 

i 


|DMKPGTSG j 



i 

VDEVBLOK | 

i 


| DMKPGTVG| 



i 

VFCBLOK | 

i 


|DMKPGTVR| 



i 

VSPLCTL | 

i 


|DMKPTRAN| 



i 

VMBLOK | 

i 


| DMKPTRUL j 



i 

1 

i 


|DMKQCNWTj 



i 

1 

i 


|DMKRPAGT| 



i 

1 

i 


|DMKRPAPT| 



i 

1 

i 


|DMKSCNVD| 



i 

1 

i 


|DMKSCNVU | 



i 

1 

i 


| DMKSPLCV| 



i 

1 

i 


| DMKSPLDL| 



i 


i 


|DMKSPLOV| 


IDMKVSPCO 

i 

Close spooled printers and I 

i 


| |DMKCDB 



i 

punches. I 

i 

11 

| | DMKCFD 



i 

1 

i 


| | DMKCSP 



i 

1 

i 


| | DMKVDB 


| DMKVSPCR 

i 

Stop and clear all pending I 

i 

10 

| | DMKCFP 



i 

status for spooled card reader. | 

i 


| | DMKCSP 



i 

1 

i 


| | DMKDRD 



i 

1 

i 


| | DMKTRA 


■ 

i 

1 

i 


| | DMKVDB 

_j 


/ * 










1- 

| Name 

i 

Comments | MOD |Chart|Calls To|Called By 

—i 

|D MKVSPEX 

i 

Simulate SIO to a spooled unit | 

i 


i i 



i 

record device. | 

i 

1 

| |DMKVIO 


|DMKVSPRT 

i 

i 

1 

Put a CP generated line on the | 

1 

i 


1 1 

| |DMKCPB 



i 

User's spooled printer | 

i 

i 

14 

| |DMKTRC 

i i 


|DMKVSPVP 

i 

i 

1 

Simulate SIO to a spooled virtual | 

1 

i 

13 

1 1 

| IDMKVCN 



i 

console. | 

i 

i 

i 


i i 

i i 


|DMKWRM 

i 

i 

1 

Warm Start | 

i 

i 


1 1 
|DMKDSPCH| 



i 

i 

i 


|DMKERMSG| 



i 

i 

i 


|DMKFREE | 



i 

i 

i 


|DMKFRET | 



i 

i 

i 


| DMKPGTVG| 



i 

i 

i 


|DMKPGTVR| 



i 

i 

i 


|DMKQCNWT| 



i 

i 

i 


|DMKRPAGT| 



i 

i 

i 


|DMKRPAPT| 



i 

i 

i 


|DMKSCNRU| 


|DMKWRMST 

i_ 

i 

Warm start. |5B1.4 | 

1 

| |DMKCPI 

_J 
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SUBROUTINE 

DIRECTORY 


Subroutine 

Module 

Chart 




CNTRLSBW 

DMKCCW 

13 

Subroutine 

Module 

Chart 

CNTRLSUB 

DMKCCW 

9 

CNVTBIN 

DMKCDB 

11 

ACNTDED 

DMKCPV 

6 

CONFRRTN 

DMKCFM 

3 

ACTPIRA 

DMKACO 

3 

CONNECT 

DMKDRD 

5 

ACTPUNCH 

DMKACO 

3 

CONVERT 

DMKMSW 

3 

ADDCHEK 

DMKDRD 

4 

COPYIOB 

DMKIOS 

10 

ADDCHEK 

DMKHVC 

2 

COPYSEGT 

DMKVAT 

3 

ADDQ 

DMKSCH 

3 

CORTBLR 

DMKMCH 

6 

ADDRTEST 

DMKVMI 

3 

CPIPINT 

DMKCPI 

1 

ADJTIME 

DMKMID 

2 

CUSCAN 

DMKVIO 

8 

ADTRANS 

DMKPRV 

5 

CVTRADD 

DMKVDB 

11 

ARUNLST 

DMKSCH 

5 




ASTERISK 

DMKCFM 

3 

DASDXA 

DMKCCW 

19 

AWAITLST 

DMKSCH 

5 

DASDXB 

DMKCCW 

19 




DASDXC 

DMKCCW 

19 

BLANKBUF 

DMKTRC 

8 

DASDXD 

DMKCCW 

19 

BLDBLOK 

DMKVDS 

4 

DASDXE 

DMKCCW 

19 

BLDVDEV 

DMKVDS 

3 

DASDXF 

DMKCCW 

20 

BLOKLETR 

DMKSEP 

4 

DASDXO 

DMKCCW 

17 

BUILDCTL 

DMKSPL 

2 

DASDX1 

DMKCCW 

13 




DASDX2 

DMKCCW 

14 

CALLERR 

DMKIOS 

15 

DASDX3 

DMKCCW 

15 

CCWCHKEY 

DMKCCW 

30 

DASDX4 

DMKCCW 

15 

CCWFETCH 

DMKVCA 

3 

DASDX5 

DMKCCW 

16 

CCWPUTSK 

DMKCCW 

20 

DASDX6 

DMKCCW 

17 

CCWRELCH 

DMKCCW 

21 

DASDX7 

DMKCCW 

17 

CFPIO 

DMKCFP 

6 

DASDX9 

DMKCCW 

18 

CHACT 

DMKCKP 

4 

DEDDXA 

DMKCCW 

22 

CHEKPTE 

DMKVAT 

11 

DEDDXB 

DMKCCW 

22 

CHEKRKEY 

DMKDGD 

8 

DEDDXC 

DMKCCW 

23 

CHKBUSY 

DMKDRD 

6 

DEDDXD 

DMKCCW 

23 

CHKFORM 

DMKVAT 

1 

DEDDXE 

DMKCCW 

23 

CHKRDEV 

DMKVDB 

10 

DEDDXF 

DMKCCW 

23 

CHNREXIT 

DMKIOE 

4 

DEDDX1 

DMKCCW 

22 

CHSCAN 

DMKVIO 

8 

DEDDX2 

DMKCCW 

22 

CKBKMSG 

DMKRSP 

5 

DEDDX3 

DMKCCW 

22 

CKEXTRA 

DMKCFS 

3 

DEDDX4 

DMKCCW 

22 

CKEXTRA 

DMKCPV 

11 

DEDDX5 

DMKCCW 

22 

CKIOB 

DMKDAS 

9 

DEDDX6 

DMKCCW 

22 

CKIOB 

DMKTAP 

10 

DEDDX7 

DMKCCW 

22 

CKRECMP 

DMKRPA 

2 

DEDDX9 

DMKCCW 

22 

CKTIME 

DMKPTR 

4 

DELETE 

DMKRSP 

4 

CKWAIT 

DMKPTR 

4 

DELIRA 

DMKSPL 

9 

CLOCKFMT 

DMKDMP 

4 

DEVCARD 

DMKACO 

1 

CLOSE 

DMKCKP 

5 

DEVCARD 

DMKCKP 

6 

CLRCHAN 

DMKDMP 

8 

DEVSCAN 

DMKVIO 

9 

CMPNEXT 

DMKDRD 

7 

DGRETURN 

DMKDGD 

7 
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Subroutine 

Module 

Chart 

Subroutine 

Module 

Chart 

DGTRANS 

DMKDGD 

6 

FILECLR 

DMKVSP 

10 

DGTRANSO 

DMKDGD 

6 

FINDEVIC 

DMKPGT 

5 

DIAGRTN 

DMKGEN 

1 

FINDREC 

DMKPGT 

6 

DIALING 

DMKDIA 

4 

FIOER 

DMKIOE 

5 

DIALIRA 

DMKDIA 

4 

FIOER 

DMKIOF 

6 

DIALXA 

DMKCCW 

28 

FIRSTREC 

DMKCKP 

5 

DIALXB 

DMKCCW 

28 

FMTREAD 

DMKIOG 

4 

DIALXC 

DMKCCW 

28 

FMTWRITE 

DMKIOG 

4 

DIALXD 

DMKCCW 

28 

FNDVADDR 

DMKCFP 

7 

DIALXE 

DMKCCW 

28 

j FNDVADDR 

DMKCPB 

3/4 

DIALXF 

DMKCCW 

28 

FRETCORE 

DMKCQG 

2 

DIALX1 

DMKCCW 

26 

FRETIOB 

DMKCNS 

4 

DIALX2 

DMKCCW 

27 

FRETIOB 

DMKCSO 

10 

DIALX3 

DMKCCW 

27 

FRETIOER 

DMKCNS 

7 

DIALX4 

DMKCCW 

27 

FRETPTR 

DMKDAS 

9 

DIALX5 

DMKCCW 

27 

FRETPTR 

DMKTAP 

10 

DIALX6 

DMKCCW 

27 

FRETVMB 

DMKDIA 

5 

DIALX7 

DMKCCW 

28 

FRET05 

DMKFRE 

3 

DIALX9 

DMKCCW 

28 

FREUSER 

DMKDEF 

6 

DISASUB 

DMKCPV 

3 

FREUSER 

DMKVDB 

16 

DISCOMM 

DMKCDB 

2 

FSINGIOE 

DMKIOF 

5 

DISCRETN 

DMKUSO 

5 

FUMAT 

DMKMCH 

6 

DISDMPID 

DMKCDB 

9 




DISHEAD 

DMKCDB 

9 

GETADDR 

DMKPRV 

5 

DISINIT 

DMKCDB 

7 

GETADDR 

DMKRSP 

7 

DISNEXTA 

DMKCDB 

3 

GETBUF 

DMKQCN 

3 

DISWRITE 

DMKCDB 

10 

GETBUFF 

DMKUDR 

3 

DISWRTR 

DMKCDB 

10 

GETCCW 

DMKVCN 

3 

DMPMCHCK 

DMKDMP 

5 

GETCCW 

DMKVSP 

15 

DMPPRGCK 

DMKDMP 

5 

GETCHAIN 

DMKCSP 

10 

DRAINMSG 

DMKRSP 

7 

GETCHAIN 

DMKCSU 

16 

DROPQ 

DMKSCH 

4 

GETCLASS ' 

DMKCSP 

7 

DRDLCSE 

DMKDRD 

6 

GETCLASS 

DMKCSU 

12 

DROPING 

DMKDIA 

5 

GETCOPY 

DMKCSP 

8 

DROPLIST 

DMKSCH 

5 

GETCOPY 

DMKCSU 

13 

DSKIOINT 

DMKDMP 

3 

GETDEVIC 

DMKCSO 

11 

DSKWRTC1 

DMKDMP 

3 

GETDEVIC 

DMKCSP 

8 

DSKWTRC2 

DMKDMP 

3 

GETDISK 

DMKWRM 

4 

DTBIN 

DMKMID 

1 

GETENTRY 

DMKRPA 

2 

DTDEC 

DMKMID 

1 

GETFILE 

DMKCSP 

8 

DVICECLR 

DMKVSP 

11 

GETFILE 

DMKCSU 

13 




GETID 

DMKCSP 

10 

ECHORETN 

DMKMSG 

3 

GETXD 

DMKCSU 

15 

ECHOWRIT 

DMKMSG 

3 

GETNAME 

DMKCSP 

9 

ECHOWTRT 

DMKMSG 

3 

GETNAME 

DMKCSU 

14 

EMPTYCYL 

DMKPGT 

7 

GETPAGT 

DMKVAT 

10 

ENABTERM 

DMKCPV 

3 

GETRCAW 

DMKSPL 

6 

EXCLAIM 

DMKCNS 

13 

GETRCAW 

DMKVIO 

13 
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Subroutine 

Module 

Chart 

GETRDEV 

DMKVDB 

17 

GETRTYP 

DMKVDB 

17 

GETSHAD 

DMKVAT 

3 

GETUSER 

DMKCSP 

6 

GETUSER 

DMKCSU 

10 

GETUSER 

DMKSPL 

3 

GETVRADD 

DMKPTR 

5 

GETVSPL 

DMKDRt) 

5 

GETYPE 

DMKCSP 

6 

GETYFE 

DMKCSU 

12 

GTCLASSB 

DMKCSP 

7 

GTCLASSB 

DMKCSU 

12 

GU 02 

DMKCSU 

10 

IDAWSUB 

DMKCCW 

13 

INITCON 

DMKQCN 

2 

INITSCAN 

DMKCSU 

6 

INSTADR 

DMKPRV 

4 

10 

DMKVMI 

1 

IOEMSGWR 

DMKIOG 

4 

IOINT 

DMKSAV 

1 

IORETN 

DMKRPA 

2 

IORETURN 

DMKUDR 

6 

IOSDQCH 

DMKIOS 

13 

IOSDQCU 

DMKIOS 

13 

IOSDQDV 

DMKIOS 

12 

IOSENSE 

DMKIOS 

14 

IOSFINDP 

DMKIOS 

9 

IOSGTIOB 

DMKIOS 

10 

IOSIGNOR 

DMKIOS 

11 

IOSQCH 

DMKIOS 

12 

IOSQCU 

DMKIOS 

11 

IOSQDEV 

DMKIOS 

11 

IOSRECER 

DMKIOS 

14 

IOSTRTCH 

DMKIOS 

7 

IOSTRTCU 

DMKIOS 

7 

IOSTRTDV 

DMKIOS 

8 

KEYTRAN 

DMKHVC 

1 

LASTLINE 

DMKDMP 

4 

LBIONT 

DMKSAV 

3 

LINESIZE 

DMKCFT 

1 

LINKDEF 

DMKLNK 

11 

LINKSUB 

DMKLNK 

9 

LOKUSER 

DMKDEF 

6 

LOKUSER 

DMKVDB 

17 
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Subroutine 

Module 

Chi 

MCHGOZO 

DMKMCH 

9 

MCHHSKP 

DMKMCH 

8 

MOVEDATA 

DMKVSP 

16 

MSGALL 

DMKMID 

2 

MSGERR 

DMKSPL 

7 

MSGFMT 

DMKMSG 

2 

MSGRET 

DMKMCH 

5 

MSGSND 

DMKMSG 

2 

MSGSUBR 

DMKUSO 

5 

MSG900E 

DMKCKP 

7 

MSG901E 

DMKCKP 

7 

NEXTBUFF 

DMKRSP 

5 

NXTFCR 

DMKCNS 

17 

NXTPTR 

DMKDAS 

7 

OPEN 

DMKVSP 

14 

OPENCONT 

DMKVSP 

14 

OTHRXA 

DMKCCW 

29 

OTHRXB 

DMKCCW 

29 

OTHRXC 

DMKCCW 

29 

OTHRXD 

DMKCCW 

29 

OTHRXE 

DMKCCW 

29 

OTHRXF 

DMKCCW 

29 

OTHRX1 

DMKCCW 

28 

OTHRX2 

DMKCCW 

29 

OTHRX3 

DMKCCW 

29 

OTHRX4 

DMKCCW 

29 

OTHRX5 

DMKCCW 

29 

OTHRX6 

DMKCCW 

29 

OTHRX7 

DMKCCW 

29 

OTHRX9 

DMKCCW 

29 

OVERHEAD 

DMKPAG 

3 

PAGFREE 

DMKPTR 

10 

PAGIN 

DMKPTR 

5 

PARTLINE 

DMKDMP 

4 

PASSRETN 

DMKEPS 

1 

PCITEST 

DMKVSP 

16 

PERCHEK 

DMKPRV 

4 

PGTMSG 

DMKPGT 

4 

PGTMSG2 

DMKMSG 

4 

PRGEVEN 

DMKPRG 

4 

PRIO 

DMKDMP 

5 

PROTEST 

DMKVSP 

16 

PROTTEST 

DMKVCN 

6 

PRTDATA 

DMKVSP 

12 

PRTDONE 

DMKVSP 

8 







Subro utin e 

PRTEOF 

PSETKEY 

PTRFDISP 

| PUTBACK 
PUTLINE 
PUTMSG1 
PUTREC 

| PUTSEEK 

QRYFCNT 

QRYUSRN 

QRYVFMT 

RDLAEEL 

RDLBIRA 

RDRDATA 

RDRIE 

READADDR 

READBUF 

READLOG 

REAIREAD 

REALRETN 

REALWRT 

RECGETNN 

RECHAIN 

REGSPEC 

RESETIMR 

RESTINST 

RESYSTEM 

| RESYSTEM 
RET8 
RET8R1 
REWRITE 
RSPMSG 
RSTMPOFF 
RSTMPON 
RSTRIRA 
RTNBRKND 
RTNECA 
RTNEXCLM 
RTNIDENT 
RTNPREP 
RTNSDPRP 
RUNTIME 

| SAVRETN 
SAVRETN 
SCAN 





Module 

Chart 

Subroutine 

Module 

Chart 

DMKVSP 

7 

SCAN 

DMKUDR 

1 

DMKPRV 

3 

SCANDEV 

DMKCSO 

5 

DMKPTR 

9 

SCANRSP 

DMKCQP 

1 

DMKTRC 

9 

SCANSHQ 

DMKCQP 

1 

DMKDMP 

4 

SCPZCAW 

DMKSAV 

3 

DMKRSP 

5 

SEARCHB 

DMKDRD 

5 

DMKCKP 

5 

SELECT 

DMKPTR 

10 

DMKCCW 

20 

SENSE 

DMKVSP 

8 



SENSMOVE 

DMKVSP 

13 

DMKCQG 

1 

SEPIRA 

DMKSEP 

3 

EMKCQG 

2 

SETCCW 

DMKDMP 

5 

DMICQG 

2 

SETHHR 

DMKSAV 

1 



SETIMER 

DMKSCH 

7 

DMKVDB 

11 

SETOPTS 

DMKVSP 

7 

DMKVDB 

12 

SETUPEX 

DMKVAT 

8 

DMKVSP 

9 

SFBCHAIN 

DMKSPL 

2 

DMKSPL 

2 

SFBSCAN 

DMKCSU 

6 

DMKSSP 

3 

SHADOWS 

DMKVAT 

2 

DMKDAS 

9 

SHADSET 

DMKVAT 

8 

DMKCFS 

2 

SNSRTN 

DMKDAS 

8 

DMKIOF 

5 

SRCHPTE 

DMKVAT 

10 

DMKCQP 

2 

STARTMSG 

DMKCSO 

5 

DMKIOF 

5 

STOLOCA 

DMKCDS 

2 

DMKCFS 

3 

STOSCAN 

DMKCDS 

1 

DMKRSP 

6 

STSTERR 

DMKMCH 

6 

DMKPRV 

3 

SVCFR 

DMKPSA 

2 

DMKSCH 

8 

SVCGET 

DMKPSA 

5 

DMKCFD 

4 

SVCRISE 

DMKPSA 

5 

DMKCFP 

4 

SWPCALL 

DMKVDB 

16 

DMKCPB 

1 

SWPUSER 

DMKVDB 

17 

DMKWRM 

5 

| SYSTUNLC 

DMKCFG 

3 

DMKWRM 

5 

SYSUNLCK 

DMKCFP 

12 

DMKPTR 

11 




DMKRSP 

5 

TAPERADD 

DMKRSP 

5 

DMKSCH 

6 

| TAPEXA 

DMKCCW 

24 

DMKSCH 

5 

TAPEXE 

DMKCCW 

24 

DMKSEP 

3 

TAPEXC 

DMKCCW 

24 

DMKCNS 

20 

| TAPEXD 

DMKCCW 

25 

DMKCNS 

8 

{ TAPEXE 

DMKCCW 

25 

DMKCNS 

14 

TAPEXF 

DMKCCW 

25 

DMKCNS 

10 

TAPEX1 

DMKCCW 

23 

DMKCNS 

12 

TAPEX2 

DMKCCW 

23 

DMKCNS 

11 

} TAPEX3 

DMKCCW 

23 

DMKDSP 

8 

TAPEX4 

DMKCCW 

23 



TAPEX5 

DMKCCW 

23 

DMKCFG 

3 

TAPEX6 

DMKCCW 

23 

DMKCPV 

11 

| TAPEX7 

DMKCCW 

24 

DMKSSP 

3 

| TAPEX9 

DMKCCW 

24 


Directories 515 
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Subroutine 

Module 

Chart 

TDKIRA 

DMKTDK 

2 

TERM 

DMKMCH 

6 

TERMIRA 

DMKRSP 

6 

TERMXA 

DMKCCW 

26 

TERMXB 

DMKCCW 

26 

TERMXC 

DMKCCW 

26 

TERMXD 

DMKCCW 

26 

TERMXE 

DMKCCW 

26 

TERMXF 

DMKCCW 

26 

TERMX1 

DMKCCW 

25 

TERMX2 

DMKCCW 

25 

TERMX3 

DMKCCW 

25 

TERMX4 

DMKCCW 

25 

TERMXB 

DMKCCW 

25 

TERMX6 

DMKCCW 

25 

TERMX7 

DMKCCW 

26 

TERMX9 

DMKCCW 

26 

TICSUBX 

DMKCCW 

8 

TICSUBX 

DMKCCW 

8 

TICSUB1 

DMKCCW 

8 

TRAINIT 

DMKTRC 

8 

TRANERNG 

DMKCCW 

29 

TRANERNG 

DMKTRC 

12 

TRANLOCK 

DMKCCW 

30 

TRANRETN 

DMKPTR 

4 

TRANS 

DMKCNS 

19 

TROUSUB 

DMKTRC 

10 

TROOSUB7 

DMKTRC 

11 


Subroutine 

Module 

Chart 

TSTONOFF 

DMKCFS 

3 

TSTONOFF 

DMKCFT 

2 

TSTSEP 

DMKSEP 

3 

TYPLINE 

DMKDMP 

6 

UNLOKSDB 

DMKLNK 

11 

UNRELSUB 

DMKUNT 

3 

UNTRSREL 

DMKUNT 

5 

USERCARD 

DMKACO 

1 

USERCARD 

DMKCKP 

6 

USERDEV 

DMKVDB 

17 

USOSUB 

DMKUSO 

5 

VCNMVDAT 

DMKVCN 

4 

VCNRDRET 

DMKVCN 

8 

VCNRELSE. 

DMKVCN 

6 

VCNSCALC 

DMKVCN 

4 

VDBSCAN 

DMKVDB 

1 

VIOINT1 

DMKVIO 

12 

VOL1RTN 

DMKDAS 

9 

WAITIME 

DMKDSP 

9 

WAITPAGE 

DMKPAG 

2 

WRTOUT 

DMKCQP 

1 

WRTVIRT 

DMKCQG 

9 

ZAPPAGE 

DMKVAT 

4 

ZAPSEGS 

DMKVAT 

4 

ZAPVOLD 

DMKVDB 

11 



DATA AREA S — CONTROL BL OCKS 


To determine the modules that reference or alter a data area or a field in a data area, refer to the alphamerical 
Label Cross-r ef erenc e list that is contained in the microfiche for VM/370, 
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Diag. 9A0. CP Control Block Relationships 





/ 


% 




ACGTBLOK - USE R ACCOUNTING BLOCK 


1 - 

0 I 

1 - - - - 

ACCTUSER 

- ! 

1 

8 I 

1 

ACCTACHO 


10 | 

i_ 

ACCTDIST 

___ 1 


Displacement 

Field 





Hex 

Dec 

Name 



Field Description, Contents, Meaning 

0 

0 

ACCTUSER 

DS 

CL8 

Virtual 

machine identification 

8 

8 

ACCTACNO 

DS 

CL8 

Virtual 

machine accouting number 

10 

16 

ACCTDIST 

DS 

CL8 

Virtual 

machine distribution number 



ACCTLENG 

EQU 

(*—ACCTBLOK)/8 

Size of 

ACCTBLOK in doublewords (X f 03 f ) 


ACNTBLOK - ACCOUNTING CARD B UFFER 


i- 


ACNTCCW 

- n 


ACNTNEXT 

i 

_i 



ACNTDATA 

(See Format 

for User Cards) | 

i_ 


i - 

i 

ACNTBACK | 

_i 


Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

ACNTCCW 

DS 

D 

Punch CCW for accounting card 

8 

8 

ACNTNEXT 

DS 

F 

Address of next ACNTBLOK in chain 

C 

12 

ACNTDATA 

DS 

CL80 

Accounting information 

5C 

92 

ACNTBACK 

DS 

F 

Address of previous ACNTBLOK in chain 



ACNTSIZE 

EQU 

(♦—ACNTBLOK)/8 

Size of ACNTBLOK in doublewords (X'OC 1 ) 
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Format for User Cards 


c 

• — 
i 


ACNTUSER 

---| 

14 

i 


ACNTNOM 


1C 

i 

i 


ACNTSTOP 



1 

i 


i ' 1 1 .. 

i 

ACNTCONT | 

2C 

i 

ACNTTIME 

i 

ACNTVTIM i 

34 

i 

ACNTPGRD 

i 

ACNTPGWT | 

3C 

i 

ACNTIOCT 

i 

ACNTPNCH | 

44 

i 

ACNTLINS 

i 

ACHTCRDS | 

4C 

i 


ACHTRSV1 


54 

i 

i _ 

ACNTRSV2 


| ACNTCODE I 

___1 


Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

C 

12 

ACNTOSER 

ORG 

DS 

ACNTDATA 

CL8 

Virtual machine identification 

14 

20 

ACNTNUM 

DS 

CL8 

Virtual machine accounting number 

1C 

28 

ACNTSTOP 

DS 

CL12 

Date and time of accounting MMDDYYHHSS 

28 

40 

ACNTCONT 

DS 

IF 

Number of seconds connected 

2C 

44 

ACNTTIME 

DS 

IF 

Milliseconds of CPU time used 

30 

48 

ACNTVTIM 

DS 

IF 

Milliseconds of virtual CPU time used 

34 

52 

ACNTPGRD 

DS 

IF 

Total page reads 

38 

56 

ACNTPGHT 

DS 

IF 

Total page writes 

3C 

60 

ACNTIOCT 

DS 

IF 

Virtual SIO count for non—spooled I/O 

40 

64 

ACNTPNCH 

DS 

IF 

Virtual card count - spooled punch 

44 

68 

ACNTLINS 

DS 

IF 

Virtual line count — spooled printer 

48 

72 

ACNTCRDS 

DS 

IF 

Virtual card count — spooled reader 

4C 

76 

ACNTRSV1 

DS 

FL8 

Reserved for IBM use 

54 

84 

ACNTRSV2 

DS 

HL6 

Reserved for IBM use 

5A 

90 

ACNTCODE 

DS 

1H 

Accounting card identification code 



Card code for 
DC 

DC 

DC 

ACNTCODE 

.C»x1» 

C*x2 f 

C l x3 l 

User virtual machine accounting card 

User dedicated device accounting card 

User temporary disk space accounting card 




/ \ 






I 


2C 44 
30 48 


where x = C if the card was punched for the userid in the User Accounting Block 
= 0 if the card was punched for the user requesting the card 


ORG ACNTTIME 
ACNTDEVC DS XL4 

ACNTNCYL DS 1H 


Device code (CTFM) See DEVTYPE copy file 
Number of cylinders of T—disk space 


AL OCBLOK - DASD CYLINDER ALLOCATION BLOCK 


1 - 

1 

ALOCPNT 

|ALOCUSED |ALOCMAX 

— i 

1 

_ | 

1 


ALOCMAP 

1 

i 

1 _ 



_ i 


Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

ALOCPNT 

DS 

IF 

Pointer to next ALOCBLOK on chain 

4 

4 

ALOCUSED 

DS 

1H 

Number of cylinders currently in use 

6 

6 

ALOCMAX 

DS 

1H 

Maximum number of cylinders available 

8 

8 

ALOCMAP 

DS 

OF 

Cylinder allocation bit map 


Bits defined in ALOCMAP: 

0 = Cylinder is available 
1 = Cylinder has been assigned 


Note: The size of the ALOCMAP is variable and depends on the number of cylinders on the device. 
Generally, the size of the ALOCBLOK is determined by the following formula: 

ALOCSIZE (doublewords) = ( (( (ALOCMAX+7) /8)+7)/8)+1 

where: 

ALOCMAX for 2314 = 203 

for 3330 = 404 

for 2305—1 = 48 

for 2305-2 = 96 

Any bits in the map that represent cylinders not present on the device are set to one. 

For TDISK allocation blocks 
ORG ALOCUSED 

4 4 ALOCCYL1 DS 1H First cylinder of TDISK area 

6 6 AL0CCYL2 DS 1H Last cylinder of TDISK area 

Bytes defined in ALOCMAP 

X'OO 1 = Cylinder is available 

X • AA 1 = Cylinder has been allocated 
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Note : The size of the TDISK ALOCMAP is variable and depends on the number of cylinders in the 
range AL0CCYL1 to AL0CCYL2. Generally, the size of a given block is determined by the 
following formula: 

ALOCSIZE (doublewords) = ((AL0CCYL2—ALOCCYL1+8)/8)+1 
Bytes for cylinders that are not available are marked allocated. 


BUFFER - CONSOLE FUNCTIO N INPUT BUFFER 


i---*-1 


0 1 

1 

1 


BUFFER 



88 | 

BUFNXT 

i 

BUFCNT 



i___i 


Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

BUFIN 

DS 

CL136 

Input line 

88 

136 

BUFNXT 

DS 

IF 

Pointer to next byte in BUFFER 

8C 

140 

BUFCNT 

DS 

IF 

Count of characters in input line 

88 

136 

BUFINLTH 

BUFSIZE 

EQU 

EQU 

L'BUFIN 
(♦-BUFFER)/8 

Input BUFFER size in bytes 

BUFFER size in doublewords (X f 12 f ) 




CCHRBC - CHANNEL CHECK HANDLER RECORD 


0 

8 

10 

18 

20 


30 
38 
40 
48 
50 

< 

< CCHLOG 

< 

I 


r 

C*1 |C*2 

|C*3 

|C*4 | CCSW2REV|C*5 

| C*6 




CCDATE 






CCCPUID 






CCPROGID 



= 



FAILADD 






FAILCCW 






FAILCSW 




FAILECSW 

i 

CCDEVTYP 



CCHANID 

| CCHCUA | 

CCHMP 

1 


Displacement 

Field 



Hex 

Dec 

Name 



0 

0 

CCRECTYP 

DS 

IX 

1 

1 

CCOPSYS 

DS 

IX 

2 

2 

CCSW1 

DS 

IX 

3 

3 

CCSW2 

DS 

IX 

4 

4 

CCSW2REV 

DS 

2X 

6 

6 

CCRECNT 

DS 

IX 

7 

7 

CCRECNT1 

DS 

IX 

8 

8 

CCDATE 

DS 

ID 

10 

16 

CCCPUID 

DS 

ID 

18 

24 

CCPROGID 

DS 

ID 

20 

32 

FAILADD 

DS 

8H 

30 

48 

FAILCCW 

DS 

ID 

38 

56 

FAILCSW 

DS 

ID 

40 

64 

FAILECSW 

DS 

OF 

40 

64 

IGPRGFLG 

DS 

CL1 


Field Description, Contents, Meaning 


C*1 Record type 
C*2 Operating system 
C*3 Switch one 
C*4 Switch two 
Unused 

C*5 Record count 
C*6 Unused 
Date and time 
CPUID 
USERID 

Active I/O units 
Failing CCW 
Failing CSW 
Failing ECSW 
Program flag bits 
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Bits defined in IGPRGFLG 




CCHSIOB 

EQU 

X® 80® 



CCHINTB 

EQU 

X 1 40* 



CCHSNSB 

EQU 

X* 04* 



CCHCNTB 

EQU 

X 1 02 1 



CCHNRYB 

EQU 

X®01® 

41 

65 

IGBLAMB 

DS 

CL1 



Bits defined 

in IGBLAME 



CCHCPU 

EQU 

X®80® 



CCHCHNL 

EQU 

X®40« 



CCHSCUB 

EQU 

X®20® 



CCHSTG 

EQU 

X* 10* 



CCHINTFC 

EQU 

X* 08* 

42 

66 

IGVALIDB 

DS 

CL1 



Bits defined 

in IGVALIDB 



CCHRCV 

EQU 

X* 10' 



CCHUSV 

EQU 

X® 08® 



CCHCMDV 

EQU 

X # 04 f 



CCHCAV 

EQU 

X 1 02 # 



CCHDAV 

EQU 

X®01® 

43 

67 

IGTERMSQ 

DS 

CL1 



Bits defined 

in IGTERMSQ 



COMPSYS 

EQU 

X®C0® 



COMPSEL 

EQU 

X* 80® 



COMPFES 

EQU 

X® 40® 



COHPID 

EQU 

X®00® 



CCHDI 

EQU 

X® 08• 



Sequence 

code 

bits 



RTCODEO 

EQU 

X®00® 



RTCQDE1 

EQU 

X®01® 



RTCODE2 

EQU 

X* 02® 



RTC0DE3 

EQU 

X® 03® 



RTCODE4 

EQU 

X® 04 ® 



RTCODES 

EQU 

X® 05® 



RTCODE6 

EQU 

X® 06* 



RTCODE7 

EQU 

X® 07® 

44 

68 

CCDEVTYP 

DS 

IF 

48 

72 

CCHAHIP 

DS 

XL2 

4A 

74 

CCHCUA 

DS 

1H 

4C 

76 

CCHMP 

DS 

IF 

50 

80 

CCHL0680 

DS 

0CL112 

50 

80 

CCHLOG70 

DS 

0CL24 

50 

80 

CCH10G60 

DS 

0CL24 



CCHSIZE1 

EQU 

(*-CCHREC)/8 
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SIO bit 
Interrupt bit 
Sense data stored bit 
Count valid bit 
No retry bit 

Probable source of error 

CPU is source of error 

Channel is source of error 

Storage control unit is source of error 

Storage is source of error 

I/O interface is source of error 

Validity indicator bits 

Retry code valid 
Selective reset 
Command address valid 
Channel address valid 
Device address valid 

Termination/sequence code bits 

System reset 

Selective reset 

Forced ending sequence 

Interface disconnect 

Disconnect in sequence code bits 


Retry 

Code 

Values 

For 

The 

Constructed 

ECSW 


CP device type 
Channel ID 

Actual failing address 
MP information 
2880 channel — 112 bytes 
2870 channel - 24 bytes 
2860 channel - 24 bytes 

Size in doublewords (X 1 0A ®) 



50 

80 

CUAADDR 

DS 

CL4 

Unit address stored by 

integrated channel 



CCHSIZE 

EQU 

(*—CCHHEC)/8 

Size in doublewords 


54 

84 

CCHLOG45 

DS 

0CL96 

145 integrated channel 

- 96 bytes 

54 

84 

CCHL0G35 

DS 

0CL24 

135 integrated channel 

- 24 bytes 


SY20-0880-1, Page Modified by TNL SH20-2624, August 15, 1973 


Data Areas 


Control Blocks 522.3 



SY20-0880-1, Page Modified by TNL SN20-2624, August 15, 1973 


IBM VM/370: Control Program Logic 522.4 


CHXBLOK AND CH YBLOK - VIRTUAL CHANNEL—TO—CHA NNEL ADAPTER CON TROL BLOCKS 


0 

r 

1 

CHXOTHR 

i 

CHYOTHR 

i 

« 

8 

1 

X*11 X*21 X*3| 

X*4 | 

Y*1| X*2| Y*3| Y*4 '| 

s 

10 

1 

CHXNCCW 

1 

CHYNCCW 

f 

18 

1 

CHXRCNT 

1 

CHYRCNT 


20 

1 

CHXSTAT | CHXYADD | 

CHYSTAT | CHXYADD 


28 

1 

CHXIDAW 

t 

CHYIDAW 


30 

1 

CHXCNCT 

1 

CHYCNCT 


38 

1 

CHXWRK1 

1 

CHYWRK1 

j 


Displacement Field 


Hex 

Dec 

Name 





CHXBLOK 



0 

0 

CHXOTHR 

DS 

2F 

8 

8 

CHXFLAG 

DS 

IX 



Bits defined 

in CHXFLAG 



CHBMNOP 

EQU 

X* 80 1 



CHBM370 

EQO 

X 1 40 1 



CHBATTN 

EQU 

X* 20* 



CHBREST 

EQU 

X 1 10* 



CHBEOFL 

EQU 

X 1 08* 

9 

9 

CHXCMDB 

DS 

IX 

A 

10 

CHXCMDT 

DS 

IX 



Bits defined 

in CHXCMDT 



CHBCTNL 

EQU 

X«40« 



CHBRDBK 

EQU 

X* 20 f 



CHBWEOF 

EQU 

X* 10« 



CHBSCMD 

EQU 

X* 08 1 



CHBSADS 

EQU 

X* 04 1 



CHBREAD 

EQU 

X* 02 1 



CHBWRIT 

EQU 

X»01 f 

B 

11 

CHXPKEY 

DS 

IX 

C 

12 


DS 

4X 

10 

16 

CHXNCCW 

DS 

2F 

18 

24 

CHXRCNT 

DS 

2F 


Field Description, Contents, Meaning 


X-side channel adapter block 
VMBLOK address of Y—side adapter user 
X*1 Internal processing flags 
CHYFLAG: 

Modified NOP issued (also in CMDT) 

CTCA operating in System/370 mode 
Attention pending from Y—side 
CTCA has been reset X—side and Y—side 
Force EOF to next READ 

X*2 Active CCW command byte buffer 
X*3 Active CCW command type (RD, WR, etc.) 
CHYCMDT: 

Control, other than NOP 
Read backward 
Write EOF 

Sense command byte 
Sense adapter status 
Read 
Write 

X*4 Virtual CAW protection key 

Next CCW fetch address (real) 

Remaining CCW data count 





^ ^ ^ 


20 

32 

CHXSTAT 

DS 

1H 

Device status accumulation field 

22 

34 

CHXYADD 

DS 

1H 

Virtual address of Y—side adapter 

24 

36 


DS 

2H 

28 

40 

CHXIDAW 

DS 

2F 

Active indirect—data—list word 

30 

48 

CHXCNCT 

DS 

2F 

CPEXBLOK for channel reconnect 

38 

56 

CHXWRK1 

DS 

2F 

Work area word 



CHBSIZE 

EQO 

(♦—CHXBLOK)/8 

Total block size in doublewords (X'08 



CHYBLOK 

DSECT , 

Y—side channel adapter block 

0 

0 

CHYOTHR 

DS 

2F 

VMBLOK address of X—side adapter user 

8 

8 

CHYFLAG 

DS 

IX 

Y*1 Internal processing flags 



Bits defined 

in CHXFLAG and 

CHYFLAG: 



CHBMNOP 

EQO 

X 1 80* 

Modified NOP issued (also in CMDT) 



CHBM370 

EQU 

X • 40 1 

CTCA operating in System/370 mode 



CHBATTN 

EQO 

X 1 20 1 

Attention pending from Y-side 



CHBREST 

EQO 

X' 10* 

CTCA has been reset X—side and Y-side 



CHBEOFL 

EQO 

X f 08 ( 

Force EOF to next READ 

9 

9 

CHYCMDB 

DS 

IX 

Y*2 Active CCW command byte buffer 

A 

10 

CHYCMDT 

DS 

IX 

Y*3 Active CCW command byte 



Bits defined 

in CHXCMDT and 

CHYCMDT: 



CHBCNTL 

EQO 

X«40« 

Control, other than NOP 



CHBRDBK 

EQO 

X 1 20* 

Read backward 



CHBWEOF 

EQO 

X* 10* 

Write EOF 



CHBSCMD 

EQO 

X'08» 

Sense command byte 



CHESAES 

EQO 

X • 04 * 

Sense adapter status 



CHBREAD 

EQO 

X* 02 • 

Read 



CHBWRIT 

EQO 

X*01 f 

Write 

B 

11 

CHYPKEY 

DS 

IX 

Y*4 Virtual CAW protection key 

C 

12 


DS 

4X 


10 

16 

CHYNCCW 

DS 

2F 

Next CCW fetch address 

18 

24 

CHYRCNT 

DS 

2F 

Remaining CCW data count 

20 

32 

CHYSTAT 

DS 

1H 

Device status accumulation field 

22 

34 

CHYXADD 

DS 

1H 

Virtual address of X—side adapter 

24 

36 


DS 

2H 


28 

40 

CHYIDAW 

DS 

2F 

Active indirect—data—list word 

30 

48 

CHYCNCT 

DS 

2F 

CPEXBLOK for channel reconnect 

38 

56 

CHYWRK1 

DS 

2F 

Work area word 


Note: As indicated in the illustrated block, the CHXBLOK and CHYBLOK are interleaved with a 
4—byte displacement. The X—side VDEVBIOK points to the +0 slot, the Y-side VDEVBLOK 
points to the +4 slot; however, once the virtual connection is made, either side can be 
the X—side or Y—side since this interleaved arrangement makes the control block 
references completely symmetrical. The dual DSECT definition allows the active adapter 
(defined to be the X-side, arbitrarily) to reference both adapter sides concurrently 
without knowing which is at +0 or +4. 
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CONTASK - COM SOLE I/O 


r--- 

| CONPNT 

1 

CONRETN 

- 1 

i COHFLGS |C*1 

|C*2 | 

CONBUF 


1 __ 

CONCCW 




Displacement Field 


Hex 

Dec 

Name 



Field Description, Contents, Meaning 

0 

0 

CONPNT 

DS 

IF 

Pointer to next CONTASK 

4 

4 

CONRETN 

DS 

IF 

Pointer to CPEXBLOK for return 

8 

8 

CONFLGS 

DS 

1H 

CONTASK flags 

A 

10 

CONTSKSZ 

DS 

IX 

C*1 — CONTASK size in doublewords 

B 

11 

CONBUFSZ 

DS 

IX 

C*2 — BUFFER size in doublewords 

C 

12 

CONBUF 

DS 

IF 

Address of data BUFFER 

10 

16 

CONCCW 

DS 

ID 

One or more CCWs for console I/O 



CONTSIZE 

EQU 

(CONCCW— 

CONTASK)/8 CONTASK size in doublewords (X•03•) 




ORG 

CONFLGS 


8 

8 

CONSTAT 

DS 

4B 

CONTASK Status 



Bits Defined 

in CONSTAT 




CONOUTPT 

EQU 

X 1 80* 

Output CONTASK 



CONBUFVD 

EQU 

X 1 40* 

CONBUF contains a valid Free Storage Buffer 




ORG 

CONFLGS 


8 

8 

CONPARM 

DS 

1H 

QUECONS parameter flags 




ORG 

CONCCW 


10 

16 

CONADDR 

DS 

IF 

CCW data address 

14 

20 

CONFLAG 

DS 

IX 

CCW flag bits 

15 

21 

CONRSV3 

DS 

IX 

Reserved for IBM use 

16 

22 

CONCNT 

DS 

1H 

CCW byte count 




ORG 

CONADDR 


10 

16 

CONCOMND 

DS 

IX 

CCW command code 



f % 





O =T 00 (J 


CORTABLE 


STORAGE ALLOCATION TABLE 



CORFPNT | 

CORBPNT 

1 

ic*i 

| CORSWPNT | 

CORPGPNT 

| 

i 

—i 


I 


I I I 

i_i 


Displacement 
Hex Dec 


0 

4 

8 

12 


8 8 


4 4 


8 8 


Field 

Name 



Field Description, Contents, Meaning 

CORFPNT 

DS 

IF 

Pointer to next CORETAELE entry in queue 

COREPNT 

DS 

IF 

Pointer to previous CORETABLE entry in queue 

CORSWPNT 

DS 

IF 

Pointer to SWAPTABLE for page 

CORPGPNT 

DS 

IF 

Pointer to PAGTABLE for page 

CORFLAG 

ORG 

DS 

CORSWPNT 

IX 

C*1 - CORTABLE entry status flags 

Bits Defined 
CORIOLCK EQU 

in CORFLAG 

X' 80* 

Page locked for I/O, CORLCNT greater than 0 

CORCFLCK 

EQU 

X' 40' 

Page locked by console function 

CORFLUSH 

EQU 

X' 20* 

Page is in FLUSH list 

CORFREE 

EQU 

X' 10* 

Page is in FREE list 

CORSHARE 

EQU 

X' 08* 

Page is shared 

CORRSV 

EQU 

X' 04' 

Page is reserved 

CORCP 

EQU 

X' 02' 

Page belongs to CP 

CORDIS A 

EQU 

X'01* 

Page disabled, not available 

Entry definition if page is 

locked 

CORLCNT 

ORG 

DS 

COREPNT 

IF 

Page lock count for CORIOLCK 


Entry definition if page is in transit 
ORG CORFLAG 

CORCODE DS IX C*1 - DASD op-code for PAGEIO 


Data Areas 


Control Blocks 
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CPEXBLOK - CP EXECUTE BLCCK 


0 

i— 

i 

CPEXFFNT | 

CPEXBPNT 


8 

1 

CPEXMISC | 

CPEXADD 


10 

i 





i 

i 

CPEX REGS 




1 

i_ 



__i 


Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, 

0 

0 

CPEXFPNT 

DS 

IF 

Pointer to next CPEXBLOK 

4 

4 

CPEXBPNT 

DS 

IF 

Pointer to previous CPEXBLOK 

8 

8 

CPEXMISC 

DS 

IF 

Use varies with stacker 

C 

12 

CPEXADD 

DS 

IF 

Execute address 

10 

16 

CPEXREGS 

DS 

16F 

Execute registers 



CPEXSIZE 

EQU 

(*—CPEXBLOK)/8 

Size in doublewords (X^A 1 ) 



For CPEXREGS 

Area 





ORG 

CPEXREGS 


10 

16 

CPEXR0 

DS 

IF 


14 

20 

CPEXR1 

DS 

IF 


18 

24 

CPEXR2 

DS 

IF 


1C 

28 

CPEXR3 

DS 

IF 


20 

32 

CPEXR4 

DS 

IF 


24 

36 

CPEXR5 

DS 

IF 


28 

40 

CPEXR6 

DS 

IF 


2C 

44 

CPEXR7 

DS 

IF 


30 

48 

CPEXR8 

DS 

IF 


34 

52 

CPEXR9 

DS 

IF 


38 

56 

CPEXR10 

DS 

IF 


3C 

60 

CPEXR1 1 

DS 

IF 


40 

64 

CPEXR12 

DS 

IF 


44 

68 

CPEXR13 

DS 

IF 


48 

72 

CPEXR14 

DS 

IF 


4C 

76 

CPEXR15 

DS 

IF 



Meaning 









DMPINREC - DUMP PILE INFORMATION RECORD 


1- 

o I 

EMFGPRS 

T 

40 | 

1 _ 

DMPCRS 


80 | 

j _ 

DMPFPRS 


AO i 

1 . 

DMPTODCK 


1 

A 8 | 

i ,_ 

DMPCPUTM 


BO | 

i 

DMPCKCOM 

l 

1----- 1 

B8 |S*1 |S*2 | DMPRSV2 | DMPSYSRV | 

i i 

co i 

EMPLCORE 

1 

i a _ii_ 

ico i 

i_ 

DMPPGMAP 

| 

J 


Displacement 

Field 



Hex Dec 

flame 


Field Description, Contents, Meaning 

0 0 

DMPGPRS DS 

16F 

16 General Registers 

40 64 

DMPCRS DS 

16F 

16 Control Registers 


80 

128 

DMPFPRS DS 

4D 

4 Floating Point Registers (if Floating-Point Feature is 
installed.) 

AO 

160 

DMPTODCK DS 

ID 

Time—of—day clock 

A8 

168 

DMPCPUTM DS 

ID 

CPU timer 

BO 

176 

DMPCKCOM DS 

ID 

Time—of—day clock comparator 

B8 

184 

DMPFLAG DS 
Bits Defined 
HALFPAGE EQU 

IX 

in DMPFLAG 
X«80« 

S*1 - flag byte 

Last record in DUMP file = 2K 

B9 

185 

DMPRSV1 DS 

IX 

S*2 - reserved for IBM use 

BA 

186 

DMPRSV2 DS 

1H 

Reserved for IBM use 

BC 

188 

DMPSYSRV DS 

IF 

System generated storage size 

CO 

192 

DMPLCORE DS 

256X 

Locations 0-256 of storage memory 

CO 

448 

DMPPGMAP DS 

4096B 

Bit map indicating which pages appear in the DUMP file 
(each bit represents a 4K block) 




Data Areas 


Control Blocks 527 









IBM VM/370: Control Program Logic 528 


DMPKYREC - DUMP FILE KEY RECORD 


i- 

0 |S*1 | 

|-» DMPKEYS 

I 


i 

I 

I 

I 

j 


Displacement 

Hex Dec 

Field 

Name 



0 

0 

DMPKEYS 

DS 

4096X 

0 

0 

DMPKEY 

ORG 

DS 

DMPKEYS 

IX 


Field Description, Contents, Meaning 
Main storage keys 

S*1 — storage key for each 2K block 



DMPTBREC - DUMP FILE SYMEOL TAELE RECORD 


r-—-1 

| DMPSYMNM | 

i i 

| DMPSYMV A 

1 _ _ 

1 

. 1 

i 

i 

1 

i 

DMPSYMEN 

1 

i 

L 


j 


Displacement 

Field 



Hex 

Dec 

Name 



0 

0 

DMPSYMEN 

DS 

341XL12 




ORG 

DMPSYMEN 

0 

0 

DMPSYMNM 

DS 

CL8 

8 

8 

DMPSYMVA 

DS 

A 


Field Description, Contents, Meaning 
Symbol table entries 

CSECT or entry point name 

Location in main storage of this symbol 


Data Areas 


Control Blocks 529 
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ECBLCK - EXTENSION TO VMBLOK FOB VIRTUAL MACHINE WITH RELOCATE WITH RELOCATE 


r— 
0 \ 

EXTCR0 


i 

EXTCR1 


8 1 

EXTCR2 


i 

EXTCR3 


10 I™ 

EXTCR4 


i 

EXTCR5 


18 

EXTCR6 


i 

EXTCR7 


20 | 

EXTCR8 


i 

EXTCR9 


28 | 

EXTCR10 


i 

EXTCR11 


30 | 

EXTCR12 


i 

EXTCR13 


38 | 

EXTCR14 


i 

EXTCR15 


40 | 

i _ 

EXTSHCR0 


i 

EXTSHCR1 


i--- 

48 |EXTSHLEN |EXTCPLEN 

i 

i 

EXTCOPY 


50 | 

EXTSHSEG 


| EXTSEGLN | EXTARCH 


58 

EXTPERAD 


| EXTPERCD | EXTRSV1 


60 I 


EXTCPTMR 



68 | 

i_ 

EXTCPTRQ 


1 

EXTCCTRQ 

_i 


Displacement 

Field 



Hex 

Dec 

Name 



0 

0 

EXTCR0 

DS 

IF 

4 

4 

EXTCR1 

DS 

IF 

8 

8 

EXTCR2 

DS 

IF 

C 

12 

EXTCR3 

DS 

IF 

10 

16 

EXTCR4 

DS 

IF 

14 

20 

EXTCR5 

DS 

IF 

18 

24 

EXTCR6 

DS 

IF 

1C 

28 

EXTCR7 

DS 

IF 

20 

32 

EXTCR8 

DS 

IF 

24 

36 

EXTCR9 

DS 

IF 

28 

40 

EXTCR10 

DS 

IF 

2C 

44 

EXTCR11 

DS 

IF 

30 

48 

EXTCR12 

DS 

IF 


Field Description, Contents, Meaning 


Virtual control register 
Virtual control register 
Virtual control register 
...thru register 15 


0; architecture controls 
1; segment table pointer 
2 



\ j 







34 

52 

EXTCR13 

DS 

IF 

38 

56 

EXTCR14 

DS 

IF 

3C 

60 

EXTCR15 

DS 

IF 

40 

64 

EXTSHCR0 

DS 

IF 

44 

68 

EXTSHCR1 

DS 

IF 

48 

72 

EXTSHLEN 

DS 

1H 

4 A 

74 

EXTCPLEN 

DS 

1H 

4C 

76 

EXTCOPY 

DS 

IF 

50 

80 

EXTSHS EG 

DS 

IF 

54 

84 

EXTSEGLN 

DS 

1H 

56 

86 

EXTARCH 

DS 

1H 

58 

88 

EXTPERAD 

DS 

IF 

5C 

92 

EXTPERCD 

DS 

1H 

5E 

94 

EXTRSV1 

DS 

1H 

60 

96 

EXTCPTMR 

DS 

ID 

68 

104 

EXTCPTRQ 

DS 

IF 

6C 

108 

EXTCCTRQ 

DS 

IF 


Shadow control register 0 

Shadow control register 1 

Length of shadow SEGTABLE in bytes 

Length of copy SEGTAELE in bytes 

Pointer to copy segment table 

Real address of shadow SEGTABLE 

Length of shadow SEGTAELE in doublewords 

Architecture control index 

PER interrupt address 

PER interrupt code to be reflected 

Reserved for IBM use 

Virtual CPU timer 

Address of TRQBLOK for CPU timer 

Address of TRQBLOK for clock comparator 


EXTSIZE EQU (*-ECBL0K)/8 ECBLOK size in doublewords (X'OE*) 


Data Areas 


Control Blocks 531 
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IOBLOK - I/O CONTROL BLOCK 


0 

IIOBBABD |I*1 

11*2 

1 

IOBLINK 


8 

i IOEFPNT 


1 

IOEEPNT 


10 

IIOBCYL IIOBVADE 

i 

1 

IOBMISC 


18 

i --• 

| IOBUSER 


1 

IOBIRA 


20 

| IOECAW 


1 

IOBRCAW 


28 


ICECSW 



30 

i IOEIOER 


1 

IOBMISC2 


38 

i 1*3 1V*1 1 

1_ 

V*2 

1 

V*3 



Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

IOERADD 

DS 

1H 

Real device address for SIO 

2 

2 

IOBFLAG 

DS 

IX 

1*1 - IOBLOK flags 



Bits Defined 

in IOBFLAG 




IOBCP 

EQO 

X* 80* 

CP generated I/O operation 



IOBRSTRT 

EQU 

X' 40« 

Restarted operation - IOBRCAW 



IOBSPLT 

EQU 

X' 20' 

DASD — CP split seek operation 



IOBPAG 

EQU 

X' 10' 

ICBLOK created for paging I/O 



IOBRELCU 

EQU 

X' 08' 

Control unit released at initiation 



IOBERP 

EQU 

X' 04' 

I/O task is under control of ERP 



IOBRES 

EQU 

X'02' 

I/O task has been reset 



IOBHVC 

EQU 

X'01' 

I/O initiated via DIAGNOSE instruction 

3 

3 

IOBSTAT 

DS 

IX 

1*2 - IOBLOK status 



Bits Defined 

in IOBSTAT 




IOBFATAL 

EQU 

X* 80' 

Uncorrectable error in this I/O operation 



IOBUC 

EQU 

X' 40' 

Unit check status 



IOBSNSIO 

EQU 

X * 20' 

Sense operation (IOBSNSE) 



IOBREQDE 

EQU 

X' 10' 

Restarted operation (IOBCAW) 



ICBWRAP 

EQU 

X' 08' 

I/O task for autopoll wrap list 



IOBCCO 

EQU 

X'OO' 

Processing I/O interrupt 



IOBCC1 

EQU 

X'01' 

Processing CC 1, CSW stored 



IOBCC2 

EQU 

X' 02' 

Processing CC 2, channel busy 



IOBCC3 

EQU 

X' 03' 

Processing CC 3, not available 

4 

4 

IOBLINK 

DS 

IF 

Reserved for IBM use 


* a 













8 

8 

IOBFPNT 

DS 

IF 

C 

12 

IOBBPNT 

DS 

IF 



IOBMSIZE 

EQU 

(*—IOBLOK)/8 

10 

16 

ICBCYL 

DS 

1H 

12 

18 

IOBVADD 

DS 

1H 

14 

20 

IOBMISC 

DS 

IF 

18 

24 

IOBUSER 

DS 

IF 

1C 

28 

IOBIRA 

DS 

IF 

20 

32 

IOBCAW 

DS 

IF 

24 

36 

IOBRCAW 

DS 

IF 

28 

40 

IOBCSW 

DS 

ID 

30 

48 

I0BI0ER 

DS 

IF 

34 

52 

IOBMISC2 

DS 

IF 

38 

56 

ICBSPEC 

DS 

IX 



Bits Defined in 

IOB SPEC 



IOBTIO 

EQU 

X 1 80 1 



IOBHIO 

EQU 

X' 40 1 

39 

57 

I0BSV1 

DS 

IX 

3A 

58 

IOBSV2 

DS 

XL2 

3C 

60 

IOBSV3 

DS 

IF 



IOBSIZE 

EQU 

(*—IOBLOK)/8 



For CP IOBLCKs 





ORG 

IOBVADD 

12 

18 

IOBRCNT 

DS 

1H 


Pointer to next IOBLOK in queue 
Pointer to previous IOELOK in queue 

Multiple path IOBLOK size in dbl. wds (X , 02 l ) 

DASD — seek cylinder for this IOBLOK 

Virtual device address 

Use varies according to caller 

Pointer to VMBLOK of user 

ICBLOK interrupt return address 

Pointer to CCW chain 

Pointer to restart CCW chain 

Real CSW for I/O operation 

Pointer to IOERBLOK with sense 

Use varies according to caller 

1*3 - IOBLOK special requests 

IOBLOK request for a 'TIO 1 
IOBLOK request for a •HIO' 

V*1 reserved for IBM use 
V*2 reserved for IBM use 
V*3 reserved for IBM use 

IOBLOK size in doublewords (X•08•) 


Retry count 


Data Areas 


Control Blocks 533 
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IOERBLOK - I/O ERROR INFORMATICS ELOCK 


0 

8 

10 

18 

20 

28 

30 

| 48 

I 

I 


Displacement 
Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

ICERPNT 

DS 

IF 

Pointer to next IOERBLOK 

4 

4 

IOERLOC 

DS 

IF 

Address of CCWs used in recovery 

8 

8 

IOERDW 

DS 

1H 

Size in doublewords of storage to construct 

A 

10 

IOERMSG 

DS 

XL3 

Communications with ERP and message writer 




ORG 

IOERMSG 


A 

10 

IOERNUM 

DS 

IX 

Message number for message writer 

B 

11 

IOERIND3 

DS 

IX 

Indicators for message writer 



Eits Defined 

in IOERIND3 




IOERIGN 

EQU 

X 1 80* 

Allow IGNORE response 



IOERETRY 

EQU 

X f 40* 

Allow RETRY response 



IOERCAN 

EQU 

X • 20' 

Allow CANCEL response 



IOEREC 

EQU 

X 1 10* 

Error occurred during recovery action 



IOERDASD 

EQU 

X 1 08 • 

Home address is present 



IOERDEC 

EQU 

X* 04* 

Operator decision is necessary 



ICERINFO 

EQU 

X' 02• 

Informational message 



IOERACT 

EQU 

X'OI* 

Operator action is required 

C 

12 

IOERIND4 

DS 

IX 

Indicators for message writer 



Eits Defined 

in IOERIND4 




IOERIGNR 

EQU 

X^O* 

Operator responded IGNORE 



IOERSTRT 

EQU 

X'40* 

Operator responded RETRY 


i-<-, 

| IOERPNT | IOERLOC j 


IGERDW | IOERMSG |I*1 |1*2 |W*1 


IOERAER 


IOERCSW 


IOERCCW | ICERLEN 


IOEREXT | IOERSV1 


IOFRDATA 


| Additional sense data area for devices| 
| that return more than 24 sense bytes, j 
| See XOBR3211 which follows. | 

i___1 














I0ERFLG1 field 



D 

13 

I0EBFLG1 

DS 

IX 



Bits Defined 

in IOERFLG1 



IOERPEND 

EQU 

X' 80' 



IOERCLN 

EQU 

X * 40' 



ICERERP 

EQU 

X' 40' 



IOERFSR 

EQU 

X'20' 



IOERDEPD 

EQU 

X'20' 



IOERBSR 

EQU 

X' 10* 



IOERDERD 

EQU 

X' 10* 



I0ERER6 

EQU 

X' 08' 



IOERORA 

EQU 

X'04' 



IOERSDPP 

EQU 

X'02' 



IOERVLD 

EQU 

X'01' 

E 

14 

I0ERFLG2 

DS 

IX 



Bits Defined 

in I0ERFLG2 



IOERSTAT 

EQU 

X • 80 • 



IOERHA 

EQU 

X'40' 



IOERCAL 

EQU 

X'20* 



IOERECF 

EQU 

X' 10' 



IOERREW 

EQU 

X' 08' 



IOERCYLR 

EQU 

X' 04' 



IOERCEMD 

EQU 

X' 02' 

F 

15 

IOERWRK 

DS 

IX 

10 

16 

IOERADB 

DS 

IE 

18 

24 

ICERCSW 

DS 

IE 

20 

32 

IOERCCW 

DS 

IE 




ORG 

IOERCCW+6 

26 

38 

IOERLEN 

DS 

1H 

28 

40 

IOEREXT 

DS 

1H 

2A 

42 

I0ERSV1 

DS 

XL6 

30 

48 

IOERDATA 

DS 

3D 



IOERSIZE 

EQU 

(*—IOEBBLOK) 


1*1 - 

Pending device end interrupt from interrupt 

Tape cleaning in progress 

Spooling — error routine in control 

Forward space record being executed 

Spooling — waiting for device end 

Backspace record being executed 

Spooling — device end received 

Erase gap command in progress 

Opposite recovery action in progress 

CCW has suppress data transfer bit on 

Read opposite recovery successful 

1*2 - I0ERFLG2 field 

Statistical data being unloaded 

DASD home address being read 

Stand alone recalibrate being executed 

Error correction function 

Tape rewind being executed 

Cylinder (in sense byte) has been relocated 
Intensive recording mode 

W*1 — Miscellaneous work area 

Home address for DASD devices 

CSW associated with error 

Sense CCW used to sense the real device 


Number of sense bytes present 

Size of extended sense area in doublewords 

Reserved for IBM use 

Sense bytes associated with error 

/8 IOERBLOK size in doublewords (X'09 1 ) 


request 


Data Areas 


Control Blocks 535 
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I0ERBL0K DSECT CONTINUE 

X0BR32H - OUTBOARD RECORDING BLOCK 


48 [ 

X0ERCCW1 

- 1 

1 

50 | 

1 .. . . 

XOERCCW2 


58 | 

XOBRCCW3 


1 ^ 

60 i 

1 

XOERCCW4 

1 

68 | X*1| X*21 XOBRHIS11 XOBRMIS2 | 

i i 

70 | 

1 

1 

I 

X0BR512 

1 

1 

1 

1 

270 1 

1 

1 

1 _ _ 

XOBR180 

1 

1 

1 

328 i 

i 

XOER010 

1 

1 

i 

i_ 

| XOBRVS1 

1 

_ i 


Displacement 
Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

48 

72 

XOBRCCW1 

DS 

ID 

CCW used to read OBR 

information 

50 

80 

XOBRCCW2 

DS 

ID 

CCW used to read OBR 

information 

58 

88 

X0BRCCW3 

DS 

ID 

CCW used to read OBR 

information 

60 

96 

XOBRCCW4 

DS 

ID 

CCW used to read OBR 

information 

68 

104 

XOBRFLAG 

DS 

IX 

X*1 ~ XOBRFLAG field 





Bits Defined 

in XOBRFLAG 






XOBRT1 

EQU 

X 1 80 1 

T1 Buffer type information 

present 



X0BRT2 

EQU 

X*40' 

T2 Buffer type information 

present 



X0BRT3 

EQU 

X^O* 

T3 Buffer type information 

present 

69 

105 

XOBRSTAT 

DS 

IX 

X*2 - XOBRSTAT field 





Bits defined 

in XOBRSTAT 






XOBRRTl 

EQU 

X^O* 

Perform routine 1 in 

error 

module 



XOBRRT2 

EQU 

X^O 1 

Perform routine 2 in 

error 

module 



XOBRRT3 

EQU 

X 1 20 * 

Perform routine 3 in 

error 

module 



X0BBRT4 

EQU 

X« 10* 

Perform routine 4 in 

error 

module 



XOBRRT5 

EQU 

X 1 08 1 

Perform routine 5 in 

error 

module 











X0BBRT6 

EQU 

X f 04* 



X0BEBT7 

EQU 

X 1 02 1 



XOBRRT8 

EQU 

X'01 1 

6A 

106 

X0BBHIS1 

DS 

1H 

6C 

108 

XOBRMIS2 

DS 

IF 

70 

112 

X0BB512 

DS 

CL512 

270 

624 

XOBB180 

DS 

CL 184 




ORG 

XOBR180 

270 

624 

X0BB150 

DS 

CL 150 




ORG 


328 

808 

XCBB010 

DS 

CLIO 

332 

818 

XOBRSV1 

DS 

CL6 



XOBRSIZE 

EQU 

(*-I0ERBL0K)/8 



XOBREX1 

EQU 

(*—X0BRCCW1) /8 


Perform routine 6 in error module 
Perform routine 7 in error module 
Perform routine 8 in error module 

Used by the error routine 
Used by the error routine 
Space for USCB data 
Space for FCB data 


Space for PLB check data 

Space for first ten error characters 
Reserved for IBM use 

Size of IOER and XOBR in double words (X•67 f ) 
Size of XOBR3211 in double words (X^E') 


Data Areas 


Control Elocks 537 
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IRMBLCK - INTENSIVE ERROR RECORDING MODE BLOCK 


1--- 

| IRMFWPTR 

| IRMRLADD 

| IRMLMT | 

| . .......... 

i 1*1 | 1*2| 1*3| 1*4 

i_ 

| IRMLMTCT j 

| 1*5| 1*6 | 


Displacement 
Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

IRMFWPTR 

DS 

IF 

Reserved for IBM use 

4 

4 

IRMRLAED 

DS 

1H 

Device address 

6 

6 

IRMLMT 

DS 

1H 

Limit count — every ’nth* record is requested. 

8 

8 

IRMBYT1 

DS 

IX 

1*1 - first sense byte specified 

9 

9 

IRMBIT1 

DS 

IX 

1*2 — sense bit within first sense byte 

A 

10 

IRMEYT2 

DS 

IX 

1*3 - second sense byte specified 

B 

11 

IRMBIT2 

DS 

IX 

1*4 — sense bit within second sense byte 

C 

12 

IRMLMTCT 

DS 

1H 

Temporary summary count for limit detection 

E 

13 

IRMMAXCT 

DS 

IX 

1*5 - count of recordings made for this request 

F 

15 

IRMFLG 

DS 

IX 

1*6 - flag byte 



Eits Defined 

in IRMFLG 




IRMAND 

EQU 

X • 80 • 

AND condition specified 



IRMOR 

EQU 

X^O' 

OR condition specified 



IRMSIZE 

EQU 

(*—IRMBLOK)/8 

IRMBLOK size in doublewords (X*02') 






MCHAREA - MACHINE CHECK SAVE AREA 




0 

|MCDAMLEN | 

■ 

MCHRESEV 

---1 

1 




8 

1 

|M*1 |M*2 | M*3 

1 

(M*4 |M*5 

I 

| M*6 |M*7 |M*8 | 




10 

1 

1 


1 

1 






MCHLSUM 

1 




38 

|- 

|N*1 |N*2 |N*3 

1 

|N*4 |N*5 

-1 

|N*6 |N*7 |N*8 | 




40 

1 

| MCHFSAR 

i 

1 

1 

MCHFSAV | 

i 




48 

1 

| MCHFSEAV 

1 

1 

MCHPDARI | 




50 

1 11 .. 1 

|L*1 |1*2 |L*3 

1 

1 

|L*4 |CPOLIMIT |MCHRES1 | 




58 

1 ' "" ' ' 

| B0FDIA55 

1 

i 

BOF55DIA I 




60 

| BUFENA55 

1 

1 

BUF55ENA 1 




68 

! 

| ECCDIS55 

1 

1 

1 

ECC55DIS | 




70 

1 

| ECCENA55 

1 

1 

1 

ECC55ENA | 

i 




78 

1 

1 

1 

B0FDIA65 

i 

i 

i 




80 

1 

1 

1 

BDFENA65 

i 

i 




88 

1 

1 

1 

ECCDIS65 

i 

i 




90 

1 

1 

a 

ECCENA65 

1 

1 

_i 


Displacement 


Field 




Hex 

Dec 


Name 


Field Description, 

Contents, Meaning 

0 

0 


MCDAMASS DS 

OD 

Damage assessment 


0 

0 


MCDAMLEN DS 

1H 

Length of the damage assessment field 

2 

2 


MCHRESEV DS 

XL6 

Reserved for IBM use 

8 

8 


MCHDAMFL DS 

0BL8 

Damage assessment 

data 

8 

8 


MCHFLAGO DS 

IX 

M*1 System status 





Bits defined in 

t MCHFLAGO 






MCH0HDWR EQU 

X' 80' 

Hardware recovery 





MCH0SFTR EQU 

X'40' 

Software recovery 





MCH0USAD EQO 

X* 20' 

User aborted 
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HCHOTEBH EQ0 

X'08» 

Operating system termination 



MCHOQUIT EQO 

X* 04* 

Quiet mode in effect 

9 

9 

HCHFLAG1 DS 

IX 

M*2 Damage area 



Bits defined 

in HCHFLAG1 




NCH1NAIN EQO 

X* 80* 

Main storage 



HCH1BOFF EQO 

X'40» 

Buffer 



HCH1COST EQO 

X* 20' 

Control storage 



HCH1PBOC EQO 

X'08* 

Processor 



BCH1TODC EQO 

X'02* 

Time—of—day clock 



MCH1SXSD EQO 

X'01* 

System damage 

A 

10 

MCHFLAG2 DS 

IX 

M*3 Damage area (continued) 

B 

11 

HCHFLAG3 DS 

IX 

M*4 Error type 



Bits defined 

in HCHFLAG3 




MCH3IHTE EQO 

X* 80* 

Intermittent 



HCH3SOLD EQO 

X* 40' 

Solid 



HCH3DATA EQO 

X* 20* 

Data 



MCH3PBOT EQO 

X* 10* 

Protect 

C 

12 

HCHFLAG4 DS 

IX 

M*5 RMS Action data 



Bits defined 

in MCHFLAG4 




MCH4TOLO EQO 

X' 80* 

Time out loop 



HCH4BEPA EQO 

X'40« 

Repair 



MCH4STBE EQO 

X* 20’ 

Storage reconfigure 



HCH4BOBE EQO 

X'10' 

Buffer reconfigure 

D 

13 

MCHFLAG5 DS 

IX 

M*6 RMS Information status 



Bits defined 

in MCHFLAG5 




MCH5INLG EQO 

X* 80' 

Invalid logout 



MCH5IHHC EQO 

X • 40 * 

Invalid machine check interrupt code 



HCH5IFSA EQO 

X' 20' 

Invalid failing storage address 

£ 

14 

MCHFLAG6 DS 

IX 

M*7 RMS wait state suffix 

F 

15 

MCHFLAG7 DS 

IX 

M*8 RMS information status 



Bits defined 

in HCHFLAG7 




MCH7SMCB EQO 

X* 80' 

Second machine check recursion 



HCH7VBTH EQO 

X'40» 

Terminate the virtual user 



HCH70PSW EQO 

X' 10' 

M« C. old PSW in problem state 



MCH7VEQB EQO 

X»08» 

Terminate the Virtual equal Real user 

10 

16 

MCHLSOH DS 

IX 

Summary 

38 

56 

MCHPDAB DS 

0BL8 


38 

56 

MCHPDABO DS 

IX 

fl*1 Action taken 

39 

57 

HCHPDAB1 DS 

IX 

Failure type 



Bits defined 

in MCHPDAR1 




MCHP1SDE EQO 

X' 80' 

Solid storage data error 



MCHP1IDE EQO 

X* 40' 

Intermittent storage data error 



MCHP1SKE EQO 

X' 20' 

Solid SPF key error 



MCHP1IKE EQO 

X' 10* 

Intermittent SPF key error 



% 








3A 

58 

MCHPDAR2 

DS 

IX 

i 

N*3 Operating system status 

3B 

59 

MCHPDAR3 

DS 

IX 

N*4 Location of failure 

3C 

60 

MCHPDAR4 

DS 

IX 

N*5 Location of failure 

3D 

61 

MCHPDAR5 

DS 

IX 

N*6 Requested operator awareness 

3E 

62 

MCHPDAR6 

DS 

IX 

Footprint 



Bits defined 

in MCHPDAR6 




MCHP6CBA 

EQU 

X' 80' 

Change bit active 

3F 

63 

MCHPDAR7 

DS 

IX 

Footprints 



Bits defined 

in MCHPDAR7 




BCH7STCK 

EQU 

X*80* 

Interfaces for STACK routine 



BCH7GSTR 

EQU 

X 1 40 1 

Interfaces for GETMAIN routine 



BCH7PDRG 

EQU 

X' 20' 

Interfaces for PURGE routine 



BCH7L0G0 

EQU 

X' 10' 

Interfaces for V=R LOGOFF routine 



BCH7EXIT 

EQU 

X* 08* 

Interfaces for exit to CP 



BCH7RSRE 

EQU 

X* 04' 

Interfaces for RELEASE and RESET routines 



BCH7I0EB 

EQU 

X* 02 1 

Interfaces for the recorder 

40 

64 

MCHFSAR 

DS 

IF 

Failing location real address 

44 

68 

MCHFSAV 

DS 

IF 

Instruction address at failure 

48 

72 

MCHFSEAV 

DS 

IF 

End of the failing location 

4C 

76 

MCHPDARI 

DS 

IF 

End of failing storage address - virtual 



BCHLEN1 

EQU 

MCDAMASS 

Length of damage assessment area 



MCHLEN 

EQU 

*—MCHRESEV 

Length of area to be cleared 

50 

80 

MCHMODEL 

DS 

IX 

L*1 The model number for the machine 



Bits defined 

in MCHMODEL 




NOMODEL 

EQU 

X*00* 

No support for machine 



MODEL135 

EQU 

X • 04 * 

ID number for the 135 machine 



BCDEL145 

EQU 

X* 08* 

ID number for the 145 machine 



MODEL155 

EQU 

X*0C* 

ID number for the 155 machine 



BODEL158 

EQU 

X* OC* 

ID number for the 158 machine 



MODEL 165 

EQU 

X*10* 

ID number for the 165 machine 



MODEL168 

EQU 

X 1 10* 

ID number for the 168 machine 

51 

81 

SWITCH 

DS 

IX 

L*2 Main storage exercise switch 

52 

82 

MODEFLAG 

DS 

IX 

L*3 Flag field for MODE command 



Bits defined 

in MODEFLAG 




MODEQOIT 

EQU 

X* 80* 

ECC is in QUIET mode 

53 

83 

MODFLAG1 

DS 

IX 

L*4 Flag field for message indicator in MODE command 



Bits defined 

in MODFLAG1 




MOD1RETY 

EQU 

X 1 80* 

Message indicator for RETRY message 



MODIQUIT 

EQU 

X * 40 * 

Message indicator for QUIET message 

54 

84 

CPULIMIT 

DS 

1H 

The count field for soft error 

56 

86 

MCHRES1 

DS 

1H 

Reserved for IBM use 

58 

88 


DS 

OD 
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58 88 B0FDIA55 DC X'OIOODIOO' Disable buffer for Model 155 

5C 92 B0F55DIA DS IF Reserved for IBM use 

60 96 B0FEHA55 DC X*0200D100' Enable buffer for Model 155 

64 100 B0F55EHA DS IF Reserved for IBM use 

68 104 ECCDIS55 DC X*0300D100' Disable ECC for Model 155 

6C 108 ECC55DIS DS IF Reserved for IBM use 

70 112 ECCENA55 DC X'0400D100* Enable ECC for Model 155 

74 116 ECC55ENA DS IF Reserved for IBM use 

78 120 B0FDIA65 DC X*0300000000000000* Disable buffer for Model 165 

80 128 B0FEHA65 DC X*0300002000000000• Enable buffer for Model 165 

88 136 ECCDIS65 DC X'0200000003000000' Disable ECC for Model 165 

90 144 ECCENA65 DC X'0200000000000000' Enable ECC for Model 165 

MCHFIX EQD 280+48 The length of the fixed logout and header record for machine 

check handler 

MCHLEN2 EQD *—MCDAMASS The communication area length 


' - 



MC RECORD - MACHINE CHECK HANDLER RECORD 


1- 

0 |M*1 

1 

|M*2 |M*3 |M*4| MCSWITCH|M*5 | M*6 | 

- -. - ..... _ . | 

8 i 

MCDATE | 

. . . . _ 1 

10 | 

MCCPUID | 

. _..... _ -.. . | 

18 | 

MCPROGID | 

. .... .- .... I 

20 | 
i 

1 

MCJOBID | 

.. . -. . . - | 

28 1 

i . 

MCOLDPW | 

.... . _. r ... . i 

30 i 

1 

• " 1 

i 

NCFXDLOG 

1 

_ ..... _ _ _ .. .. . 1 

148 | 

" " ^ ' ' " ' 1 

1 

1 

1 

MCEXTLOG 

(variable length) = 

1 

.. _ . ...... ....-.. . .. 1 

1 

1 

1 

i _ 

1 

1 

HCHDAHAG = 

1 

_ i 


Displacement 

Hex Dec 

Field 

Name 



0 

0 

MCREC 

DS 

0D 

0 

0 

MCRECTYP 

DS 

IX 

1 

1 

MCOPSYS 

DS 

IX 

2 

2 

MCSWONE 

DS 

IX 

3 

3 

MCSWTWO 

DS 

IX 

4 

4 

MCSWITCH 

DS 

2X 

6 

6 

MCRECCNT 

DS 

IX 

7 

7 

MCRECCC 

DS 

IX 

8 

8 

MCDATE 

DS 

XL8 

10 

16 

MCCPUID 

DS 

XL8 

18 

24 

MCPROGID 

DS 

XL8 

20 

32 

MCJOBID 

DS 

XL8 

28 

40 

MCOLDPH 

DS 

XL8 

30 

48 

MCFXDLOG 

DS 

35D 


SY20-0880-1, Page Modified by TNL SN20-2624, 


Field Description, Contents, Meaning 


M*1 Machine check record type 

M*2 Operating system 

M*3 Record independent switch 

M*4 Record dependent switch 

Unused switches 

M*5 Record count 

M*6 Spare 

Date and time 

CPU identification 

Program identity 

Job identity (unused) 

Machine check old PSW 
Machine check fixed logout 
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FXDLGLH EQU (*-MCFXDLOG) 

148 328 MCEXTLOG EQU * Machine check extended logout (the extended logout length is 

variable length — machine dependent) 

The damage assessment area (80 bytes) 


MCHDAMAG EQU * 



OWHDLIST - CP OWNED VOLUMES LIST 


i- 

0 | OWNDVSER 


-1 

IOWNDRDEV | 

_i 


Displacement 

Field 



Hex 

Dec 

Name 



0 

0 

OWNDVSER 

DS 

CL6 

6 

6 

OWNDRDEV 

DS 

1H 




ORG 

OWNDRDEV 

6 

6 

OWNDPREF 

DS 

IX 


PAGTABLE - PAGE TABLE 


Field Description, Contents, Meaning 
Volume serial number 

Displacement of RDEVBLOK for the volume 
Allocation preference 


«—»- 1 

0 | PAGRSV1 | PAGSWP | 

|--j 

8 | PAGCORE | 

i-1 


Displacement Field 


Hex 

Dec 

Name 



0 

0 

PAGRSV1 

DS 

IF 

4 

4 

PAGSWP 

DS 

IF 

8 

8 

PAGCORE 

DS 

1H 


Bits Defined in PAGCORE+1 
PAGINVAL EQU X*08 f 

PAGREF EQU X«01 f 


Field Description, Contents, Meaning 


Reserved to align PAGCORE on a doubleword 
Pointer to SWPTABLE 
Real page address 

PAGTABLE entry invalid 
Page has been referenced 


SY20-0880-1 
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PSA - PREFIX STORAGE AREA (LOW STORAGE LOCATIONS) 

Page 0, Machine Usage 


0 

i— 

i 

IPLPSW 

-—---1 

| IPLCCW1 | 

300 

i- 

| STARTIME 

i - . ...... .. .. .. 

| CPUID 


10 

i 

IPLCCH2 

| EXOPSW | 

_ . ___ _ __i 

310 

i IDLEWAIT 

1 _ _ .... . 

| PAGEWAIT 

20 

i 

SVCOPSW 

| PROPSW | 

320 

i IONTWAIT 

i - - - ... _ _ 

| PROBTIME 

30 

i 

MCOPSW 

| IOOPSW i 

. -. .. ..- __| 

330 

| RUNPSW 

iRUNOSER 

|DSPLPSW 

40 

i 

CSW 

| CAW IQUANTOMR | 

i 

340 

iRUNCRO 

|RUNCR1 

|CPSTAT 

|CPRESTRT 

50 

i 

TIMER |QUANTUM I EXNPSW | 

i 

350 

| .. 

jpGREAD 

i 

|PGWRITE 

| PGWAITIM 

60 

i 

SVCNPSW 

| PRNPSW | 

- _ . . - | 

360 

| PGWAITPG 

i 

|PSASVCCT 

|P*1 |P*2 

70 

i 

MCNPSW 

| IONPSW | 

.. ...._..-.. _ . . _ ...| 

370 

icPID 

|CPABEND 

|P*3 |P*4 

|ASYSVM 

80 

i 


CPULOG i 

.. . -__- .... .... ... i 

380 

| _ - .. 

Iarsppr 

1__- - 

|ARSPPO 

|ARSPRD 

|ARIOPU 

100 

i 


FXDLOG | 

..... _ ......-.. | 

390 

j ARIOPR 

1 

|ARIORD 

|PSARSV6 

|ARSPAC 

160 

i 


FPRLOG | 

. .. . . ... | 

3A0 

| AVMREAL 

| - . _ 

|ASYSABND 

|ASYSLC 

|ASYSOP 

180 

| 

i 


GRLOG | 

_ _ . . -__ _ . . _ i 

3B0 

|ARIOCT 
| 

|ARIOCH 

|ARIOCO 

|ARIODV 

ICO 

i 


" 1 1 ■' ,n ,r r ^ ™ 1 

CRLOG | 

. ... .. , _ . . . . | 

3C0 

|ARIOCC 

1 

|ARIOOC 

|ARIODC 

|ACORETBL 

200 

i 


TEMPSAVE I 

, ... . - . ___ . i 

3D0 

jAPAGCP 
| — 

|CPCREGO 

|CPCREG8 

|PSARSV9 

240 

i 


BALRSAVE | 

.. .. ..... . . ... ril i 

3E0 

IpSARSVIO 

|PSARSV11 

|ADMKFVR 

|XVRINST 

280 

i 


FREESAVE \ 

3F0 

jpAGECUR 

| 

|MONNEXT 

iPAGEND 

|PAGENXT 

2C0 

i 


FREEWORK | 

_ _ _ _ . i 

400 

j TRACEFLG 

1 

|PSARSV12 

i 


2P0 

i 

DATE 

| TODATE | 


l 

i 







_i 


i 

i 

PSARSV15 






430 

1 

|INSTWRD1 

i_ 

|INSTWRD2 

|INSTRRD3 

|INSTWRD4 




540.6 


/ ' > 













Displacement 

Field 



Hex 

Dec 

Name 



0 

0 

IPLPSW 

DS 

ID 

8 

8 

IPLCCW1 

DS 

ID 

10 

16 

IPLCCW2 

DS 

ID 




ORG 

IPLCCW1 

8 

8 

PSARSV3 

DS 

IF 

C 

12 

TRACSTRT 

DS 

IF 

10 

16 

TRACEND 

DS 

IF 

14 

20 

TRACCURR 

DS 

IF 

18 

24 

EXOPSW 

DS 

ID 

20 

32 

SVCOPSW 

DS 

ID 

28 

40 

PROP SW 

DS 

ID 

30 

48 

MCOPSW 

DS 

ID 

38 

56 

IOOPSW 

DS 

ID 

40 

64 

CSW 

DS 

ID 

48 

72 

CAW 

DS 

IF 

4C 

76 

QUANTUMR 

DS 

IF 

50 

80 

TIMER 

DS 

IF 

54 

84 

QUANTUM 

DS 

IF 

58 

88 

EXNPSW 

DS 

ID 

60 

96 

SVCNPSW 

DS 

ID 

68 

104 

PRNPSW 

DS 

ID 

70 

112 

MCNPSW 

DS 

ID 

78 

120 

IONPSW 

DS 

ID 

80 

128 

CPULCG 

DS 

16 D 




ORG 

CPULOG 

80 

128 


DS 

IE 

84 

132 

INTEXF 

DS 

IF 

86 

134 

INTEX 

EQU 

INTEXF+2 

88 

136 

INTSVCL 

DS 

1H 

8 A 

138 

INTSVC 

DS 

1H 

8C 

140 

INTPRL 

DS 

1H 

8E 

142 

INTPR 

DS 

1H 

90 

144 

TREXADD 

DS 

IF 

94 

148 

MONCLASS 

DS 

1H 

96 

150 

PERCODE 

DS 

1H 

98 

152 

PERADD 

DS 

IF 

9C 

156 

MONCODE 

DS 

IF 

A0 

160 


DS 

ID 

A8 

168 

CHANID 

DS 

IF 

AC 

172 

IOELPNTR 

DS 

IF 

E0 

176 

ECSWLOG 

DS 

IF 

B4 

180 


DS 

IF 

E8 

184 

INTKFLIN 

DS 

IF 

BA 

186 

INTTIO 

EQU 

INTKFLIN+2 

EC 

188 


DS 

11F 


Field Description, Contents, Meaning 


IFL start PSW 
IPL CCW 
IPL CCW 


Reserved for IBM use 

Pointer to start of trace table 

Pointer to end of trace table 

Pointer to next available trace table entry 

External old PSW 

SVC old PSW 

Program old PSW 

Machine check old PSW 

I/O old PSW 

Channel status word 

Channel address word 

Interval timer value at last interrupt 

13 microsecond interval timer 

Interval timer value at last dispatch 

External new PSW 

SVC new PSW 

Program new PSW 

Machine check new PSW 

I/O new PSW 

CPU and storage logout area 


Reserved for IBM use 

External interrupt code (fullword) 

External interrupt code (halfword) 

SVC instruction length code (ILC) 

SVC interrupt code 

Program instruction length code (ILC) 

Program interrupt code 

Translation exception address 

Monitor class 

PER interrupt code 

PER interrupt address 

Monitor code 

Reserved for IBM use 

Channel identification 

I/O extended logout (IOEL) pointer 

Limited channel logout (ECSW) 

Reserved for IBM use 

I/O interrupt key, flags, interface address 
I/O interrupt device address (halfword) 
Reserved for IEM use 


Data Areas 


Control Blocks 541 




E8 

232 

INTMC 

DS 

ID 

F0 

240 


DS 

ID 

F8 

248 

FAILSTAD 

DS 

IF 

FC 

252 

REGNCODE 

DS 

IF 

100 

256 

FXDLOG 

DS 

12D 

160 

352 

FPRLOG 

DS 

4D 

180 

384 

GRLCG 

DS 

16F 

ICO 

448 

CRLOG 

DS 

16F 

200 

512 

CPUSAGF 

DS 

OH 




ORG 

CPUSAGE 

200 

512 

TEMPSAVE 

DS 

16F 




ORG 

TEMPSAVE 

200 

512 

TEMPR0 

DS 

IF 

204 

516 

TEMPR1 

DS 

IF 

208 

520 

TEMPR2 

DS 

IF 

20C 

524 

TEHPR3 

DS 

IF 

210 

528 

TEMPR4 

DS 

IF 

214 

532 

TEHPR5 

DS 

IF 

218 

536 

TEMPR6 

DS 

IF 

21C 

540 

TEMFR7 

DS 

IF 

220 

544 

TEMPR8 

DS 

IF 

224 

548 

TEHFR9 

DS 

IF 

228 

552 

TEMPR10 

DS 

IF 

22C 

556 

TEMPR11 

DS 

IF 

230 

560 

TEMPR12 

DS 

IF 

234 

564 

TEMPR13 

DS 

IF 

238 

568 

TEMPR14 

DS 

IF 

23C 

572 

TEMPR15 

DS 

IF 

240 

576 

BALRSAVE 

DS 

16F 




ORG 

BALRSAVE 

240 

576 

BALR0 

DS 

IF 

244 

580 

BALR 1 

DS 

IF 

248 

584 

BALR2 

DS 

IF 

24C 

588 

BALR3 

DS 

IF 

250 

592 

BALR4 

DS 

IF 

254 

596 

BALR5 

DS 

IF 

258 

600 

BALR6 

DS 

IF 

25C 

604 

BALR7 

DS 

IF 

260 

608 

BALR8 

DS 

IF 

264 

612 

BALR9 

DS 

IF 

268 

616 

BALR 10 

DS 

IF 

26C 

620 

BALR11 

DS 

IF 

270 

624 

BALR12 

DS 

IF 

274 

628 

BALR13 

DS 

IF 

278 

632 

BALR 14 

DS 

IF 

27C 

636 

BALR15 

DS 

IF 


280 640 




FREESAVE DS 


16F 


IBM VM/370: Control Program Logic 542 


Machine check interrupt code 
Reserved for IBM use 
Failing storage address 
Region code 

Fixed logout area 

Floating-point register logout area 

General register logout area 

Control register logout area 

End of machine usage, start of CP usage 

Temporary save area 


BALR linkage save area 



DMKFRE save area 



^ ^ rs 





ORG 

FREESAVE 


280 

640 

FREERO 

DS 

IF 


284 

644 

FREER1 

DS 

IF 


288 

648 

FREER2 

DS 

IF 


28C 

652 

FREER3 

DS 

IF 


290 

656 

FREER4 

DS 

IF 


294 

660 

FREER5 

DS 

IF 


298 

664 

FREER6 

DS 

IF 


29C 

668 

FREER7 

DS 

IF 


2A0 

672 

FREER8 

DS 

IF 


2A4 

676 

FREER9 

DS 

IF 


2A8 

680 

FREER 10 

DS 

IF 


2AC 

684 

FREER11 

DS 

IF 


2B0 

688 

FREER12 

DS 

IF 


2B4 

692 

FREER13 

DS 

IF 


2B8 

696 

FREER14 

DS 

IF 


2BC 

700 

FREER15 

DS 

IF 


2C0 

704 

FREEWORK 

DS 

12F 

DMKFRE work area 

2F0 

752 

DATE 

DS 

CL8 

Date — mm/dd/yy — edited EBCDIC 

2F8 

760 

TODATE 

DS 

ID 

TOD clock at 00.00.00 today — local time 

300 

768 

STARTIME 

DS 

ID 

Date and time started — TOD clock value 

308 

776 

CPUID 

DS 

ID 

CPU identification 

| 308 



ORG 

CPUID 


776 

CPUVERSN 

DS 

IX 

Version code 

309 

111 

CPUSER 

DS 

3X 

CPU serial number — packed unsigned 

30C 

780 

CPUMODEL 

DS 

2X 

CPU model number 

30E 

782 

CPUMCELL 

DS 

1H 

MAXIMUM length in bytes of MCEL 

310 

784 

IDLEWAIT 

DC 

X* 7FFFFFFFFFFFF000• Total system idle wait time 

318 

792 

PAGEWAIT 

DC 

X'7FFFFFFFFFFFF000' Total system page wait time 

320 

800 

IONTWAIT 

DC 

X'7FFFFFFFFFFFF000' Total system I/O wait time 

328 

808 

PROBTIME 

DC 

X*7FFFFFFFFFFFF000' Total system problem state time 

330 

816 

RUNPSW 

DS 

ID 

PSW last loaded by Dispatcher 

338 

824 

RUNUSER 

DS 

IF 

Address of dispatched VMBLOK 

33C 

828 

DSPLPSW 

DS 

IF 

Load PSW instruction used to dispatch 

340 

832 

RUNCR0 

DS 

IF 

Control register zero at dispatch 

344 

836 

RUNCR1 

DS 

IF 

Control register one at dispatch 

348 

840 

CPSTAT 

DS 

IF 

CP running status 




ORG 

CPSTAT 


348 

840 

CPSTATUS 

DS 

IX 

CP running status 


Bits defined in CPSTATUS 




CPWAIT 

EQU 

X f 80« 

CP in wait state 



CPRUN 

EQU 

X*40' 

CP running user in RUNUSER 



CPEX 

EQU 

X • 20* 

CP executing stacked request 



CPFVRUN 

EQU 

X* 10* 

Reserved for IBM use 

34C 

844 

CPRESTRT 

DS 

IF 

Restart address if external interrupt marks page invalid 

350 

848 

PGREAD 

DS 

IF 

Total number of page reads 

354 

852 

PGWRITE 

DS 

IF 

Total number of page writes 
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358 

856 

PGWAITIM 

DS 

ID 

360 

864 

PGWAITPG 

DS 

ID 

368 

872 

PSASVCCT 

DS 

IF 

36C 

876 

PAGELOAD 

DS 

1H 

36E 

878 

PAGERATE 

DS 

1H 

370 

880 

PSENDCLR 

DS 

OF 



CPID 

DS 

IF 

374 

884 

CPABEND 

DS 

IF 

378 

888 

PSTARTSV 

DS 

OF 



SYSIPLDV 

DS 

1H 

37A 

890 

PGSRATIO 

DC 

H 1 0 1 

37C 

892 

ASYSVM 

DC 

V(DMKSYSVM) 

380 

896 

ARSPPR 

DC 

V (DMKRSPPR) 

384 

900 

ARSPPU 

DC 

V (DMKRSPPU) 

388 

904 

ARSPRD 

DC 

V (DMKRSPRD) 

38C 

908 

ARIOPU 

DC 

V (DMKRIOPO) 

390 

912 

ARIOPR 

DC 

V (DMKRIOPR) 

394 

916 

ARIORD 

DC 

V (DMKRIORD) 

398 

920 

PSARSV6 

DS 

IF 

39C 

924 

ARSPAC 

DC 

V (DMKRSPAC) 

3A0 

928 

AVMREAL 

DC 

A (0) 

3A4 

932 

ASYSABND 

DC 

A (0) 

3A8 

936 

ASYSLC 

DC 

V(DMKSYSLC) 

3AC 

940 

ASYSOP 

DC 

V (DMKSYSOP) 

3B0 

944 

ARIOCT 

DC 

V (DMKRIOCT) 

3B4 

948 

ARIOCH 

DC 

V (DMKRIOCH) 

3B8 

952 

ARIOCU 

DC 

V(DMKRIOCU) 

3BC 

956 

ARIODV 

DC 

V (DMKRIODV) 

3C0 

960 

ARIOCC 

DC 

V(DMKRIOCC) 

3C4 

964 

ARIOUC 

DC 

V (DMKRIOUC) 

3C8 

968 

ARIODC 

DC 

V (DMKRIODC) 

3CC 

972 

ACORETBL 

DC 

V (DMKSYSCS) 

3D0 

976 

APAGCP 

DC 

A (X 9 FFFFFF*) 

3D 4 

980 

CPCREG0 

DC 

X 1 808008C0* 

3D8 

984 

CPCREG8 

DC 

F 9 0 9 

3DC 

988 

PSARSV9 

DS 

IF 

3E0 

992 

PSARSV10 

DS 

IF 

3E4 

996 

PSARSV11 

DS 

IF 

3E8 

1000 

ADMKFVR 

DC 

F 9 0 9 

3EC 

1004 

XVRINST 

DC 

F« 0* 

3F0 

1008 

PAGECUR 

DS 

IF 

3F4 

1012 

MONNEXT 

DS 

IF 

3F8 

1016 

PAGEND 

DS 

IF 

3FC 

1020 

PAGENXT 

DS 

IF 

400 

1024 

TRACEFLG 

DS 

IF 

404 

1028 

PSARSV12 

DS 

IF 

408 

1032 

PSARSV15 

DS 

5D 

430 

1072 

INSTWRD1 

DC 

F 1 0 1 

434 

1076 

INSTWRD2 

DC 

F 9 0 9 

438 

1080 

INSTWRD3 

DC 

F 9 0 9 




Time spent in page wait (TOD units) 

Time spent in page wait, x pages waiting 
Total number of user SVCs 

P*1 - Page wait percent, last measurement 
P*2 - Paging rate, pages per second 
End of area cleared by DMKCPINT 
CP running identifier 
CP ABEND code 

Start of save/restored code 

P*3 - device address of system IPL device 

P*4 _ page steals/total replenished 

Address of system VMBLOK 

Address of system printer file chain 

Address of system punch file chain 

Address of system reader file chain 

Address of system punch table 

Address of system printer table 

Address of system reader table 

Reserved for IBM use 

Address of system accounting chain 

VMBLOK address of VIRTUAL=REAL user 

Address of system ABEND printer 

Address of SYSLOCS information 

Address of system operator VMBLOK 

Address of real channel index table 

Address of first RCHBLOK 

Address of first RCOBLOK 

Address of first RDEVBLOK 

Address of count of real system channels 

Address of count of real system control units 

Address of count of real system devices 

Address of system core table 

Address of first pageable program 

CP architecture control and external mask 

Monitor call enable mask 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Trace table flags 

Reserved for IBM use 

Reserved for IBM use 

Reserved for installation use 

Reserved for installation use 

Reserved for installation use 


/ 





43C 1084 INSTWRD4 DC F^ 1 Reserved for installation use 


Pool of frequently used constants: 


440 

1088 

ZEROES 

DC 

6D'0« 


470 

1136 

BLANKS 

DC 

8X•40 1 


478 

1144 

FFS 

DC 

8X* FF 1 

ALSO = -1 

440 

1088 

F0 

EQU 

ZEROES 


480 

1152 

FI 

DC 

F * 1 • 


484 

1156 

F2 

DC 

F 1 2 1 
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4 






488 

1160 

F3 

DC 

F 1 3 1 




48C 

1164 

F4 

DC 

F 1 4 1 




490 

1168 

F5 

DC 

F • 5 1 




494 

1172 

F6 

DC 

F 1 6 1 




498 

1176 

F7 

DC 

F' 7 • 




49C 

1180 

F8 

DC 

F' 8' 




4A0 

1184 

F9 

DC 

F • 9 1 




4A4 

1188 

F10 

DC 

F' 10' 




4A8 

1192 

FI 5 

DC 

F« 15' 

ALSO 

= 

X•0000000F' 

4AC 

1196 

FI 6 

DC 

F* 16' 




4B0 

1200 

F20 

DC 

F' 20' 




4B4 

1204 

F24 

DC 

F' 24« 




4B8 

1208 

F60 

DC 

F' 60' 

ALSO 

= 

X'0000003C' 

4BC 

1212 

F240 

DC 

F'240' 

ALSO 

= 

X' OOOOOOFO * = 

4C0 

1216 

F255 

DC 

F'255' 

ALSO 

= 

X'000000FF 1 

4C4 

1220 

F256 

DC 

F'256« 

ALSO 

= 

X'00000100* 

4C8 

1224 

F4095 

DC 

F'4095' 

ALSO 

= 

X 1 00000FFF' 

4CC 

1228 

F4096 

DC 

F•4096' 

ALSO 

= 

X'00001000' 

4D0 

1232 

APTRLK 

DC 

V (DMKPTRLK) 




4D4 

1236 

ROALD 

DC 

X'FFOOOOOO' 




4D8 

1240 

X40FFS 

DC 

X'40FFFFFF• 




4DC 

1244 

XRIGHT24 

DC 

X'OOFFFFFF' 




4E0 

1248 

XPAGNUM 

DC 

X'00FFF000' 




4E4 

1252 

XRIGHT1 6 

DC 

X'0000FFFF' 




4E8 

1256 

AFREE 

DC 

V(DMKFREE) 




4EC 

1260 

AFRET 

DC 

V (DMKFRET) 




4F0 

1264 

AQCNWT 

DC 

V(DMKQCNWT) 




4F4 

1268 

ADSPCH 

DC 

V (DMKDSPCH) 




4F8 

1272 

APTRAN 

DC 

V(DMKPTRAN) 




4FC 

1276 

X2048BND 

DC 

X'00FFF800• 




500 

1280 

PSAEND 

DS 

OD 

End of 

page 0 usage. 
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RCHBLOK - REAL CHANNEL BLOCK 


0 

f ,_ 1T1 ■■ r, ‘ 1 

|RCHADD |HCHLOCK |R*1 

| T ...... 

|R*2 |RCHBSV1 

—i 

8 

| RCHFIOE | 

1 - - - 

RCHLIOE 


10 

| B*3 | B*4 |B*5 |E*6 | 

1 

BCHBSV2 


18 

1 

| RCHQUFD | 

j _ _ .,_ _ 

RCHOPER 


20 

| RCHCUTBL 

i_ 


_i 


Displacement 

Field 



Hex 

Dec 

Name 



0 

0 

RCHADD 

DS 

1H 

2 

2 

RCHLOCK 

DS 

1H 

4 

4 

RCHSTAT 

DS 

IX 



Bits Defined 

in RCHSTAT 



RCHBUSY 

EQD 

X 1 80 1 



RCHSCED 

EQU 

X^O* 



RCHDISA 

EQU 

X* 20 1 



RCHDED 

EQU 

X«01 1 

5 

5 

RCHTYPF 

DS 

IX 



Bits Defined 

in RCHTYPE 



RCHSEL 

EQU 

X^O* 



RCHBMX 

EQU 

X 1 40 1 



RCHIFA 

EQU 

X 1 81 1 

6 

6 

RCHRSV1 

DS 

1H 

8 

8 

RCHFIOB 

DS 

IF 

C 

12 

RCHLIOB 

DS 

IF 

10 

16 

RCHDTCK 

DS 

IX 

11 

17 

RCHCCCK 

DS 

IX 

12 

18 

RCHIFCC 

DS 

IX 

13 

19 

RCHCHCK 

DS 

IX 

14 

20 

RCHRSV2 

DS 

IF 

18 

24 

RCHQUED 

DS 

IF 

1C 

28 

RCHOPER 

DS 

IF 

20 

32 

RCHCUTEL 

DS 

32H 



RCHSIZE 

EQU 

(♦—RCHBLOK) 


Field DescriptionContents, Meaning 


Channel address 

Channel lock 

R*1 - channel status 

Channel busy 

IOB scheduled on channel 
Channel disabled 
Channel dedicated 

R*2 — Channel type 

Selector channel 

Block—multiplexer channel 

Selector-type integrated file adapter 

Reserved for IBM use 

Pointer to first IOBLOK queued 

Pointer to last IOBLOK queued 

R*3 — channel data check count 

R*4 - channel control check count 

R*5 — interface control check count 

R*6 — channel chaining check count 

Reserved for IBM use 

IOBLOK queued on channel time 

ICBLOK operational on channel time 

Control units attached - RCUSTART index 

/8 RCHBLOK size in doublewords (X'OC 1 ) 








RCUBLOK - REAL CONTROL UNIT BLOCK 


0 

8 

10 

18 

20 


1- 

|RCOftDD |RCULCCK |R*1 

|R*2 |RCDRSV1 

—» 

| RCUFICB | 

RCULICE 


| RCUCHA | 

RCUCHE 


| RCUQUFD | 

RCUOPER 


| RCUEVTBL 


_i 


Displacement 

Field 



Hex 

Dec 

Name 



0 

0 

RCUADD 

DS 

1H 

2 

2 

RCULOCK 

DS 

1H 

4 

4 

RCUSTAT 

DS 

IX 



Bits Defined 

in RCUSTAT 



RCUBUSY 

EQU 

X * 80 1 



RCUSCED 

EQU 

X • 40 1 



RCUDISA 

EQU 

X*2 O' 



RCUDED 

EQU 

X>01' 

5 

5 

RCUTYPF 

DS 

IX 



Bits Defined 

in RCUTYPE 



RCUSHRD 

EQU 

X f 80» 



RCU2701 

EQU 

X‘01' 



RCU2702 

EQU 

X 1 02' 



RCU2703 

EQU 

X 1 03 * 

6 

6 

RCURSV1 

DS 

1 H 

8 

8 

RCUFIOB 

DS 

IF 

C 

12 

RCULIOE 

DS 

IF 

10 

16 

RCUCHA 

DS 

IF 

14 

20 

RCUCHB 

DS 

IF 

18 

24 

RCUQUED 

DS 

IF 

1C 

28 

RCUOPER 

DS 

IF 

20 

32 

RCUDVTEL 

DS 

16H 



RCUSIZE 

EQU 

(♦—RCUBLOK) /8 


Field Description, Contents, Meaning 


Control unit address 

Control unit lock 

R*1 - control unit status 

Control unit busy 
IOB scheduled on control unit 
Control unit disabled 
Control unit dedicated 

R*2 — control unit type 

This control unit can attach to only 1 subchannel 
TCU is a 2701 
TCU is a 2702 
TCU is a 2703 

Reserved for future use 
Pointer to first IjOBLOK queued 
Pointer to last IOBLOK queued 
Pointer to RCHBLOK — interface A 
Pointer to RCHELOK - interface B 
IOBLOK queued on control unit time 
ICBLCK operational on control unit time 
Devices attached - RDVSTART index 

RCUBLOK size in doublewords (X'08«) 
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RCHTASK - TRANSLATED VIBTOAL I /C CCW 


0 

i- - - 

j RCWPNT | RCWVCAW 

1 .. . r _ _ 

—» 

8 

|RCWVCNT |RCWRCNT |RCWHEAD |RCWCCNT 

1 _ .... _ 


10 

1 

| RCWCCW 

i__ 

_i 


Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

RCWPNT 

DS 

IF 

Pointer to next RCWTASK 

4 

4 

RCWVCAW 

DS 

IF 

Virtual address of CCW chain 

8 

8 

RCWVCNT 

DS 

1H 

Virtual CCW count 

A 

10 

RCWRCNT 

DS 

1H 

Real CCW count 

C 

12 

RCWHEAD 

DS 

1H 

RCWTASK header mark X 1 FFFF 1 

E 

14 

RCWCCNT 

DS 

1H 

RCWTASK size in doublewords 

10 

16 

RCWCCW 

DS 

ID 

Cne or more CCWs for device I/O 




ORG 

RCWCCW 


10 

16 

RCWADDR 

DS 

IF 

CCW data address 

14 

20 

RCWFLAG 

DS 

IX 

CCW flag bits 

15 

21 

RCWCTL 

DS 

IX 

CCW CP control bits 



Eits Defined 

in RCWCTL 




RCWIO 

EQU 

X^O 1 

I/C data page locked 



RCWGEN 

EQU 

X • 40 * 

CP generated CCW 



RCWHMR 

EQU 

X 1 20 * 

DMKUNT to relocate home address/record 



RCWREL 

EQU 

X* 10' 

CCW address relocatable if CCWs moved 



RCWISAM 

EQU 

X f 08« 

ISAM modifying CCW 



RCW2311 

EQU 

X f 04« 

TYP2311T—B pseudo 2311 on 2314 



RCWIDA 

EQU 

X • 02' 

CP generated indirect data address 

16 

22 

RCWCNT 

DS 

1H 

CCW byte count 




ORG 

RCWADDR 


10 

16 

RCWCOMND 

DS 

IX 

CCW command code 








RDEVBLOK - REAL DEVICE BLOCK 


0 

RDEVAED |RDEVLOCK 

| B*1 

| R*2 

|R*3 |R*4 

~1 

8 

RDEVFIOB 

1 

RDEVLIOE 


10 

RDEVCUA 

1 

RDEVCUE 


18 

RDEVQUED 




20 

RDEVIOCT 

1 

RDEVAIOB 


28 

RDEVUSER 

|RDEVATT 

|RDEVCYL 


30 

RDEVSER 



|RDEVLNKS 


38 

R | D | E | V 

i t 

1 C 

H3 

t-l 


40 

RDEVTMAT 

|R*5V|R*6 

|R*7 |R*8 


48 

i 

| RDEVICER 

1 

RDEVCTRS 

-J 


Displacement 

Field 




Hex 

Dec 

Rame 



Field Description, Contents, Meaning 

0 

0 

RDEVAED 

DS 

1H 

Device address 

2 

2 

RDEVLOCK 

DS 

1H 

Device lock 

4 

4 

RDEVSTAT 

DS 

IX 

R*1 - Device status 



Bits Defined 

in RDEVSTAT 




RDEVBUSY 

EQU 

X * 80 • 

Device busy 



RDEVSCED 

EQU 

X 8 40 8 

IOB scheduled on device 



RDEVDISA 

EQU 

X 8 20 8 

Device disabled (offline) 



RDEVRSVD 

EQU 

X 1 10* 

Device reserved 



RDEVIRM 

EQU 

X 1 08 1 

Device in intensive error recording mode 



RDEVNRDY 

EQU 

X 1 04 • 

Device intervention required 



RDEVDEE 

EQU 

X 8 01 8 

Dedicated device (attached to a user) 

5 

5 

RDEVFLAG 

DS 

IX 

R*2 - device flags, device dependent 



Bits Defined 

in RDEVFLAG 




RDEVSKUP 

EQU 

X 8 80 8 

DASD — ascending order seek queuing 



RDEVPREF 

EQU 

X 8 40 8 

DASD - volume preferred for paging 



RDEVSYS 

EQU 

X • 20 8 

DASD - volume attached to system 



RDEVOWN 

EQU 

X 8 10 8 

DASD — CP owned volume 



BDEVMOUT 

EQU 

X 8 08 8 

DASD — volume mounted, not attached 



RDEVPSUP 

EQU 

X 8 80 8 

CONSOLE - terminal has print suppress 



RDEVPREP 

EQU 

X 8 40 8 

CONSOLE - terminal executing prepare command 
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RDEVACTV 

EQU 

X^O* 

Console - IOBLOK pending; queue request 



RDEVIDNT 

EQU 

X' 10' 

Console — 2741 terminal code identified 



RDEVENAB 

EQU 

X f 08* 

Console - device is enabled 



RDEVHIO 

EQU 

X* 04 1 

Console - next interrupt from a halt I/O 



RDEVDISB 

EQU 

X* 02’ 

Console — device is to be disabled 



RDEVDRAN 

EQU 

X^O' 

Spooling — device output drained 



RDEVTERM 

EQU 

X* 40 1 

Spooling — device output terminated 



RDEVACNT 

EQU 

X f 20« 

Spooling - device busy with accounting 



RDEVSPAC 

EQU 

X 1 10* 

Spooling - force printer to single space 



RDEVRSTR 

EQU 

X 1 08' 

Spooling — restart current file 



RDEVBACK 

EQU 

X f 04' 

Spooling — backspace the current file 



RDEVSEP 

EQU 

X 1 02 * 

Spooling — print/punch job separator 



RDEVLOAD 

EQU 

X^OI* 

Spooling - UCS buffer verified 

6 

6 

RDEVTYPC 

DS 

IX 

R*3 - device type class (See Appendix C) 

7 

7 

RDEVTYFE 

DS 

IX 

R*4 - device type (See Appendix C) 

8 

8 

RDEVFICB 

DS 

IF 

Pointer to first IOBLOK queued 

C 

12 

RDEVLICB 

DS 

IF 

Pointer to last IOBLOK queued 

10 

16 

RDEVCUA 

DS 

IF 

Pointer to RCUBLOK — interface A 

14 

20 

RDEVCUB 

DS 

IF 

Pointer to RCUBLOK - interface B 

18 

24 

RDEVQUFD 

DS 

ID 

IOBLOK queued time — TOD clock units 

20 

32 

RDEVIOCT 

DS 

IF 

Device I/O count 

24 

36 

RDEVAICB 

DS 

IF 

Active IOBLOK 

28 

40 

RDEVUSER 

DS 

IF 

Pointer to VMBLOK of dedicated user 

2C 

44 

RDEVATT 

DS 

1H 

Attached virtual address 

2E 

46 

RDEVCYL 

DS 

1H 

DASD — current cylinder location 

30 

48 

RDEVSER 

DS 

CL6 

Device volume serial number 

36 

54 

RDEVLNKS 

DS 

1H 

DASD - number of links to this disk 

38 

56 

RDEVTCTL 

DS 

8X 

Terminal control bytes 

40 

64 

RDEVTMAT 

DS 

IF 

Device attached time - TOD clock word 0 

44 

68 

RDEVRSV1 

DS 

IX 

R*5 — Reserved for IBM use 

45 

69 

RDEVSTA2 

DS 

IX 

R*6 - Device status (2nd byte) 



Bits Defined 

in RDEVSTA2 




RDEVRACT 

EQU 

X 1 80 1 

Active device is being reset 



RDEVBUCH 

EQU 

X^O* 

Device is busy with the channel 

46 

70 

RDEVMDL 

DS 

IX 

R*7 — device model number 

47 

71 

RDEVFTR 

DS 

IX 

R*8 - device feature code 

48 

72 

RDEVIOER 

DS 

IF 

Pointer to IOERBLOK for last CP error 

4C 

76 

RDEVCTRS 

DS 

IF 

Pointer to error counter control blok 



RDEVSIZE 

EQU 

(*-RDEVBLOK)/8 

RDEVBLOK size in doublewords (X'OA 1 ) 



For CP owned 

devices 





ORG 

RDEVUSER 


28 

40 

RDEVALLN 

DS 

IF 

Anchor for ALOCBLOK chain for this device 

2C 

44 

RDEVCODE 

DS 

1H 

Device code — SYSOWNED index 




ORG 

RDEVTCTL 


38 

56 

RDEVPAGE 

DS 

IF 

Anchor for RECBLOK chain for paging 

3C 

60 

RDEVRECS 

DS 

IF 

Anchor for RECBLOK chain for spooling 



\ ) 




^ ^ 


40 

64 

RDEVPNT DS 

IF 

Pointer to next RDEVBLOK for allocation 



For slotted 2301 paging devices 



ORG 

BDEVRECS 


3C 

60 

RDEVDCTL DS 

IF 

Pointer to DRUMTABL control block 



For spooling 

unit record 

devices 



ORG 

RDEVQUED 


18 

24 

RDEVSPL DS 

IF 

Pointer to active RSPLCTL block 

1C 

28 

RDEVCLAS DS 

4C 

Device class(es) 



For terminal 

devices 




ORG 

RDEVQUED 


18 

24 

RDEVCON DS 

IF 

Pointer to CONTASK list 

1C 

28 

RDEVAIRA DS 

IF 

Attention interrupt return address 



ORG 

RDEVTCTL 


38 

56 

RDEVLEND DS 

1C 

Device line end symbol 

39 

57 

RDEVLDEL DS 

1C 

Device line delete symbol 

3A 

58 

RDEVCDEL DS 

1C 

Device character delete symbol 

3B 

59 

RDEVESCP DS 

1C 

Device character escape symbol 

3C 

60 

RDEVLLEN DS 

IX 

Device line length 

3D 

61 

RDEVATDC DS 

IX 

Device attention count 

3E 

62 

RDEVTFLG DS 

IX 

Additional terminal flags 



Bits Defined 

in RDEVTFLG 




RDEVATIN EQU 

X'80' 

Attention signalled on input 



RDEVREST EQU 

X f 40' 

Terminal in process of being reset 



RDEVATCF EQU 

X«20' 

Do not type exclamation point or CR 



RDEVCIRD EQU 

X'10' 

Write a circle D to a terminal 

3F 

63 

RDEVRSV3 DS 

IX 

Reserved for IBM use 



ORG 

RDEVMDL 


46 

70 

RDEVTMCD DS 

IX 

Terminal code 



Eits Defined 

in RDEVTMCD 




RDEVPTTC EQU 

X'OO' 

PTTC/EBCD 



RDEVCOBR EQU 

X' 04' 

Correspondence 



RDEVAPLP EQU 

X' 08' 

APL PTTC/EBCD 



RDEVAPLC EQU 

X'OC' 

APL Correspondence 



RDEVUSC8 EQU 

X 1 10' 

UASCII—8 level 

47 

71 

RDEVSADN DS 

IX 

Terminal set—address number 
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RECBLCK - DASD PAGE (SLOT) ALLOCATION BLOCK 


r—- — -1 

0 | BECPNT | BECCYL |B*1 | B*2 | 

, -- --| 

8 | BECMAP | 

i___i 


Displacement 
Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

BECPNT 

DS 

IF 

Pointer to next RECBLOK on chain 

4 

4 

RECCYL 

DS 

1H 

Cylinder address for pages in this block 

6 

6 

BECUSED 

DS 

IX 

R*1 - Number of pages currently in use 

7 

7 

RECMAX 

DS 

IX 

R*2 — Maximum number of pages available 

8 

8 

RECMAP 

DS 

ID 

Page allocation bi,t map 



Bits Defined 

in RECMAP 



0 — Page is available 
1 — Page has been assigned 

RECSIZE EQU (*—RECBLOK)/8 RECBLOK size in doublewords (X l 02 l ) 

No te ; Although the size of BECMAP is fixed, the maximum number of pages available on a cylinder 
is device dependent. For any pages that are not physically present on a cylinder, their 
corresponding bits are set to one. 



ton oo^o 


RSPLCTL - REAL SPOOL CONTROL BLOCK 


0 

8 

10 


Displacement 
Hex Dec 

0 
4 
8 

12 
16 
20 


1— 

RSPRSTRT 

| RSPDPAGE 



RSPVPAGE 

| RSPRPAGE 



RSPMISC 

| RSPSFELK 

_i 

Field 


Name 



Field Description, Contents, Meaning 

RSPRSTRT 

DS 

IE 

Restart CAW — CCW address 

RSPDPAGE 

DS 

IF 

DASD location (DCHR) of current page buffer 

RSPVPAGE 

DS 

IF 

Virtual address of page buffer 

RSPRPAGE 

DS 

IF 

Real address of page buffer 

RSPMISC 

DS 

IF 

Use varies according to caller 

RSPSFBLK 

DS 

IF 

Pointer to SFBLOK for file 

R SP SIZE 

EQU 

(*—RSPLCTL)/8 

Size in doublewords (X 1 03•) 


Data Areas — Control Blocks 
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SAVBA BEA 


0 

•— 
i 

SAVERETN 

| SAVER 12 

- , 

8 

i 

SAVER13 

| SAVEHRK1 


10 

i 


SAVEREGS 


40 

i 

SAVEWRK2 

| SAVEWRK3 


48 

i 

SAVEWRK4 

| SAVEWRK5 


50 

i 

SAVEWRK6 

| SAVEHRK7 


58 

i 

i_ 

SAVEWRK8 

| SAVEHRK9 

__1 


Displacement 

Hex Dec 

Field 

Dame 



Field Description, Contents, Meaning 

0 

0 

SAVERETN 

DS 

IF 

Active SAVEAREA (caller's return 

address) 




ORG 

SAVERETN 




0 

0 

SAVENEXT 

DS 

IF 

Inactive 

SAVEAREA (next SAVEAREA 

address) 

4 

4 

SAVER 12 

DS 

IF 

Caller 1 s 

base (R12) 


8 

8 

SAVER 1 3 

DS 

IF 

Caller's 

SAVEAREA (R13) 


C 

12 

SAVEBRK1 

DS 

IF 

Callee's 

workarea 


10 

16 

SAVEREGS 

DS 

12F 

Caller's 

registers (R0 TO R11) 





ORG 

SAVEREGS 




10 

16 

SAVERO 

DS 

IF 




14 

20 

SAVER 1 

DS 

IF 




18 

24 

SAVER2 

DS 

IF 




1C 

28 

SAVER3 

DS 

IF 




20 

32 

SAVER4 

DS 

IF 




24 

36 

SAVER5 

DS 

IF 




28 

40 

SAVER6 

DS 

IF 




2C 

44 

SAVER7 

DS 

IF 




30 

48 

SAVER8 

DS 

IF 




34 

52 

SAVER9 

DS 

IF 




38 

56 

SAVER10 

DS 

IF 




3C 

60 

SAVER 11 

DS 

IF 




40 

64 

SAVEWRK2 

DS 

IF 

Callee's 

workarea (8 words) 


44 

68 

SAVEWRK3 

DS 

IF 




48 

72 

SAVEWRK4 

DS 

IF 




4C 

76 

SAVEHRK5 

DS 

IF 






( 








54 

84 

SAVEWRK7 

DS 

IF 

58 

88 

SAVEWRK8 

DS 

IF 

5C 

92 

SAVEWRK9 

DS 

IF 


SAVESIZE EQU (*-SAVEAREA)/8 size in doublewords (X'OC') 


Data Areas 


Control Blocks 555 



0 
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j 


Field Description, Contents, Meaning 

PSW of virtual machine at SAVSYS table 
General registers 
Floating-point registers 
Control registers 

Two byte entry for each saved page containing storage keys 
for each page 


I 

I 

I 

___i 


Field Description, Contents, Meaning 
Pointer to page table — PAGTABLE 


S*1 — page table length (pages — 1) 
(in left half of byte) 


/ \ 














SFBLOK - SPOOL FILE BLOCK 


0 

8 

10 

18 

20 

28 

34 

40 

48 

50 

58 


1- 

| SFBPNT 

T 

| SFBSTART | 

i 


SFEUSER 



SFECRIG 


| SFERECNO 

i _,_ 

|SFBRECSZ 

|SFEFILID | 

i i 

|S*1 |S*2 |SFBMISC1 | SFBRECS | 

i i 

i----— 

SFEFNAME 



SFEFTYPE 



SFEEATF 



SFETIMF 


| SFELAST 

|SFBCOPY 

|S*3 |S*4 | 

i_ 

SFEEIST 



Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

SFBPNT 

DS 

IF 

Pointer to next SFBLOK 

4 

4 

SFBSTART 

DS 

IF 

DASD location (DCHR) of last page buffer 

8 

8 

SFBUSER 

DS 

CL8 

VMUSER identification of file owner 

10 

16 

SFBORIG 

DS 

CL8 

VMUSER identification of file origin 

18 

24 

SFBRECNO 

DS 

IF 

Number of data records in file 

1C 

28 

SFBRECSZ 

DS 

1H 

Logical record size — excluding CCW's 

IE 

30 

SFBFILID 

DS 

1H 

Binary system file number 

20 

32 

SFBFLAG 

DS 

IX 

S*1 - SFBLOK control bits 



Bits Defined 

in SFBFLAG 




SFBINUSE 

EQU 

X^O* 

File being processed 



SFBRECCK 

EQU 

X f 40« 

Allocation records complete 



SFBUHOLD 

EQU 

X 1 20 1 

File in user hold status 



SFBDUMP 

EQU 

X 1 10* 

File is a CP system dump 



SFBOPEN 

EQU 

X* 08• 

Input file has been opened 



SFBSHOID 

EQU 

X 1 04 1 

File in system hold status 



SFBEOF 

EQU 

X 1 02 1 

Input file has reached EOF 



SFBRECFR 

EQU 

X«01' 

SFBREC chain incomplete bgjpi S f< 

21 

33 

SFBTYPE 

DS 

IX 

S*2 - device type for output / 


Data Areas 
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| 22 

34 

SFBMISC1 DS 

1H 

24 

36 

SFBRECS DS 

IF 

28 

40 

SFBFNAME DS 

CL 12 

34 

52 

SFBFTYPE DS 

CL 12 

40 

64 

SFBEATE DS 

CL8 

48 

72 

SFBTIME DS 

CL8 

50 

80 

SFBLAST DS 

IF 

54 

84 

SFBCOPY DS 

1H 

56 

86 

SFBCLAS DS 

1C 

! 57 

87 

SFBFLAG2 DS 

IX 

I 


Bits Defined 

in SFBFLAG2 



SFBHOLD EQU 

X^O' 

j 


SFBNOHID EQU 

X 1 40 • 



SFBHOLD and : 

SFBNHOLD 



SFBREQUE EQU 

X * 20 1 



SFBRSTRT EQU 

X' 10' 



SFBTICER EQU 

X 1 08 1 

|; i 


SFBPURGE EQU 

X 1 04 1 

58 

88 

SFBDIST DS 

CL8 



SFBSIZE EQU 

(*—SFBLOK)/8 


Use varies according to caller 0 

Pointer to RECBLOKS for active file 0 
File name 

File type / 

Creation date of spool file frjt-fif$ 

Creation time of spool file ; K-h'* j 

DASD location (DCHR) of last page buffer £>' ^ ^ v 

Number of copies requested 

S*3 - Spool output class 

S*4 - SFBLOK flag byte two 

■ ■'> 

Save input file, or hold output file 

Delete input file, or do not hold ouput file 

Override options in VDEVBLOK 

Re—queue spool file 

Restart in progress 

Buffer TIC error 

Purge open spool file 

Distribution code r 

Size in doublewords (X 1 0C 1 ) ^ ^o y \ ' ■> / •> Q 


SH QBL CK - SPOOL HOLD £UEUE BLOCK 


i- 

1 

i 

SHQPNT 

| V*1| V*2| SPABE 

i 

_I 

1 

i 

i_ 


SHQUSER 

— 1 
i 

_ i 


Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

SHQPNT 

DS 

IF 

Address of next SHQBLOK 

4 

4 

SHQFLAGS 

DS 

0CL4 

Length 

4 

4 

SHQUHOLD 

DS 

IX 

V*1 user 'USER HOLD 1 flag byte 

5 

5 

SHQSHOLD 

DS 

IX 

V*2 user •SYSTEM HOLD' flag byte 

6 

6 

SHQSPARE 

DS 

2X 

Spare 

8 

8 

SHQUSER 

DS 

CL8 

VMUSER identification of file owner 



SHQBSIZE 

EQU 

(♦—SHQBLOK)/8 

Size in doublewords (X'02 1 ) 



Bits Defined 

in SHQUHOLD and 

SHQSHOLD 



TYPPRT 

is 

used for printer 

type. (See Appendix C for DEVTYPES) 


TYEPUN is used for punch type. (See Appendix C for DEVTYPES) 




f-s 




SHRTABLE - NAMED^SHARFD SEGMENT SYSTEMS 


0 

i--- 

| SHRFPNT | 

i . . ... ... 

SHRBPNT 


8 

1 

| SHRNAME 

i . - _ _ _ . _... 



10 

j SHRTSIZE| SHRUSECTI 

i _ 

SHRSEGCT 


18 

1 w — 

| SHRSEGNM | 

i_ 

SHRPAGE 



Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

SHRFPNT 

DS 

IF 

Pointer to next SHRTABLE 

4 

4 

SHREPNT 

DS 

IF 

Pointer to previous SHRTABLE 

8 

8 

SHRNAME 

DS 

CL8 

Name cf saved system 

10 

16 

SHRTSIZE 

DS 

1H 

Size of SHRTABLE in doublewords 

12 

18 

SHRUSECT 

DS 

1H 

Number of users IPLed to this name 

14 

20 

SHRSEGCT 

DS 

IF 

Number of shared segments 


18 

24 

SHRSEGNM 

DS 

IF 

Contains shared segment 
per word. 

numbers. Up to four segment numbers 

1C 

28 

SHRPAGE 

DS 

IF 

Pointers to each of the 

shared SEGTABLES. There is one word 


for each shared segment. The entry is the same as S*1 
SEGPAGE in the SEGTABLE. 


SP LIN K - SPOOL PAGE BUFFER LINKAGE 



SPNXTPAG 

| SPPREPAG 

--1 


SPRMISC 

| SPRECNUM 


i_ 

Spool 

Buffer Data 



Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

SPNXTPAG 

DS 

IF 

LASD location (DCHR) of next page buffer 

4 

4 

SPPREPAG 

DS 

IF 

DASD location (DCHR) of previous page buffer 

8 

8 

SPRMISC 

DS 

IF 

Use varies according to caller 

C 

12 

SPRECNUM 

DS 

IF 

Number of data records in buffer 



SPSIZE 

EQU 

(♦-SPLINK) 

Size in bytes (XMO 1 ) 


^^1 


Data Areas 
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SWPTABLE - SWAP TAELE FOB VI RTU AL MACHINE PAGING 


1- 

| SWPVM | 

i _ . .,.. . ... 

T 

| SWPPAG | 

. __ .. . . , _ i 

i 

|S*1 ]S*2 |S*3 |S*4 1 

■■ 1 

| SWPCYL |S*6 |S*7 | 


Displacement Field 

Hex Dec Name 


0 

0 

SWPVM 

DS 

IF 

4 

4 

SWPPAG 

DS 

IF 

8 

8 

SWPFLAG 

DS 

IX 



Bits Defined 

in SWPFLAG 



SWPTRANS 

EQU 

X * 80 • 



SWPRECMP 

EQU 

X 1 40 • 



SWPALLCC 

EQU 

X^O* 



SWPSHR 

EQU 

X' 10 • 



SWPREF1 

EQU 

X f 08* 



SWPCHG1 

EQU 

X 1 04' 



SWPREF2 

EQU 

X 1 02 1 



SWPCHG2 

EQU 

X«01» 

9 

9 

SWPVPAGE 

DS 

IX 

A 

10 

SWPKEY1 

DS 

IX 

B 

11 

SWPKEY2 

DS 

IX 

C 

12 

SWPCYL 

DS 

1H 

E 

14 

SWPDPAGE 

DS 

IX 

F 

15 

SWPCODE 

DS 

IX 


Field Description, Contents, Meaning 


Pointer to VMBLOK 
Pointer to PAGTABLE 
S*1 - SWPTAELE flag bits 

Page in transit 
Page permanently assigned 
Page engueued for allocation 
Page shared 

First half page referenced 
First half page changed 
Second half page referenced 
Second half page changed 

S*2 — virtual page number 
S*3 - virtual storage key 
S*4 - virtual storage key 
EASD cylinder address 
S*6 —• Page number on cylinder 
S*7 - RDEVBLOK device code 


Note: For each SWPTABLE there is only one doubleword that consists of SWPVM and SWPPAG 
by 16 entries (one for each PAGTABLE entry) that consist of S*1, S*2, S*3, S*4 

S*6 and S*7. Thus, the total size of the SWPTAELE is 17 doublewords. 


followed 
SWPCYL, 





SYSLOCS - SYSTEM LCW STOPAGE INFORMATION 


0 

i- 

| DMKSYSDT | DMKSYSTM 

i 

10 

i 

i 

1 , _ 

DMKSYSLW | DMKSYSLG 


20 

|DMKSYSNM 

i _ 

|DMKSYSMA|DMKSYSMU| DMKSYSND 


30 

i'dmksyslb 

|DMKSYSUD|DMKSYSPL| 


40 

1 

1 ,. 

DMKSYSDH |# | |Z |3 |" 


50 

| S*1 j 

L 

| DMKSYSCK| 

.j 


Displacement 

Field 


Hex 

Dec 

Name 


0 

0 

DMKSYSDT 

DC 

8 

8 

DMKSYSTM 

DC 

10 

16 

DMKSYSLW 

DC 

1C 

28 

DMKSYSLG 

DC 

20 

32 

DMKSYSNM 

DC 

24 

36 

DMKSYSMA 

DC 

28 

40 

DMKSYSMU 

DC 

2C 

44 

DMKSYSND 

DC 

30 

48 

DMKSYSLB 

DC 

34 

52 

DMKSYSUD 

DC 

38 

56 

DMKSYSPL 

DC 

3C 

60 


DC 

40 

64 

DMKSYSDW 

DC 

4C 

76 

DMKSYSLE 

DC 

4D 

77 

DMKSYSLD 

DC 

4E 

78 

DMKSYSCD 

DC 

4F 

79 

DMKSYSFS 

DC 

50 

80 

DMKSYSLL 

DC 

53 

83 


DC 

58 

88 

DMKSYSCK 

DC 


Field Description, Contents, Meaning 


CL8•MM/DD/YY• Date of system log message 

CL8•HH:MM:SS * Time of system log message 

X 1 00•,X•00 1 ,CL10 1 1 Weekday of system log message 

A (0) Pointer to first leg message block 

F * 0' Current number of users on the system 

F•0 1 Maximum number of users allowed on 

F'O* Maximum number of users on the system 

F'O 1 Number of dialed users on the system 

A (0) Eointer to user directory lock block 

A (0) Pointer to start of user directory on SYSRES 

A (0) Pointer to a list of virtual page buffers 

A (0) Reserved for IEM use 

X'OO*,X'00 # ,CL10' • Day—of—week in Hex. and EBCDIC 

X•7B 1 # default line—end (pound—sign) 

X • 4 A 1 2 default line-delete (cent-sign) 

X 1 7C • a) default character—delete (at—sign) 

X 1 7F' ” default edit escape (double-guote-mark) 

AL1 (130,129,72) S* 1 Default line lengths for 3210 & 3215 - 2741 8 1050 - 
TTY terminals 

XL5 1 0 1 Reserved for IBM use 

D•0' Time—of-day clock value last stored by accounting, DUMP or 

machine check 


Data Areas 
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SYSTABLE - NAMED SYSTEM TABLE 


10 


18 


20 


28 


30 


SYSPNT 


SYSSIZE 


SYSNAME 


VSYSRES 


| SYSVADDR 


SYSVOL 


| SYSCYL 


SYSSTART 


SYSPAGCT 


SYSPAGLN| 


SYSPAGNM 


SYSSEGLN| 


SYSHRSEG 


Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

SYSPNT 

DS 

IE 

Chain pointer to next entry 

4 

4 

SYSSIZE 

DS 

IF 

Minimum storage size needed to run system 

8 

8 

SYSNAME 

DS 

CL8 

System name 

10 

16 

VSYSRES 

DS 

CL6 

Volume serial of DASD containing user's system 

16 

22 

SYSVADDR 

DS 

1H 

Virtual address of VSYSRES 

18 

24 

SYSVOL 

DS 

CL6 

Volume serial of DASD containing saved pages 

IE 

30 

SYSCYL 

DS 

1H 

Cylinder on VSYSRES of user's system same as VDEVRELN 

20 

32 

SYSSTART 

DS 

IF 

CCPD of first page on SYSVOL 

24 

36 

SYSPAGCT 

DS 

IF 

Total number of pages saved 

28 

40 

SYSPAGLN 

DS 

1H 

Number of entries in SYSPAGNM 

2C 

44 

SYSPAGNM 

DS 

IF 

One full word entry for each range of pages to be saved 

30 

48 

SYSSEGLN 

DS 

1H 

Numbers of entries in SYSHRSEG 

32 

50 

SYSHRSEG 

DS 

IX 

One byte for each segment to be shared 











TREXT - VIRTUAL MACHINE TRACING EXTENSION TO VMELOK 


0 

r 

1 

TREXINI 

| TREXIN2 

~i 

8 

1 

TREXSVC1 | TREXSVC2 | S*1 | S*2 | TREXLOCK 


10 

1 

TREXPERA 

| TREXPERC | TREXLCNT 


18 

1 

TREXANSI 

| TREXCR9 


20 

1 

TREXCR10 

| TREXCR11 


28 

1 

L 


TREXBUFF 

.j 


Displacement 

Field 



Hex 

Dec 

Name 



0 

0 

TREXIN1 

DS 

IF 

4 

4 

TREXIN2 

DS 

IF 

8 

8 

TREXSVC1 

DS 

1H 

A 

10 

TREXSVC2 

DS 

1H 




ORG 

TREXIN1 

0 

0 

TREXPSW 

DS 

ID 

8 

8 

TREXINTL 

DS 

1H 

A 

10 

TREXINTC 

DS 

1H 

C 

12 

TREXFLAG 

DS 

IX 



Bits Defined 

in TREXFLAi 



TREXRUN 

EQU 

X 1 80 1 



TREXVAT 

EQU 

X # 40» 

D 

13 

TREXOUT 

DS 

IX 



Eits Defined 

in TREXOUT 



TREXPRT 

EQU 

X • 80 1 



TREXCON 

EQU 

X 1 40* 

E 

14 

TREXLOCK 

DS 

1H 

10 

16 

TREXPERA 

DS 

IF 

14 

20 

TREXPERC 

DS 

1H 

16 

22 

TREXLCNT 

DS 

1H 

18 

24 

TREXANSI 

DS 

1A 

1C 

28 

TREXCR9 

DS 

OF 



TREXPER 

DS 

XL2 

IE 

30 

TREXPREG 

DS 

1H 

20 

32 

TREXCR10 

DS 

IF 

24 

36 

TREXCR 11 

DS 

IF 


Field Description, Contents, Meaning 


First address — replaced instruction 
Second address - replaced instruction 
Displaced halfword — instruction one 
Displaced halfword — instruction two 


Old PSW for pending SVC interrupt 
Instruction length code 
Interruption code for pending interrupt 
S*1 - tracing control flags 

Prevent CFWAIT between events 

Call DMKVATRN to put back virtual instruction 

S*2 — trace output controls 

Output to the virtual printer 
Output to user terminal 

Indicates tracing when set 
PER event address cn interrupt 
PER code bits from hardware event 
Printed output line count 

Address of next (or last) sequential instruction 
Shadow control registers for PER trace 
PER control field 
PER register mask field 
Address range start value 
Address range ending value 


Data Areas 
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28 

40 

TREXBUFF 

DS 

10D 

Console/printer output buffer (80 bytes) 



TREXSIZE 

EQU 

(*-TREXT)/8 

TREXT size in doublewords (X^F 1 ) 




ORG 

TREXPERA 

Re-Definition for TRACE use 

10 

16 

TREXNSI 

DS 

6X 

Actual next (or last) sequential instruction 




ORG 

TREXCR9 

Re—definition for TRACE use 

1C 

28 

TREXCTL 

DS 

OH 

Halfword holding tracing control bits: 



TREXCTL1 

DS 

IX 

First byte = same as VMTRCTL in VMBLOK 

ID 

29 

TREXCTL2 

DS 

IX 

Second byte = remaining control bits 



Eits Defined 

in TREXCTL2: 



TREXCCW 

EQU 

X*80» 

TRACE virtual and real CCWs 



TREXCSW 

EQU 

X^O 1 

TRACE virtual and real CSWs 



TREXBRAN 

EQU 

X^O* 

TRACE successful branches 



TREXINST 

EQU 

X'10' 

TRACE all instructions 

IE 

30 

TREXPRNT 

DS 

1H 

Printer flagbits corresponding to TREXCTL 

20 

32 

TREXTERM 

DS 

1H 

Terminal flagbits corresponding to TREXCTL 

22 

43 

TREXRUNF 

DS 

1H 

Run/norun flagbits corresponding to TREXCTL 

24 

45 

TREXPNTR 

DS 

IE 

Pointer to 1st stacked TRACE reguest, if any 


TR QB LOK - TIMER REQUEST ELOCK 


i 

i 


TRQBVAL 


-, 

1 

1 

i 

i 

TRQBFPNT 

i 

TRQBBPNT 

1 

i 

i 

| TRQBTOD | 

i i 

i 

i 

i_ 

TRQBUSER 

i 

TRQEIRA 

i 

_j 


Displacement 

Field 


Hex 

Dec 

Name 


0 

0 

TRQBVAL DS 

ID 

8 

8 

TRQBFPNT DS 

IF 

C 

12 

TRQEBPNT DS 

IF 

10 

16 

TRQBTOD DS 

ID 

18 

24 

TRQBUSER DS 

IF 

1C 

28 

TRQBIRA DS 

IF 


Field Description, Contents, Meaning 


TCD clock comparator value for interrupt 

Pointer to next TRQBLOK 

Pointer to previous TRQBLOK 

TCD clock value when TRQBLOK is queued 

Address of VMBLOK for user 

Interrupt return address 


TRQBSIZE EQU (*—TRQBLOK)/8 Size in doublewords (X * 04•) 










UD BFBLOK - USER DIRECTOR Y BUFFER BLOCK 


0 \ 

J_ 


UDBFWORK 

—i 

i 

30 i 

UDBFVADD 

| UDBFDASD 

i 

_i 


Displacement 

Field 


Hex 

Dec 

Name 


0 

0 

UDBFWORK DS 

6D 

30 

48 

UDBFVADD DS 

IF 

34 

52 

UDBFDASD DS 

IF 



UDBFSIZE EQU 

(♦—UDBFBLOK) 


UDEVBLOK - USER DEVICE BLOCK 


Field Description, Contents, Meaning 


Buffer work space used by the caller 
Virtual address of the last directory page 
DASD address of the last directory page 

/8 UDBFBLOK size in doublewords (X'O? 1 ) 


0 

i- 

| UDEVADD 

i - . - _ -_ 

|UDEVDISP | UDEVDASD 

—i 

8 

'|U*1 10*2 
■ 

|0*3 |0*4 |0*5 |0*6 |DDEVNCYL 


10 

|UDEVRELN 

I . _ . 

| UDEVVSER 


18 

1 

i 

I 

UDEVPASR 


20 

1 

i 

I. _ T . 

UDEVPASW 


28 

1 

1 

L_-_ 

UDEVPASM 

—i 


Displacement 
Hex Dec 


0 

2 

4 

8 


0 

2 

4 

8 


Field 

Name 

UDEVADD DS 
UDEVDISP DS 
UDEVDASD DS 
UDEVSTAT DS 
Bits Defined 
UDEVDED EQU 
UDEVTDSK EQU 
UDEVLONG EQU 
UDEVLKDV EQU 
UDEVSPOO EQU 


1H 
1H 
IF 
IX 

in UDEVSTAT 
X 1 80* 
X^O 1 
X^O* 

X 1 10* 

X* 08 1 


Field Description, Contents, Meaning 

Virtual device address 
Displacement of the next UDEVBLOK 
DASD address of the next UDEVBLOK 
U*1 — status information 

Device to be dedicated to this user 
TDISK to be allocated 

Device block is full length (6 doublewords) 
Device is to be linked (at LOGON time) 
Device is a spool device 
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9 

9 

UDEVMODE 

DS 

IX 

0*2 - access mode information 




Bits Defined 

in ODEVMODE 





UDEVLR 

EQO 

X 1 80* 

Read links allowed 




UDEVLW 

EQO 

X f 40 • 

Write links allowed 




UDEVLM 

EQO 

X^O' 

Multiple—write links allowed 




UDEVR 

EQO 

0 

Device to be in R link mode for 

owner 



UDEVRR 

EQO 

4 

Device to be in RR link mode for 

owner 



UDEVW 

EQO 

8 

Device to be in W link mode for < 

owner 



UDEVWR 

EQO 

12 

Device to be in WR link mode for 

owner 



UDEVM 

EQO 

16 

Device to be in M link mode for 

owner 



UDEVMR 

EQO 

20 

Device to be in MR link mode for 

owner 



UDEVMW 

EQO 

24 

Device to be in MW link mode for 

owner 

A 

10 

UDEVTYPC 

DS 

1C 

U*3 — device class 


B 

11 

UDEVTYPE 

DS 

1C 

U*4 — device type 


C 

12 

UDEVFTR 

DS 

1C 

U*5 - device feature mode 


D 

13 

UDEVMDL 

DS 

1C 

U*6 — device model number 


E 

14 

UDEVNCYL 

DS 

1H 

Virtual DASD size 


10 

16 

UDEVRELN 

DS 

1H 

Virtual DASD cylinder relocation 


12 

18 

UDEVVSER 

DS 

6C 

Volume serial number 


18 

24 

UDEVPASR 

DS 

ID 

Password for read access 


20 

32 

UDEVPASW 

DS 

ID 

Password for write access 


28 

40 

UDEVPASM 

DS 

ID 

Password for multiple access 




UDEVSIZE 

EQO 

(♦-UDEVBLOK) /8 

UDEVBLOK size in doublewords 





ORG 

UDEVMDL 



D 

13 

UDEVCLAS 

DS 

1C 

User device block (Short) 


E 

14 

UDEVLINK 

DS 

1H 

U*6 — unit spool output class 


10 

16 

UDEVLKID 

DS 

ID 

User link to USERID 



UDIRBLOK - USER D IRE CTORY BLOCK 


0 

i- 

|UDIRRSV1 

i 

[UDIRDISP | 

-----i 

UDIRDASD | 

i 

8 

i 

i 

i- 

i 

i_ 

UDIRUSER 

1 

i 

10 

UDIRPASS 

--— [ 

1 

___„j 

Displacement 
Hex Dec 

Field 

Name 


Field Description, Contents, Meaning 


0DIRRSV1 DS 
UDIRDISP DS 


0 

2 


1 H 

1H 


Reserved for IBM use 
Displacement of the user UMACBLOK 




4 

4 

UDIRDASD DS 

IF 

DASD address of 

the user UMACBLOK 

8 

8 

UDIRUSER DS 

ID 

USERID 


10 

16 

UDIRPASS DS 

ID 

User password 




UDIRSIZE EQU 

(♦-UDIRBLOK) /8 

UDIRBLOK size in 

doublewords (X'03*) 


UD LKBL QK - USER DIRECTORY LOCK BLOCK 


i - 

1 

1 

UDLKNEXT 

| UDLKRSV1 

-1 

1 

_| 

1 

i_ 


UDLKNAME 

i 


Displacement 

Hex Dec 

Field 

Name 


Field Description, Contents, 

Meaning 

0 

0 

UDLKNEXT DS 

IF 

Pointer to the next lock block 

4 

4 

UDLKRSV1 DS 

IF 

Reserved for IBM use 


8 

8 

UDLKNAME DS 

ID 

The name locked 




UDLKSIZE EQU 

(♦-UDLKBLOK) /8 

UDLKBLOK size in doublewords 

(X f 02*) 


UMACBLOK - USER MACHINE BLOCK 


0 

i -- 

|UMACDVCT 

| UMACDISP | 

UMACDASD 

- , 

8 

| 

'|U*1 |U*2 
■ 

| U*3 |U*4 |U*5 

|U*6 |U*7 

| U*8 i 

10 

i UMACCORE | 

i 

UMACMCOR 


18 

i 

i 

i _ 

UMACACCT 



20 

1 

i 

i 

UMACDIST 



28 

I 

i 

i _ 

UMACIPL 


_1 


Displacement Field 

Hex Dec Name 


Field Description, Contents, Meaning 


0 0 UMACDVCT DS 1H 

2 2 UMACDISP DS 1H 


Number of devices 

Displacement of the user*s first UDEVBLOK 
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4 

OMACDASD 

DS 

IF 

DASD address of the user's first UDEVBLOK 

8 

UMACCLEV 

DS 

1C 

U*1 — command level 


Bits Defined 

in UMACCLEV 



UMACCLA 

EQU 

X'80' 

Class A functions 


UMACCLB 

EQU 

X f 40* 

Class B functions 


UMACCLC 

EQO 

X 1 20' 

Class C functions 


OMACCLD 

EQU 

X 1 10* 

Class D functions 


UMACCLE 

EQO 

X 1 08* 

Class E functions 


UMACCLF 

EQU 

X* 04* 

Class F functions 


UMACCLG 

EQU 

X« 02 1 

Class G functions 


DMACCLH 

EQU 

X'01« 

Class H functions 

9 

UMACPRIR 

DS 

IX 

U*2 - priority 

10 

UMACOPT 

DS 

IX 

U*3 — virtual machine options 


Bits Defined 

in UMACOPT 



UMACISAM 

EQU 

X'SO* 

ISAM CCW checking option 


UMACECOP 

EQU 

X'40 1 

Extended control mode option 


UMACRT 

EQU 

X f 20* 

Real timer option 


UMACVROP 

EQU 

X f 10* 

Virtual = Real storage option 


UMACACC 

EQU 

X f 08* 

Accounting card option 

11 

UMACRSV1 

DS 

1C 

U*4 — Reserved for IBM use 

12 

UMACLEND 

DS 

1C 

U*5 - Terminal line end symbol 

13 

UMACLDEL 

DS 

1C 

U*6 — Terminal line delete symbol 

14 

UMACCDEL 

DS 

1C 

U*7 - Terminal character delete symbol 

15 

UMACES 

DS 

1C 

U*8 - Edit escape symbol 

16 

UMACCORE 

DS 

IF 

Virtual storage size in bytes 

20 

UMACMCOR 

DS 

IF 

Maximum virtual storage size in bytes 

24 

UMACACCT 

DS 

ID 

Accounting information 

32 

UMACDIST 

DS 

ID 

User machine distribution information 

40 

UMACIPL 

DS 

ID 

Name of system to be IPLed at LOGON time 


UMACSIZE 

EQU 

(♦-UMACBLOK) /8 

UMACBLOK size in doublewords (X'Ob 1 ) 







VCHBLOK - VIRTUAL CHANNEL BLOCK 


0 

i--— - - — 

IVCHABD |VCHCUINT |VCHCEDEV 

1 

|V*1 |V*2 | 


8 

1 

| VCHCUTBL 

L . . _ .... . . 

1 


Displacement 
Hex Dec 

Field 

Name 

Field Description, Contents, 

Meaning 

0 0 

2 2 

VCHADD DS 1H 

VCHCUINT DS 1H 

Virtual channel address 
VCUBLCK with interrupt - bit 

map 


VCHCEDEV DS 
VCHSTAT DS 


1H 
IX 


Bits Defined in VCHSTAT 
VCHBUSY EQU X f 80» 

VCHCEPND EQU X^O* 

VCHDED EQU X'OI* 


Virtual device address with channel class interrupt 
V*1 — virtual channel status 

Virtual channel busy 

Virtual channel class interrupt pending 
Virtual channel dedicated 


VCHTYPE DS 
Bits Defined 
VCHSEL EQU 
VCHBMX EQU 


IX 

in VCHTYPE 
x'80* 

X 1 40 • 


V*2 - Virtual channel type 

Virtual selector channel 
Virtual block multiplexor 


VCHCUTEL DS 


16H 


Control units attached - VMCUSTRT index 


VCHSIZE EQU (*—VCHBLOK)/8 VCHBLOK size in doublewords (X # 05») 
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VCONCTL - VIRTUAL CONSOLE CONTROL ELOCK 


0 

i 

VCONCAW 

1 

VCONBUF 


8 

i 

1 - -r 


VCONCCW 



10 

|V*1 

1 _ 

| V*2 |V*3 

| V*4 | 

VCONIDAP 

-- 1 


Displacement 

Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

VCONCAW 

DS 

IF 

Virtual address of user CCW 

4 

4 

VCONBUF 

DS 

IF 

Pointer to data buffer 

8 

8 

VCONCCW 

DS 

ID 

Current user CCW 

10 

16 

VCONRSV1 

DS 

IX 

V*1 - Reserved for IBM use 

11 

17 

VCONBFSZ 

DS 

IX 

V*2 — Data buffer size in doublewords 

12 

18 

VCONRSV2 

DS 

IX 

V*3 - reserved for IBM use 

13 

19 

VCONRSV3 

DS 

IX 

V*4 - reserved for IBM use 

14 

20 

VCONIDAP 

DS 

IF 

For IDA pointer to current IDAW 



VCONSIZE 

EQU 

(*-VCONCTL)/8 

VCONCTL size in doublewords (X* 03*)' 




ORG 

VCONCCW 


8 

8 

VCONADDR 

DS 

IF 

CCW data address 

C 

12 

VCONFLAG 

DS 

IX 

CCW flag bits 

D 

13 

VCONRSV4 

DS 

IX 

Reserved for IBM use 

E 

14 

VCONCNT 

DS 

1H 

CCW byte count 




ORG 

VCONADDR 


8 

8 

VCONCOMD 

DS 

IX 

CCW command code 







?COBLOK - VIRTUAL CONTROL UNIT BLOCK 


0 IVCOADD IVCUDVINT |VCUINTS |V*1 | V*2 | 


I- 

8 | 


VCUDVTBL 


Displacement Field 

Hex Dec Name 


Field Description, Contents, Meaning 


0 

0 

VCUADD 

DS 

1H 

Virtual control unit address 

2 

2 

VCODVINT 

DS 

1H 

VDEVBLOK with interrupt — bit map 

4 

4 

VCUINTS 

DS 

1H 

Virtual control unit interrupt status 

6 

6 

VCUSTAT 

DS 

IX 

V*1 - virtual control unit status 



Bits Defined 

in VCUSTAT 




VCUCHBSY 

EQU 

X* 80* 

Virtual subchannel busy 



VCUCEPND 

EQU 

X 1 40 1 

Interrupt pending in sub—channel 



VCUBUSY 

EQU 

X'20 1 

Virtual control unit busy 



VCUPEND 

EQU 

X* 10* 

Virtual control unit interrupt pending 



VCUCUEPN 

EQU 

X 1 08 1 

Virtual control unit end pending 

7 

7 

VCUTYPE 

DS 

IX 

V*2 — virtual control unit type 



Bits Defined 

in VCUTYPE 



VCUSHRD 

EQU 

X'80' 

Virtual control unit on shared subchannel 



VCUCTCA 

EQU 

X«40« 

Virtual control unit is a channel—to—channel 

8 

8 

VCUDVTBL 

DS 

16H 

Devices attached — VMDVSTRT index 



VCUSIZE 

EQU 

(*—VCUBLOK)/8 

VCUBLOK size in doublewords (X’OB 1 ) 
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VDEVBLOK - VIRTUAL DEVICE B LOCK 


f ■■ ■ " ■■■ ' • J1 — 

|VDEVADD |VDEVINTS 

i 

|V*1 |V*2 |V*3 

—- 1 

| V*4 | 

i 

| VDEVCSW | 

i i 

J VDEVRELH j VDEVBND 

| VDEVPOSN 

i 

| VDEVQUED 

1 VDEVOPER 


# | VDEVLINK 

| VDEVEREAL 


i VDEVIOCT 

| VDEVUSER 


| VDEVIOER 

i_ 

| VDEVIOB 

__i 


Displacement Field 

Hex Dec Name Field Description, Contents, Meaning 


0 

0 

VDEVADD 

DS 

1H 

2 

2 

VDEVINTS 

DS 

1H 

4 

4 

VDEVTYPC 

DS 

IX 

5 

5 

VDEVTYPE 

DS 

IX 

6 

6 

VDEVSTAT 

DS 

IX 



Bits Defined 

in VDEVSTAT 



VDEVCHBS 

EQU 

X' 80» 



VDEVCHAN 

EQU 

X’ 40’ 



VDEVBUSY 

EQU 

X*20* 



VDEVPEND 

EQU 

X' 10* 



VDEVCUE 

EQU 

X‘ 08' 



VDEVNRDY 

EQU 

X' 04* 



VDEVCATT 

EQU 

X' 02' 



VDEVDED 

EQU 

X'01' 

7 

7 

VDEVFLAG 

DS 

IX 



Bits Defined 

in VDEVFLAG 



VDEVRDO 

EQU 

X' 80« 



VDEVENAB 

EQU 

X* 80' 



VDEVTDSK 

EQU 

X' 40' 



VDEVDIAL 

EQU 

X* 40' 



VDEVCSPL 

EQU 

X' 40' 



VDEV23IT 

EQU 

X' 20' 



VDEV231B 

EQU 

X'10' 



VDEVCCW1 

EQU 

X* 10* 



VDEVSAS 

EQU 

X' 08' 



VDEVRSRL 

EQU 

X' 02' 



VDEVUC 

EQU 

X'01' 

8 

8 

VDEVCSW 

DS 

ID 


Virtual Device Address 
Virtual Device Interrupt Status 
V*1 — virtual device type class 
V*2 — virtual device type 
V*3 — virtual device status 

Virtual subchannel busy 
Virtual channel interrupt pending 
Virtual device busy 
Virtual device interrupt pending 
Virtual control unit end 
Virtual device not ready 

Virtual device attached by console function 
VDEVREAL is dedicated device RDEVBLOK 

V*4 — virtual device flags 

DASD — read-only 

Virtual 27OX — line enabled 

DASD - TDISK space allocated by CP 

VIRTUAL 270x - line connected 

Console — activity spooled 

DASD — 2311 simulated on top half of 2314 

DASD 2311 simulated on bottom half of 2314 

Console and spooling — processing first CCW 

DASD — Executing stand-alone seek 

Reserve/Release are valid CCW operation codes 

Virtual device sense bytes present 

Virtual channel status word 


/ * 






f ^ f > { ' 


10 

16 

VDEVRELN 

DS 

1H 

Virtual DASD cylinder relocation 

12 

18 

VDEVBND 

DS 

1H 

Virtual DASD size (in cylinders) 

14 

20 

VDEVPOSN 

DS 

IF 

Virtual DASD seek position 

18 

24 

VDEVQUED 

DS 

IF 

Virtual SIO to real SIO queued time 

1C 

28 

VDEVOPER 

DS 

IF 

Device operational time 

20 

32 

VDEVLINK 

DS 

IF 

Link to virtual shared devices 

24 

36 

VDEVREAL 

DS 

IF 

Pointer to real device RDEVBLOK 

28 

40 

VDEVIOCT 

DS 

IF 

Virtual Device I/O count 

2C 

44 

VDEVUSER 

DS 

IF 

Pointer to VMVLOK of VDEVBLOK owner 

30 

48 

VDEVIOER 

DS 

IF 

Pointer to IOERBLOK for last error 

34 

52 

VDEVIOB 

DS 

IF 

Pointer to active IOBLOK 



VDEVSIZE 

EQU 

(♦—VDEVBLOK) /8 

VDEVBLOK size in doublewords (X f 07«) 



For spooling/console devices 





ORG 

VDEVRELN 


10 

16 

VDEVXUSR 

DS 

CL8 

Transfered to VMUSER 

18 

24 

VDEVCON 

DS 

IF 

Pointer to VCONCTL console control 

1C 

28 

VDEVSPL 

DS 

IF 

Pointer to VSPLCTL spool control 

20 

32 

VDEVCLAS 

DS 

1C 

Spool - output class 

21 

33 

VDEVKEY 

DS 

IX 

Storage key in user's CAW 

22 

34 

VDEVUNIT 

DS 

1 H 

Spool — output directed device address 

24 

36 

VDEVCOPY 

DS 

1H 

Number of copies requested 

26 

38 

VDEVCFLG 

DS 

IX 

Console — virtual console flags 



Bits Defined 

in VDEVCFLG 



VDEVATTN 

EQU 

x'80* 

User pressed Attention more than once 



VDEVTIC 

EQU 

X 1 40* 

Last CCW processed was a TIC 



VDEVTRAN 

EQU 

X' 20 f 

Data transfer occurred during this channel program 



VDEVVCF 

EQU 

X'10' 

Virtual console function in progress 



VDEVAUCR 

EQU 

X f 08' 

Auto carriage return on first read 

27 

39 

VDEVSFLG 

DS 

IX 

Spool — virtual spool flags 



Bits Defined 

in VDEVSFLAG 




VDEVFEED 

EQU 

X'80' 

Spool reader — last command was a feed 



VDEVXFER 

EQU 

X • 80* 

Spool output — transfered to VDEVXUSR 



VDEVCONT 

EQU 

X'40' 

Spool input — continuous reading 



VDEVCP 

EQU 

X # 40* 

Spool output — continuous printing 



VDEVHOLD 

EQU 

X'20' 

Hold output — save input 



VDEVEOF 

EQU 

X'08' 

Spool input — set unit exception at EOF 



VDEVTERM 

EQU 

X' 08' 

Terminal output required for spooled console 



VDEVCFCL 

EQU 

X'04' 

Device closed by console function 



VDEVPURG 

EQU 

X* 02 • 

Spool output — purge file at close 



VDEVDIAG 

EQU 

X f 02* 

Spool input — device opened by DIAGNOSE 



VDEVSVC 

EQU 

X'01' 

Spool output - DMKVSP entered via SVC 




ORG 

VDEVIOER 


30 

48 

VDBVSNSE 

DS 

IF 

Sense bytes for spool device 

34 

52 

VDEVFCBK 

DS 

IF 

Address of forms control blok (VFCBBLOK) 




ORG 

VDEVLINK 


20 

32 

VDEVTMAT 

DS 

IF 

TDISK attached time (TOD clock word 0) 
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VFCBBLOK - VIRTUAL FORM CONTROL BUFFER BLOCK 


«- 

| VFCBCNT 

j _ 

|V*1 |V*2 | 

VFCBWORK 

- , 

|VFCBSPAR 

|V*3 | 



i- 

_i 



i 

>—.... 

VFCBLOAD BUFFER 

AREA 



Displacement 
Hex Dec 


0 0 
2 2 


3 3 

4 4 

8 8 

A 10 

B 11 


Field 

Name Field Description, Contents, Meaning 


VFCBCNT DS 1H 

VFCBFLAG DS IX 

Bits Defined in VCFCBFLAG 
VFCBEOF EQU X f 80« 

VFCBCMD EQU X f 40 f 


Current pointer to carriage column 
V*1 working flag byte 

End of forms passed once 
forms control given 


VFCBCHL 

DS 

IX 

VFCBWORK 

DS 

IF 

VFCBSPAR 

DS 

2X 

VCFBNDEX 

DS 

IX 

VFCBLOAD 

DS 

CL 181 


V*2 Channel number or space count 

Work area 

Spare 

V*3 Index byte value 
Form control buffer area 


(♦-VFCBBLOK)/8 Size in doublewords (X«18•) 


VFCBSIZE EQU 




VMBLGK - VIRTUAL MACHINE CONTROL B LOCK 


0 

r 

VMQFPNT 

1 

VMQBPNT 

T 

1 

1— 

AO | 


VMPSW 


"1 

8 


VMPNT 

1 

VMECEXT 

1 

A8 | 


VMGPRS 



10 


VMSEG 

1 

VMSIZE 

1 

E8 | 


VMFPRS 



18 


VMCHSTRT 

1 

VMCUSTRT 

1 

108 | 


VMUSER 



20 


VMDVSTRT 

1 

VMTERM 

1 

110 | 


VMACNT 



28 


VMCHCNT |VMCUCNT | VMDVCNT |VMIOACTV 

1 

118 | 


VMDIST 



30 



VMCHTBL 


1 

120 | 
i 

VMPGREAD 

i 

VMPGWRIT 


50 


V*3 |V*4 J V*5 

|V*6 |V*7 

i 

| V*8 |V*9 |V*10| 

i 

i 

128 |VMWCNT |VMSEGDSP | 

i 

VMSHRSYS 


58 


V*11|V*12|V*13|V*14|VBEXTINT IVBIOIHT 

1 

1 

130 | 

VMIOCNT 

i 

VMPNCH 


60 


VMSLOCK |VMLLOCK | 

VMTIMER 

1 

138 | 

VMLINS 

i 

VMCRDS 


68 



VMVTIME 


1 

140 | 


VMCOMND 



70 



VMTMOUTQ 


1 

148 | 

i 

VMTIMEON 

|VMDEDCH |VMQPRIOR 


78 



VMTTIME 


1 

150 |VHPSHDCT |VMVTRHAD |VMPAGES |VBWSPROJ 


80 



VMTMINQ 


1 

158 | 

i 

VMTRQBLK 

|VMPRGIL |VMSTEALS 


88 



VMTODINQ 


1 

160 j VBPDRUB |VBPDISK | 

i 

VMACOUNT 


90 


VMINST 

| VMUPRIOR 

1 

168 | 

VMRDINQ 

i 

VMPGRINQ 


98 

L 

VBTREXT 

i 

VMADSTOP 

1 

J 

170 | 

VMEPRIOR 

i 

VMRSV4 








178 | 

VBRSV5 

i 

VBRSV6 








180 | 

VBUSER1 

i 

VBUSER2 








188 | 

i_ 

VBUSER3 

i 

VBOSER4 

J 


Displacement 
Hex Dec 

Field 

Name 



Field Description, Contents, Meaning 

0 

0 

VMQFPNT 

DS 

IF 

Pointer 

to next VMBLOK in queue 

4 

4 

VMQBPNT 

DS 

IF 

Pointer 

to previous VMBLOK in gueue 

8 

8 

VMPNT 

DS 

IF 

Pointer 

(CYCLIC) to next VMBLOK 

SY20- 

o 

00 

00 

o 

1 

* 

Page Modified 

by 

TNL SN20-2624, 
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c 

12 

VMECEXT 

DS 

IF 

VMBLOK extended control pointer — ECBLOK 

c 

12 

VMVCR0 

EQO 

VMECEXT 

Virtual control register 0 for non—EC mode 

10 

16 

VMSEG 

DS 

IF 

Pointer to VMSEGTBL 

14 

20 

VMSIZE 

DS 

IF 

Virtual storage size — bytes 

18 

24 

VMCHSTRT 

DS 

IF 

Pointer to VCHBLOK table 

1C 

28 

VMCUSTRT 

DS 

IF 

Pointer to VCUBLOK table 

20 

32 

VMDVSTRT 

DS 

IF 

Pointer to VDEVBLOK table 

24 

36 

VMTERM 

DS 

IF 

Pointer to RDEVBLOK for user terminal 

28 

40 

VMCHCNT 

DS 

1H 

Virtual channel count 

2A 

42 

VMCUCNT 

DS 

1H 

Virtual control unit count 

2C 

44 

VMDVCNT 

DS 

1H 

Virtual device count 

2E 

46 

VMIOACTV 

DS 

1H 

Active channel mask 

30 

48 

VMCHTBL 

DS 

16H 

Channels attached — VMCHSTRT index 

50 

80 

VMRSTAT 

DS 

IX 

V*3 — virtual machine running status 



Bits Defined 

in VMRSTAT 




VMCFWAIT 

EQU 

X^O* 

Waiting — Executing console function 



VMPGWAIT 

EQU 

X^O* 

Waiting - paging operation(s) 



VMIOWAIT 

EQU 

X f 20* 

Waiting — Scheduled IOBLOK start 



VMPSWAIT 

EQU 

X* 10* 

Waiting - virtual PSW wait state 



VMEXWAIT 

EQU 

X f 08* 

Waiting — Instruction simulation 



VMLOGON 

EQU 

X« 04' 

User not logged on 



VMLOGOFF 

EQU 

X • 02* 

User logging off 



VMIDLE 

EQU 

X«01* 

Virtual machine in idle wait state 



VMCPWAIT 

EQU 

VMCFHAIT+VMPGWAIT+VMIOWAIT*VMEXWAIT+VMLOGOPF+VMLOGON 



VMNORUN 

EQU 

VMCPWAIT+VMPSWAIT 



VMLONGWT 

EQU 

VMCFWAIT+VMLOGON+VMLOGOFF+VMIDLE 

51 

81 

VMDSTAT 

DS 

IX 

V*4 — virtual machine dispatching status 



Bits Defined 

in VMDSTAT 




VMDSP 

EQU 

X* 80* 

Virtual machine is dispatched runuser 



VMTSEND 

EQU 

X' 40* 

Virtual machine is compute bound 



VMTIO 

EQU 

X' 10* 

Virtual Machine is in TIO/SIO busy loop 



VMRUN 

EQU 

X f 08« 

Virtual machine runnable 



VMINQ 

EQU 

X 1 04 1 

Virtual machine in a queue 



VMELIG 

EQU 

X • 02* 

Reserved for IBM use 

52 

82 

VMOSTAT 

DS 

IX 

V*5 — virtual machine operating status 



Bits Defined 

in VMOSTAT 




VMSYSOP 

EQU 

X* 80 1 

Virtual machine is system operator 



VMSHR 

EQU 

X f 40» 

Virtual machine running shared system 



VMDISC 

EQU 

X f 10» 

Virtual machine console disconnected 



VMCFRUN 

EQU 

X 1 08’ 

Virtual machine running in CF mode 



VMVIRCF 

EQU 

X' 04* 

Virtual machine executing virtual CF 



VMCF 

EQU 

X«02« 

Virtual machine executing CF 



VMKILL 

EQU 

X f 01 f 

Virtual machine is to be logged off 

53 

83 

VMQSTAT 

DS 

IX 

V*6 - Virtual machine queueing status 



Bits Defined 

in VMQSTAT 




VMPRIDSP 

EQU 

X f 80« 

Virtual eligible for Queuel 



54 84 


VMPSTAT DS IX 

Bits Defined in VMPSTAT 
VMISAM EQU X^O* 

VMV370R EQU X^O' 

VMRPAGE EQU X'20« 

VMREAL EQU XMO* 

VMNOTRAN EQU X* 08« 

VMPNMCS EQU X'04« 

VMACCOUN EQU X«02« 


V*7 — virtual machine processing status 

Virtual machine has ISAM CCW checking 
Virtual machine can use extended format 
Virtual machine can reserve pages 
Virtual machine has V=R option 
No CCW translation for V=R user 
Reserved for IBM use 

Virtual machine may punch account cards 
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55 


85 


56 


86 


57 87 


I 58 


88 


59 


89 


VMESTAT 

DS 

IX 

V*8 — Virtual machine control status 

Bits Defined 

in VMESTAT 


VMSHADT 

EQU 

X * 80 1 

Shadow tables are present 

VMPERCM 

EQU 

X'40» 

Virtual/CP PER active 

VMEADCBO 

EQU 

X' 20' 

Virtual control register 0 is invalid 

VMBADCR1 

EQU 

X' 10* 

Virtual control register 1 is invalid 

VMEXTCM 

EQU 

X 1 08* 

Virtual machine in extended control mode 

VMNEWCBO 

EQU 

X'04' 

Virtual control register 0 has changed 

VMINVSEG 

EQU 

X 1 02* 

All shadow tables invalid 

VMINVPAG 

EQU 

X'01' 

Shadow page tables invalid 

VMTRCTL 

DS 

IX 

V*9 - virtual machine tracing control 

Bits Defined 

in VMTRCTL 

VMTBPEB 

EQU 

X' 80' 

Virtual PER tracing active 

VMTRSVC 

EQU 

X'40» 

TRACE user SVC instructions 

VMTBPRG 

EQU 

X'20' 

TBACE virtual program interrupts 

VMTRIO 

EQU 

X' 10* 

TRACE virtual I/O interrupts 

VMTBEX 

EQU 

X' 08 • 

TBACE external interrupts 

VMTBPRV 

EQU 

X' 04 • 

TBACE user privileged instructions 

VMTBSIO 

EQU 

X • 02 • 

TBACE virtual I/O instructions 

VMTBBRIN 

EQU 

X'01' 

Trace successful branches or all instructions 

VMTRINT 

EQU 

VMTRSVC+VMTRPRG+VMTRIO+VMTREX Trace all user interrupts 

VMMLEVEL 

DS 

IX 

V*10- message level 

Bits Defined 

in VMMLEVEL 


VMMSGON 

EQU 

X'80' 

Receiving messages 

VMWNGOR 

EQU 

X * 40 * 

Receiving warnings 

VMMCODE 

EQU 

X 1 20 * 

Receiving error message codes 

VMMTEXT 

EQU 

X' 10' 

Receiving texts of error messages 

VMMLINED 

EQU 

X f 08* 

Line editing on 

VMMACCCN 

EQU 

X • 04 • 

Receiving accounting information 

VMQLEVEL 

DS 

IX 

V*11— queue level 

Eits Defined 

in VMQLEVEL 


VMQ1 

EQU 

X«80' 

Virtual machine is interactive 

VMCOMP 

EQU 

X^O 1 

Virtual machine is compute bound 

VMHIPRI 

EQU 

X^O* 

Virtual machine is highest priority 

VMLOPRI 

EQU 

X* 10' 

Virtual machine is lowest priority 

VMAEX 

EQU 

X' 08 ' 

Virtual machine is assured execution 

VMAEXP 

EQU 

X' 04' 

Virtual machine is assured percentage 

VMDROP1 

EQU 

X' 02' 

Virtual machine just dropped from Ql 

VMCIEVEL 

DS 

IX 

V*12— command level 

Bits Defined 

in VMCLEVEL 


VMCIASSA 

EQU 

X' 80' 

Class A functions 

VMCLASSB 

EQU 

X' 40' 

Class B functions 

VMCLASSC 

EQU 

X' 20' 

Class C functions 

VMCLASSD 

EQU 

X' 10' 

Class D functions 

VMCLASSE 

EQU 

X' 08 * 

Calss E functions 
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VMCLASSF 

EQU 

X 1 04 1 



VMCLASSG 

EQU 

x*a2* 



VMCLASSH 

EQU 

X*01« 

5A 

90 

VMTLEVEL 

DS 

IX 



Bits Defined 

in VMTLEVEL 



VMTON 

EQU 

X 1 80' 



VMRON 

EQU 

X*40* 



VMSTMPI 

EQU 

X*08» 



VMSTMPT 

EQU 

X f 04* 

5B 

91 

VMPEND 

DS 

IX 



Bits Defined 

in VMPEND 



VMPERPND 

EQU 

X • 40 * 



VMPRGPND 

EQU 

X * 20 * 



VMSVCPND 

EQU 

X* 10* 



VMICPND 

EQU 

X * 02 1 



VMEXTPND 

EQU 

X*01* 

5C 

92 

VMEXTINT 

DS 

1H 



Bits Defined 

in VMEXTINT 



VMCKCINT 

EQU 

X* 08* 



VMCPTINT 

EQU 

X * 04 • 



Eits Defined 

in VMEXTINT 



VMINTINT 

EQU 

X * 80' 



VMKEYINT 

EQU 

X * 40 * 



VMSIGINT 

EQU 

X * 2F 1 

5E 

93 

VMIOINT 

DS 

1H 

60 

96 

VMSLOCK 

DS 

1H 

62 

98 

VMLLOCK 

DS 

1H 

64 

100 

VMTIMER 

DS 

IF 

68 

104 

VMVTIME 

DS 

ID 

70 

112 

VMTMOUTQ 

DS 

ID 

78 

120 

VMTTIME 

DS 

ID 

80 

128 

VMTMINQ 

DS 

ID 

88 

136 

VMTODINQ 

DS 

ID 

90 

144 

VMINST 

DS 

XL6 

96 

150 

VMUPRIOR 

DS 

1H 

98 

152 

VMTREXT 

DS 

IF 

9C 

156 

VMADSTOP 

DS 

IF 

AO 

160 

VMPSW 

DS 

ID 

A8 

168 

VMGPRS 

DS 

16F 

E8 

232 

VMFPRS 

DS 

4D 

108 

264 

VMUSER 

DS 

CL8 

110 

272 

VMACNT 

DS 

CL8 

118 

280 

VMDIST 

DS 

CL8 

120 

288 

VMPGREAD 

DS 

IF 

124 

292 

VMPGWRIT 

DS 

IF 

128 

296 

VMWCNT 

DS 

1H 


Class F functions 
Class G functions 
Class H functions 

V*13— timer level 

Virtual timer running 
Virtual real timer running 
Virtual interval timer request queued 
Virtual CPU timer request queued 

V*14— Interrupt pending summary flag 

Virtual PER interrupt pending 
Virtual program interrupt deferred 
Virtual SVC interrupt deferred 
Virtual I/O interrupt pending 
Virtual external interrupt pending 

External interrupt pending flags 

Clock comparator interrupt pending 
CPU timer interrupt pending 

Interval timer interrupt pending 
RED button interrupt pending 
External signals pending 

I/O interrupt pending flags 
Short lock - reserved for IBM use 
Long lock - reserved for IBM use 
Virtual timer value - X*50* 

Virtual CPU time used - 2s complement 

VMTTIME for exit from queue -2s complement 

Total CPU time used — 2s complement 

VMTTIME value at entry to queue 

TOD clock time stamp at queue entry 

Virtual machine privileged or tracing instruction 

User priority from directory 

Address of extended trace control block 

Address of address stop control block 

Virtual machine PSW 

Virtual machine general registers 

Virtual machine floating point registers 

Virtual machine identification 

Virtual machine accounting number 

Virtual machine distribution code 

Total page reads 

Total page writes 

Page wait count 





12A 

298 

VMSEGDSP 

DS 

1H 

12C 

300 

VMSHRSYS 

DS 

IF 

130 

304 

VMIOCNT 

DS 

IF 

134 

308 

VMPNCH 

DS 

IF 

138 

312 

VMLINS 

DS 

IF 

13C 

316 

VMCRDS 

DS 

IF 

140 

320 

VMCOMND 

DS 

CL8 

148 

328 

VMTIMEON 

DS 

IF 

14C 

332 

VMDEDCH 

DS 

1H 

14E 

334 

VMQPRIOR 

DS 

1H 

150 

336 

VMPSWDCT 

DS 

1H 

152 

338 

VMVTRMAD 

DS 

1H 

154 

340 

VMPAGES 

DS 

1H 

156 

342 

VMWSPROJ 

DS 

1H 

158 

344 

VMTRQBLK 

DS 

IF 

15C 

348 

VMPRGIL 

DS 

1H 

15E 

350 

VMSTEALS 

DS 

1H 

160 

352 

VMPDRUM 

DS 

1H 

162 

354 

VMPDISK 

DS 

1H 

164 

356 

VMACOUNT 

DS 

IF 

168 

360 

VMRDINQ 

DS 

IF 

16C 

364 

VMPGRINQ 

DS 

IF 

170 

368 

VMEPRI0R 

DS 

IF 

174 

372 

VMRSV4 

DS 

IF 

178 

376 

VMRSV5 

DS 

IF 

17C 

380 

VMRSV6 

DS 

IF 

180 

384 

VMUSER1 

DS 

IF 

184 

388 

VMUSER2 

DS 

IF 

188 

392 

VMUSER3 

DS 

IF 

18C 

396 

VMUSER4 

DS 

IF 



VMBSIZE 

EQU 

(♦—VMBLOK)/8 
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Displacement of virtual machine SEGTABLE from start of block 

Pointer to shared system table 

Virtual SIO count for non—spooled I/O 

Virtual card count — spooled punch 

Virtual line count — spooled printer 

Virtual card count — spooled reader 

Last CP command executed 

LOGON time —TOD clock word 0 

Dedicated channel mask 

Priority in dispatching queue 

Count of incorrect passwords entered 

Virtual terminal device address 

Number of pages currently resident 

Projected working set size 

Address of TRQBLQK for real timer 

ILC for pending program interrupt 

Number of waits for stolen pages 

Reserved for IBM use 

Reserved for IBM use 

Address of user ACCTBLOK 

Page read total (VMPGREAD) at Q entry 

Sum of VMPAGES count at each page read 

Eligible list priority 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for installation use 

Reserved for installation use 

Reserved for installation use 

Reserved for installation use 

VMBLOK size in doublewords (X , 32 l ) 


15, 1973 
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YSPLCTL - VIRTUAL SPOOL CONTROL BLOCK 


0 

i VSPCAW 

i 

VSPDPAGE 

- 1 

8 

I VSPVPAGE 

i 

VSPRECNO 


10 

| VSPNEXT | VSPIDACT 

i 

VSPSFBLK 


18 

| VSPCCW 

i 



20 

1 VSPBUFBK 

j _ 

i 

VSPMISC 


28 

|V*1 | VSPIDAL 

i_ 

i 

VSPIDAW2 

_1 


Displacement Field 

Hex Dec Name Field Description, Contents, Meaning 


0 

0 

VSPCAW 

DS 

IF 

4 

4 

VSPDPAGE 

DS 

IF 

8 

8 

VSPVPAGE 

DS 

IF 

C 

12 

VSPRECNO 

DS 

IF 

10 

16 

VSPNEXT 

DS 

1H 

12 

18 

VSPIDACT 

DS 

1H 

14 

20 

VSPSFBLK 

DS 

IF 

18 

24 

VSPCCW 

DS 

ID 

20 

32 

VSPBUFBK 

DS 

IF 

24 

36 

VSPMISC 

DS 

IF 

28 

40 

VSPIDASW 

DS 

IX 

29 

41 

VSPIDAL 

DS 

3X 

2C 

44 

VSPIDAW2 

DS 

IF 


Virtual address of user CCW 

DASD location (DCHR) of current page buffer 

Virtual address of page buffer 

Records remaining in current buffer 

DISP. in buffer of next record start 

Data byte count of IDA CCW 

Pointer to SFBLOK for file 

Current user CCW 

Address of a buffer area 

Use varies according to caller 

V*1 IDA work flag 

Address of indirect data list 

Contains IDAW2 


VSPSIZE EQU (*—VSPLCTL) /8 Size in doublewords (X«06») 
VSPBUFSZ EQU (200)/8 Size in doublewords (X f 19 f ) 



f 


s 





DI AGNOSTIC AID S 


COMMAND-TO-MODULE 

CROSS-REFERENCE 



DMK7DB142E 






DMK7DB143E 




BACKSPACE 

DMKCSOBS 

DMKCS0003E 

Command 

Entry Point 

Messages 



DMKCSO006E 
DMKCS0021E 

ACNT 

DMKCPVAC 

DMKCP7003E 



DMKCSO040E 



DMKCPV007E 



DMKCS0046E 



DMKCP7020E 



DMKCSO140E 



DMKCPV045E 



DMKCS0141E 

ADSTOP 

DMKCFDAD 

DMKCFD004E 

BEGIN 

DMKCFMBE 

DMKCFM004E 



DMKCFD026E 

DMKCFD160E 

CHANGE 

DMKCSUCH 

DMKCSD003E 



DMKCFD161E 



DMKCSD006E 

DMKCSU008E 

ATTACH (channel) 

DMKVCHDC 

DMKVCH034E 



DMKCS0013E 


DMKVCH048E 



DMKCSU026E 



DMKVCH129E 



DMKCS0027E 



DMK7CH131E 



DMKCSO028E 



DMK7CH132E 



DMKCSU029E 


DMKVDBAT 

DMKVDB020E 



DMKCSU030E 



DMKVDB045E 



DMKCSD032E 

DMKCS0035E 

ATTACH 

DMKVDBAT 

DMKVDB003E 

DMKVDB006E 



DMKCS0042E 



DMKVDB020E 

CLOSE 

DMKCSPCL 

DMKCSP003E 



DMK7DB021E 



DMKCSP006E 



DMKVDB022E 



DMKCSP013E 



DMKVDB023E 



DMKCSP022E 



DMK7DB034E 



DMKCSP029E 



DMK7DB040E 



DMKCSP032B 



DMK7DB045E 

DMKVDB046E 



DMKCSP040E 



DMKVDB120E 

COUPLE 

DMKDIACP 

DMKDIA006E 



DMKVDB122E 



DMKDIA01IE 



DMK7DB123E 



DMKDIA020E 



DMK7DB124E 



DMKDIA022E 



DMK7DB125E 



DMKDIA040E 



DMK7DB126E 



DMKDIA045E 



DMK7DB127E 



DMKDIA047E 



DMK7DB128E 

DMK7DB133E 



DMKDIA058E 



DMK7DB134E 

DCP 

DMKCDBDC 

DMKCDB003E 
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DMKCDB004E 

DMKCDB009E 

DMKCDB010E 

DMKCDB026E 

DMKCDB033E 

DMKCDB160E 

DEFINE 

DMKDEFIN 

DMKDEF003E 

DMKDEF022E 

DMKDEF024E 

DMKDEF025E 

DMKDEF026E 

DMKDEF040E 

DMKDEF091E 

DMKDEF092E 

DMKDEF094E 

DMKDEF136E 

DETACH (channel) 

1 

DMKVCHDC 

DMKVDBDE 

DMKVCH034E 

DMKVCH048E 

DMKVCH130E 

DMKVDB020E 

DMKVDB034E 

DETACH 

DMKVDBDE 

DMKVDB006E 

DMKVDB020E 

DMKVDB021E 

DMKVDB022E 

DMKVDB040E 

DMKVDB045E 

DMKVDB046E 

DMKVDB121E 

DMKVDB123E 

DMKVDB124E 

DMKVDB135E 

DMKVDB140E 

DIAL 

DMKDIAL 

DMKDIA011E 

DMKDIA020E 

DMKDIA022E 

DMKDIA045E 

DMKDIA047E 

DMKDIA055E 

DMKDIA056E 

DISABLE 

DMKCPVDS 

DMKCPV003E 

DMKCPV006E 

DMKCPV021E 

DMKCPV026E 

DMKCPV040E 




DMKCPV046E 

DMKCPV140E 

DISCONN 

DMKUSODS 

DMKDS0003E 

DISPLAY 

DMKCDBDI 

DMKCDB003E 
DMKCDB004E 
DMKCDB009E 
DMKCDB010E 
DHKCDB026E 
DMKCDB160E 

DMCP 

DMKCDBDM 

DMKCDB003E 
DMKCDB004E 
DMKCDB009E 
DMKCDB033E 
DMKCDB160E 

DRAIN 

DMKCSODR 

DMKCS0003E 
DMKCS0006E 
DMKCS0021E 
DMKCS0040E 
DMKCS0046E 
DMKCSO140E 

DUMP 

DMKCDBDU 

DMKCDB003E 
DMKCDB004E 
DMKCDB009E 
DMKCDB033E 
DMKCDB160E 

ECHO 

DMKMSGEC 

none. 

ENABLE 

DMKCPVEN 

DMKCPV003E 

DMKCPV006E 

DMKCPV021E 

DMKCPV026E 

DMKCP7040E 

DMKCPV046E 

DMKCPV140E 

EXTERNAL 

DMKCPBEX 

DMKCPB005E 

FLUSH 

DMKCSOFL 

DMKCSO003E 
DMKCSO006E 
DMKCS0013E 
DMKCSO021E 
DMKCS0040E 
DMKCS0046E 
DMKCSOI40E 







DBKCS0141E 


FORCE DBKOSOFL DBKUS0003E 

DBKUSQ020E 

DBKUSO045E 

FREE DHKCSPFR DBKCSP006E 

DBKCSP007E 

DHKCSP020E 

DBKCSP053E 

HALT DBKCPVH DMKCPV021E 

DMKCPV040E 
DBKCPV144W 

HOLD DBKCSPHL DHKCSP006E 

DBKCSP007E 

DMKCSP020E 

DHKCSP053E 

IPL DBKCFPIP DMKCFP002E 

DBKCFP003E 
DMKCFPO13E 
DMKCFP022E 
DBKCFP026E 
DBKCFP040E 
DBKCFP044E 
DBKCFP170E 
DBKCFP171E 
DBKCFP172E 
DBKCFP173E 
DBKCFP174E 
DBKCFP177E 
DBKVBI230E 
DBKVBI231E 
DBKVBI232E 
DBKVBI233E 
DBKVBI234E 

LINK DBKLNKIN DBKLNK020E 

DBKLNK022E 
DBKLNK052E 
DBKLNK053E 
DBKLNK101W 
DBKLNK102H 
DMKLNK103W 
DBKLNK104E 
DBKLNK105E 
DHKLNK106E 
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DBKLNK107E 
DBKLNK108E 
DBKLNK109E 
DBKLNK110E 
DBKLNK111E 
DBKLNK112E 
DBKLNK113E 
DBKLNK114E 
DBKLNK115E 
DBKLNK116E 
DBKLNK117E 
DBKLNK137E 

LOADBUF DBKCSOLD DHKCS0003E 

DBKCS0006E 
DBKCSOO13E 
DBKCS0021E 
DBKCS0026E 
DBKCSO03IE 
DBKCSO036E 
DBKCS0040E 
DBKCS0043E 
DBKCSO046E 
DBKCS0140E 
DBKCS0142E 
DBKCS0148E 

LOADVFCB DBKCSOVL DBKCSO006E 

DBKCS0022E 
DBKCSO026E 
DBKCS003IE 
DBKCSO036E 
DBKCSO040E 
DBKCSO043E 

LOCATE DBKCFDLO DBKCFD021E 

DBKCFD022E 

DBKCFD026E 

DBKCFD040E 

LOCK CBKCPVLK DBKCPV004E 

DBKCPV009E 

DBKCPV020E 

DBKCPV033E 

DBKCPV045E 

DBKCPV160E 

LOGOFF (LOGOUT) DBKUSOLG DBKUS0003E 
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LOGON (LOGIN, 

DMKLOGOP 

DMRLOG003E 

operator) 


DMKLOG020E 

LOGON (LOGIN, user) 

DMKLOGON 

DMKLOG050E 

DMKLOG051E 

DMKLOG052E 

DMKLOG053E 

DMKLOG054E 

DMKLOG090E 

DMKLOG091E 

DMKLOG092E 

DMKLOG093E 

MONITOR 

DMKMCCCL 

DMKMCC002E 

DMKMCC026E 

MSG 

DMKMSGMS 

DMKMSG003E 

DMKMSG020E 

DMKMSG045E 

DMKMSG057W 

NOTREADY 

DMKCPBNR 

DMKCPB006E 

DMKCPB022E 

DMKCPB040E 

ORDER 

DMKCSUOR 

DMKCSU003E 

DMKCSU006E 

DMKCSU008E 

DMKCSU026E 

DMKCSU027E 

DMKCSD028E 

DMKCSU035E 

DMKCS0042E 

PURGE 

DMKCSUPU 

DMKCSD003E 

DMKCSD006E 

DMKCSD008E 

DMKCSU026E 

DMKCSB028E 

DMKCS0035E 

DMKCS0042E 

QUERY (initialize) 

DMKCFMQU 

DMKCPM026E 

(Class G) 

DMKCQGEN 

DMKCQG020E 

DMKCQG022E 

DMKCQG027E 

DMKCQG040E 

DMKCQG042E 

DMKCQG045E 

(Class B,E,G) 

DMKCQPRV 

DMKCQP003E 

DMKCQP006E 




DMKCQP020E 

DMKCQP021E 

DHKCQP022E 

DMKCQP040E 

DMKCQP045E 

READY 

DMKCPBRY 

DMKCPB006E 

DMKCPB022E 

DMKCPB040E 

REPEAT 

DMKCSORP 

DMKCSO003E 
DMKCS0006E 
DMKCSOO13E 
DMKCS0021E 
DMKCS0030E 
DMKCSO040E 
DHKCS0046E 
DMKCSO140E 
DMKCS0141E 

RESET 

DMKCPBRS 

DMKCPB022E 

DMKCPB040E 

REWIND 

DMKCPBRW 

DMKCPB006E 

DMKCPB022E 

DMKCPB040E 

DMKCPB059E 

SAVESYS 

DMKCFGSV 

DMKCFG026E 

DMKCFG044E 

DMKCFG170E 

DMKCFG171E 

DMKCFG172E 

DMKCFG173E 

DMKCFG435E 

SET 

DMKCFSET 

DMKCFS003E 
DMKCFS006E 
DMKCFS013E 
DMKCFS02IE 
DMKCFS026E 
DMKCFS040E 
DMKCFS04IE 
DMKCFS045E 
DMKCFS046E 
DMKCFS140E 
DMKCFS175E 


DMKMCHMS 

DMKMCH003E 

DMKMCH026E 






SHUTDOWN 

DMKCPVSH 

none. 

SLEEP 

DMKCFMSL 

none. 

SPACE 

DMKCSOSP 

DMKCS0006E 
DMKCS0021E 
DMKCSO040E 
DMKCS0046E 
DMKCSOl40E 
DMKCS0141E 

SPOOL 

DMKCSPSP 

DMKCSP003E 

DMKCSP006E 

DHKCSP007E 

DMKCSP013E 

DMKCSP020E 

DMKCSP022E 

DMKCSP026E 

DMKCSP028E 

DMKCSP030E 

DMKCSP040E 

DMKCSP053E 

START 

DMKCSOSD 

DMKCSO003E 

DMKCSO006E 

DMKCSO013E 

DMKCSO021E 

DMKCSO028E 

DMKCSO040E 

DMKCSO046E 

DMKCSO140E 

STCP 

DMKCDSCP 

DMKCDS004E 

DBKCDS005E 

DMKCDS026E 

DMKCDS033E 

DMKCDS160E 

DMKCDS162E 

STORE 

DMKCDSTO 

DMKCDS004E 
DMKCDS005E 
DMKCDSO10E 
DMKCDS012E 
DMKCDS026E 
DMKCDS033E 
DMKCDS160E 
DMKCDS161E 
DMKCDS162E 
DMKCDS163E 


SYSTEM 

DMKCPBSR 

DMKCPB012E 

DMKCPB026E 

TERMINAL 

DMKCFTRM 

DMKCFT002E 

DMKCFT006E 

DMKCFT026E 

TRACE 

DMKTRA 

DMKTRA002E 
DMKTRA003E 
DMKTRA013E 
DMKTRA026E 
DMKTRA180E 
DMKTRA181E 

TRANSFER 

DMKCSUTR 

DMKCS0003B 

DMKCSU007E 

DMKCS0008E 

DMKCS0020E 

DMKCSO026E 

DMKCSU027E 

DMKCSD028E 

DMKCS0042E 

DMKCS0053E 

UNLOCK 

DMKCPVUL 

DMKCPV004E 
DMKCPV009E 
DMKCPV020E 
DMKCPV033E 
DMKCPV045E 
DMKCPV160E 
DMKCPV176E 
DMKCPV202E 

VARY 

DMKCPVRY 

DMKCPV003E 
DMKCPV021E 
DMKCPV026E 
DMKCPV040E 
DMKCPV049E 
DMKCPV123E 
DMKCPV124E 
DMKCPV140E 
DMKCPV142E 

WNG 

DMKMSGWN 

DMKMSG003E 

DMKMSG020E 

DHKMSG045E 

DMKMSG057W 


SY20-0880-1, Page Modified by TNL SN20-2624, August 15, 1973 


Diagnostic Aids 




SY20-0880-1, Page Modified by THI SN20-2624, August 15, 1973 


IBM VM/370: Control Program Logic 586 


MESSAGE-TO- 

FLOWCHART CROSS-REFERENCE 





DMKCFM001E 

2 

DMKAC0425A 

4 

DMKCFM004E 

4 



DMKCFM026E 

5 

DMKBLD200E 

1 



DMKBLD201E 

1 

DMKCFP002E 

6 

DMKBLD202E 

1 

DMKCFP003E 

5 



| DMKCFP013E 

6 

DMKCCH601I 

4 

DMKCFP026E 

9 

DMKCCH602I 

4 

1 DMKCFP040E 

7 

DMKCCH603W 

1 

1 DMKCFP044E 

5 

DMKCCH604I 

3 

DMKCFP170E 

8 

DMKCCH605I 

2 

DMKCFP171E 

8 

DMKCCH606I 

4 (in module DMKIOE) 

DMKCFP172E 

8 



DMKCFP173E 

8 

DMKCDB003E 

4 

DMKCFP174E 

7 

DMKCDB004E 

7 

| DMKCFP177E 

10 

DMKCDB009E 

8 



DMKCDB010E 

7 

DMKCFS003E 

1 

DMKCDB026E 

1 

DMKCFS006E 

9 

DMKCDB033E 

3 

DMKCFS013E 

13 

DMKCDB160E 

8 

DMKCFS021E 

7 



DMKCFS026E 

1 

DMKCDS004E 

3 

DMKCFS040E 

7 

DMKCDS005E 

3 

DMKCFS04 IE 

10 

DMKCDS010E 

5 

DMKCFS045E 

4 

DMKCDS012E 

4 

DMKCFS046E 

9 

DMKCDS026E 

1 

DMKCFS140E 

9 

DMKCDS033E 

3 

DMKCFS175E 

5 

DMKCDS160E 

2 



DMKCDS161E 

2 

DMKCFT002E 

1 

DMKCDS162E 

5 

DMKCFT006E 

5 

DMKCDS162W 

6 

DMKCFT026E 

1 

DMKCDS163E 

5 





DMKCKP900E 

7 

DMKCFD004E 

3 

DMKCKP901E 

7 

DMKCFD021E 

2 

DMKCKP902E 

3 

DMKCFD022E 

1 

DMKCKP904E 

5 

DMKCFD026E 

1 

DMKCKP9101 

3 

DMKCFD040E 

1 

DMKCKP911W 

3 

DMKCFD160E 

3 

DMKCKP912W 

3 

DMKCFD161E 

3 

DMKCKP960I 

8 



DMKCKP961M 

8 

DMKCFG026E 

1 



DMKCFG044E 

1 

DMKCHS454I 

7 

DMKCFG170E 

1 

DMKCNS455I 

1 

DMKCFG171E 

2 

DMKCHS500I 

21 

DMKCFG172E 

2 

DMKCMS5011 

21 

DMKCFG173E 

2 

DMKCHS502I 

21 

DMKCFG435E 

3 

DMKCHS503I 

21 



/' 




DBKCHS504I 

21 


DBKCQP003E 

2 

DBKCNS505I 

21 


DBKCQP006E 

4 

DHKCHS527I 

21 


DBKCQP020E 

3 

DBKCHS528I 

22 


DBKCQP021E 

4 




DBKCQP022E 

4 

DBKCPB005E 

2 


DBKCQP040E 

4 

DBKCPB006E 

3 


DBKCQP045E 

3 

DBKCPB012E 

2 




DBKCPB022E 

4 


DBKCS0003E 

1 

DHKCPB026E 

1 


DBKCS0006E 

1 

DHKCPB040E 

4 


DBKCS0013E 

1 

| DBKCPB059E 

4 


DBKCS0021E 

12 



DBKCSO022E 

12 

DBKCPI950A 

4 


DBKCSO026E 

13 

DSKCPI951I 

4 


DBKCS0028E 

3 

DBKCPI952I 

4 


DBKCSO030E 

6 

DBKCPI953I 

5 


DBKCSO031E 

8 

DBKCPI954E 

1 


DBKCS0036E 

10 

DBKCPI955W 

2 


DBKCS0040E 

12 

DBKCPI960I 

6 


DBKCSO043E 

8 

DBKCPI961W 

6 


DBKCSO046E 

1 




DBKCSOI40E 

1 

DBKCPV003E 

7 


DMKCS0141E 

2 

DBKCPV004E 

4 


DBKCSOI42E 

7 

DBKCPV006E 

2 


DBKCSOI48E 

11 

DBKCPV007E 

6 




DBKCPV009E 

5 


DMKCSP003E 

1 

DBKCPV020E 

4 


DBKCSP006E 

1 

DBKCPV021E 

1 


DBKCSP007E 

5 

DBKCPV026E 

1 


DBKCSPO13E 

1 

DBKCPV033E 

4 


DBKCSP020E 

5 

DBKCPV040E 

1 

I DMKCSP022E 

7 

DBKCPV045E 

4 


DBKC SP026E 

4 

DBKCPV046E 

2 


DBKCSP028E 

8 

DBKCPV049E 

8 


DBKCSP029E 

10 

DBKCPV123E 

9 


DBKCSP030E 

9 

DBKCPV124E 

8 


DMKCSP032E 

12 

DBKCPV140E 

2 , 8 


DBKCSP040E 

8 

DBKCPV142E 

8 


DBKCSP053E 

5 

DBKCPV144W 

10 




DBKCPV160E 

5 


DBKCS0003E 

4 

DBKCPV176E 

4 


DBKCSO006E 

1 

DBKCPV202E 

4 


DBKCS0007E 

10 




DBKCS0008E 

15 

DBKCQG020E 

7 


DBKCS0013E 

2 

DBKCQG022E 

6 


DBKCS0020E 

8 

DBKCQG027E 

3 


DBKCS0026E 

4 

DBKCQG040E 

7 


DBKCSD027E 

1 

DBKCQG042E 

4 


DBKCS0028E 

12 

DBKCQG045E 

7 


DBKCS0029E 

14 
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DMKCS0030E 13 

DHKCSU032E 3 

DMKCS0035E 12 

DMKCSD042E 4 

DMKCSU053E 11 

DMKDAS500I 4 

DMK0AS501A 4 

DMKDAS502D 4 

DHKDAS503I 2 

DMKDAS504D 4 

DMKDAS505D 4 

DMKDAS506I 5 

DMKDAS507D 4 

DMKDAS508I 7 

DHKDAS509I 5 

DMKDAS513I 5 

DMKDAS514D 2,4 

DMKDAS516I 5 

DMKDAS517I 6 

DMKDAS518I 6 

DMKDAS520I 2 

DMKDAS956A 3 

DMKDEF003E 3 

DMKDEP022E 1 

DMKDEF024E 2 

DHKDEF025E 1 

DMKDEF026E 1 

DMKDEF040E 4 

DMKDEF091E 2 

DMKDEF092E 3 

DMKDEF094E 6 

DMKDEF136E 2 

DMKDIA006E 8 

DMKDIA01IE 3 

DMKDIA020E 1 

DMKDIA022E 1 

DMKDZA040E 9 

DMKDIA045E 1 

DMKDIA047E 1 

DHKDIA055E 2 

DMKDIA056E 2 

DMKDIA058E 9 

DMKDMP905H 5 

DMKDMP906W 5 

DMKDMP907W 3 

DMKDMP908I 1 
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DHKDHP909H 

8 

DMKDSP450W 

4 

DMKDSP451H 

1 

DMKDSP452H 

3 

DMKIOF550E 

4 

DMKI0F551E 

5 

DMKIOF552E 

12 

DMKIOF553E 

5 

DMKIOG554E 

3 

DMKI0G555E 

3 

DMKIOG556I 

4 

DMKIOG557I 

4 

DMKI0G558I 

6 

DMKI0G559I 

5 

DMKIOG560I 

5 

DMKLHK020E 

1 

DMKLNK022E 

2 

DMKLSK052E 

4 

DMKLHK053E 

2 

DMKLHK101M 

10 

DMKLHK102E 

10 

BMKLNK103W 

10 

DMKLHK104E 

10 

DMKLNK105E 

11 

DMKLNK106E 

11 

DMKLNK107E 

3 

DMKLNK108E 

8 

DMKLNK109E 

4 

DMKLHK11OE 

8 

DMKLNK11IE 

8 

DMKLNK112E 

8 

DMKLNK113E 

8 

DMKLNK114E 

6 

DMKLMK115E 

1 

DHKLNK116E 

5 

DMKLNK117E 

5 

DMKLHK137E 

5 

DMKLOG003E 

2 

DMKLOG020E 

1 

DMKLOG050E 

2 

DMKLOG051E 

1 

| DMKLOG052E 

7 

DMKLOG053E 

1 

1DMKLOG054E 

9 

1DMKLOG090E 

8 



DBKLOG091E 6 

DBKLOG092E 5 

DBKLOG093E 6 

DBKBCC002E 1 

DHKBCC026E 1 

DBKBCH003E 8 

DHKHCH026E 8 

DBKBCH610I 2 

| DBKBCH611I 1,7 

DBKBCH612H 1 

DBKBCH613I 3 

DBKBCH6141 4 

DBKBCH6151 7 

DBKBCH616I 3 

DBKBCH617I 7 

DBKBCH618I 8 

|DBKBCH619I 3 

DBKBID453I 1 

DBKBSG003E 1 

DBKBSG020E 1 

DBKBSG045E 1 

DBKBSG057W 2 

DBKPAG415E 3 

DBKPGT400I 4 

DBKPGT40II 4 

DBKPRG453W 3 

DBKPTR41OH 2 

DBKRSE500I 7 

DBKRSE501A 7 

DBKRSE501I 7 

DBKRSE502I 7 

DBKRSE503A 7 

DBKRSE503I 7 

DBKRSE504A 7 

DBKRSE504I 7 

DBKRSE505A 7 

DBKRSE508I 7 

DBKRSE520A 7 

DBKRSE520I 7 

DBKRSE521I 7 

DBKRSE524I 7 


SY20-0880-1, Page Bodified by TNL 


I DBKRSE525I 
DBKRSE529I 

DBKRSP426E 

DBKRSP428E 

DBKRSP430A 

DBKRSP431A 

DBKRSP432A 

DBKRSP433A 

DBKRSP434A 

DBKSAV350H 
DBKSAV351H 
DBKSAV352W 

DBKTAP500I 
DBKTAP501A 
DBKTAP502D 
DMKTAP503I 
DBKTAP504D 
DMKTAP505D 
DBKTAP5101 
DBKTAP51II 
DBKTAP5121 
DBKTAP513I 
DBKTAP516I 
DBKTAP517I 
DBKTAP518I 
DBKTAP519I 
DBKXAP520I 
DBKTAP521I 
DBKTAP522I 
DBKTAP523I 

DBKTRA002E 

DBKTRA003E 

DBKTRA013E 

DBKTRA026E 

DBKTRA180H 

DBKTRA181E 

DBKTRA182E 

DBKODR475I 

DBKUSO003E 

DBKUSO020E 

DBKOSO045E 

DBKVCH034E 
| DBKVCH048E 


1-2624, August 15, 1973 


7 

7 

1 

3 

13 

11 

11 

11 

9 

2 

2 

3 

4 
4 
2 
2 

5,7 

4 
6 
2 

5 

6 

7 
2 

8 
6 
2 

4 

5 
5 

1 

1 

2 

1 

4 
3 
1 

2 

5 
2 
2 

1 

1 
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DMKVCH129E 

2 

| DMKVCH130E 

5 

DMKVCH131E 

2 

DMKVCH132E 

2 

DMKVDB003E 

3 

DMKVDB006E 

6 

DMKVDB020E 

2 

DMK7DB021E 

1 

DMKVDB022E 

1 

DHKVDB023E 

3 

DMKVDB034E 

1 

IDHKVDB040E 

9 

1 DM KVDB045E 

10 

IDMKVDB046E 

10 

DMKVDB120E 

5 

DMKVDB121E 

8 

DMKVDB122E 

11 

DMKVDB123E 

8 

DMKVDB124E 

11 

DMKVDB125E 

6 

DMKVDB126E 

6 

IDMKVDB127E 

11 

IDMKVDB128E 

7 

IDMKVDB133E 

13 
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DMKVDB134E 11 
DMKVDB135E 11 
DMKVDB140E 10 
DMKVDB142E 8 
DMKVDB143E 8 

DMKVMI110E 1 
DMKVMI230E 2 
DMKVMI231E 7 
DMKVMI232E 2 
DMKVMI233E 3 
DMKVMI234E 2 

I DMKVSP427I 6 
DMKVSP429I 5 

DMKWRM902E 4 
DMKWRM903E 2 
BMKHRM904E 3 
DMKWRM909E 2 
DMKWRM910I 2 
DMKWRM911H 2 
DMKWRM920I 4 



CP WAIT STATE CODES 


a valid 


The wait state code is found in the right half of the 
program status word (PSW) when the CPU is in wait 
state. A wait state is produced by one cf the 
following modules: 

DMKCCH 

DMKCKP 

DMKCPI 

DMKDMP 

DMKMCH 

DMKSAV 

DMKWRM 

When a wait state occurs, the PSW is displayed at the 
operator's console in the following format: 

| xxyyyyyyzzzzzwww 

fcher e: 

xxyyyyyy is the left half of the program status word. 
This half may be either: 

03yyyyyy Valid wait condition. The system 
is waiting for work. 

OOyyyyyy System wait caused by an error 
condition. 

zzzzzwww is the right half of the program status word. 
The wait state code, www, indicates the error 
condition. 

Wait 

Codes Explanation 

001 The machine check handler has encountered an 

irrecoverable failure. Probable hardware error. 

002 The channel check handler has encountered an 

irrecoverable failure. Probable hardware 
error. 


0C3 A system failure has occurred before 

warm start was performed. 

004 This wait state code is loaded by DMKDMP when a 

console, or an output device is not 

operational or when a console or output device 
produce an inexplicable error status. Probable 
hardware error. 

005 DMKCPI could not find an operational primary or 

alternate console. Probable hardware error. 

006 This is a normal wait when a system shutdown is 

completed. 

007 A program check, a machine check, or a 

permanent I/O error was encountered by the 
checkpoint program. 

008 Checkpoint and system shutdown are complete. 

0C9 An error condition has occurred that prevents a 

warm start. 

OCA A machine check occurred while DMKSAV was 

attempting to save or restore a page image copy 
of the nucleus on a SYSRES device. Probable 
hardware error. 

00B A machine check occurred before initiation was 

complete. 

00C An attempt was made to IPL from a disk that did 

not contain a system. Thus, the wait code 00C 
enter on disk by the Format program is 
encountered. 

00D The size defined during system generation is 

greater than the real machine size, or a 
hardware error has occurred which inhibits 
VM/370 from using the required storage. 

OOF Hardware errors are being received on VM/370 

paging device (s). This wait state is preceded 
by message DMKPAG415E - CONTINUOUS PAGING 

ERRORS FROM DASDxxx. 
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ABEND CODES 


C o de Beason 

| ELD001 An invalid pointer to the RDEVBLOK was found 

| in register 8 when DMKBLDVM was called to 

| build a new VMBLOK• 

| CFM001 No stacked CPEXBLOK was found for a user with 
| a pending LOGOFF flag set. 

CNS001 Condition code 2 was returned by a TIO 

instruction to a logged on user communication 
line or console. 

CNS002 Condition code 2 or 3 was returned from a SIO 
instruction to a logged on user communication 
line or console. 

CNS003 Condition code 1 was returned from a SIO 

instruction to a logged on user communication 
line or console, accompanied by CSW status 
other than Attention or Unit Check. 

CNS004 The input data count, less idle and control 

characters, for a read from a 2741 is less 
than 0. 

CNS005 The input data count for a read from a 2741 
is equal to 0. 

CNS006 The data count at entry to the code 

translation routine is less than or equal to 

0 . 

CNSG07 The input data count less idle and pad 

characters is less than zero for a non-IBM 
terminal. 

| CNS008 The IOBIOER field of the IOBLOK contains an 

| invalid pointer to an IOERBLOK. 

CPI001 The RDEVBLOK for the DASD on which the SYSRES 

volume is mounted cannot be located. The 
SYSRES volume is specified in the SYSRES 
macro in the module DMKSYS. 

CPI002 A valid system directory file could not be 
located. 


n 
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CPI003 The system TOD clock is not operational. 

CVT001 The system TOD clock is in error or is not 
operational. 

DiRDOOl The device code index in the compressed DASD 
address for the system dump file points to a 
RDEVLBOK for an invalid DASD. The valid 
DASDs are 2305, 3330, or 2314/2319. 

DSP001 During I/O Interrupt Unstack and Reflection, 
DMKSCNVU could not locate all of the virtual 
control blocks for the interrupting unit. 

DSP002 The dispatcher (DMKDSP) is attempting to 

dispatch a virtual relocate user whose shadow 
segment tables or virtual extended control 
register 0 are invalid. 

The dispatcher has sensed that the interval 
timer did not decrement properly. 

A virtual device was detached while an I/O 
interrupt was being traced and its VDEVBLOK 
cannot be found. 

The size of the block being returned (via 
register 0) is less than or egual to 0. 

The address of the free storage block being 
returned matches the address of a block in 
the free storage chain. 

The address of the free storage block being 
returned overlaps the next lower block on the 
free storage chain. 

The address of the free storage block being 
returned overlaps the next higher block on 
the free storage chain. 

A module is attempting to release storage in 
the resident CP nucleus. 

A module is requesting a block of storage 
whose size (in register 0) is less than or 
equal to zero. 




| DSP003 
I 

| DSP004 

I 

I 

FRE001 

FRE002 

FRE003 

FRE004 

FRE005 


FRE006 




a 


FRE007 A module is attempting to release a block of 
storage whose address exceeds the size of 
real storage. 

FRE008 The address of the free storage block being 

returned matches the address of the first 
block in the subpool for that size. 

FRE009 The address of the free storage block being 

returned matches the address of the second 
block in the subpool for that size. 

FRE010 A program is attempting to extend free 
storage while storage is in the process of 
being extended. 

FRE011 A CP module has attempted to return a block 

of storage that is in the user dynamic paging 
area. 

HVC001 The user pointed to by register 11 issued a 
diagnose while attempting to format the I/O 
Error or Channel Check/Machine Check 
recording areas: the SYSRES device type is 
unrecognizable. 

IOSOOI The caller is attempting to reset an active 
IOBLOK that contains an invalid unit address. 

IOS002 DMKIOS is attempting to restart an IOBLOK 
from the RCHBLOK queue, but that IOBLOK 
contains an invalid unit address. 

IOS003 DMKIOS is attempting to remove an IOBLOK from 
a queue, but that IOBLOK is on more than one 
queue. 

PGT001 The number of cylinders in use stored in the 
allocation block (ALOCBLOK) is less than the 
maximum but DMKPGT was unable to find 

available cylinders. 

PGT002 The count of pages in use in a page 

allocation block (RECBLOK) is less than the 
maximum but DMKPGT was unable to find 

available pages. 

PGT003 The DASD page slot being released is not 

marked allocated. 
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PGT004 




The dummy RECBLOK indicating the spooling 
DASD pages on the cylinder that are to be 
released contains a page count greater than 
the number of pages allocated on the 
cylinder. 

PGT005 A module is attempting to release a DASD page 
slot on a cylinder for which no page 

allocation block (RECBLOK) exists. 

PGT006 The last DASD page slot in a RECBLOK has been 
deallocated but the bit representing the 
cylinder in the cylinder allocation block 
(ALOCBLOK) is not set to one, indicate that 
the cylinder was not allocated. 

PGT007 A module is attempting to release a page of 
virtual storage being used by CP that has not 
been marked allocated. 


PRG001 

Program 

program. 

check 

(operation) in the 

control 

PRG002 

Program 

control 

check 

program 

(privileged operation) 

• 

in the 

PRG003 

Program 

program. 

check 

(execute) in the 

control 

PRG004 

Program 

program. 

check 

(protection) in the 

control 

PRG005 

Program 

program. 

check 

(addressing) in the 

control 

PRG006 

Program 

program. 

check (specification) in the 

control 

PRG007 

Program 

check (data) in the control program. 

PRG008 

Program 

control 

check 

program 

(fixed-point overflow) 

in the 

PRG009 

Program 

control 

check 

program 

(fixed point divide) 

• 

in the 

PRG010 

Program 

check 

(decimal overflow) 

in the 


control program. 
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PRG011 Program check (decimal divide) in the control 
program. 

PRG012 Program check (exponential overflow) in the 
control program. 

PRG013 Program check (exponential underflow) in the 

control program. 

PRG014 Program check (significance) in the control 
program. 

PRG015 Program check (floating-point divide) in the 

control program. 

PRG254 A translation specification exception has 

been received for a virtual machine that is 
not in Extended Control Mode. 

PRG255 A PER interrupt has been received for a 

virtual machine that is running with PER 
disabled int its virtual PSW. 

PSA001 Free storage is not available for the save 

areas. 

PSA002 The System Restart key in the CPU console was 
depressed. 

PSA003 Fatal DASD I/O error on paging device. 

PTR001 A segment exception or a translation 

specification exception has occurred while 
executing a LRA (Load Real Address) 
instruction in DMKPTR. 

PTR002 A program is attempting to unlock a page 

frame whose address exceeds the size of real 
storage. 

PTR003 A program is attempting to unlock a real 

storage page frame whose C0RTABLE entry is 
not flagged as locked. 

PTR004 The lock count in the CORTABLE entry for the 
page frame being unlocked has been 
decremented to a value that is less than 0. 

PTR006 Request to extend storage while extending. 
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PTR007 No storage available for extend. 

PTR008 The CORTABLE entry on the free list points to 
a page currently active. 

PTR009 The adjusted count of resident shared pages 
has fallen below zero. 

PTR010 The adjusted count of resident reserved pages 
has fallen below zero. 

QCN001 A HIO instruction attempting to halt a 

prepare/read to a logged on user terminal 
received a condition code of 3. 

QCNQ02 A CP routine has attempted to initiate a read 
or write to a device whose RDEVTYPE field is 
invalid. 

RPA001 The virtual address supplied to DMKRPAGT is 

outside of the virtual storage being 

referenced. 

RPA002 The virtual address supplied to DMKPRAPT is 

outside of the virtual storage being 

referenced. 

RPA003 User page count is negative. 

SCHO01 The adjusted count of users in the in-queue 

(interactive plus non-interactive) has fallen 
below zero. 

TDK001 A program is attempting to deallocate a 

cylinder of T-disk space for which no 

cylinder allocation block (ALOCBLOK) exists. 

TDK002 A program is attempting to deallocate a 

cylinder or cylinders of T-disk space that 
are not marked allocated. 

TRC001 An erroneous call to TRACE was detected. 

UDR001 The user directory module is looping, trying 
to read all of the UDIRBLOK page buffers from 
the directory device. Or, a directory 
containing over 10,816 users was loaded. 






VATQ01 A hardware page exception occurred, but the VI0002 
translation tables indicate either the 
segment is not available or the page table 
does not exist, 

VDB001 The VDEVBLOK for the virtual device being 

released contains an unrecognizable device VIO003 
type. 

7DB002 The f Sysownd f list is in an invalid format. 

VDB003 DASD link chain is invalid. VSP001 

VIOOOI The VMINST field in the user's VMBLOK issuing 
privileged I/O operation does not contain a 
recognizable I/O operation code. 


SY20-0880-1, Page Modified by TNL SN20-2624, August 15, 1973 




DMKSCNVU was unable to locate all of the 
virtual I/O control blocks for the virtual 
unit address associated with the interrupt 
previously unstacked. 


DMKIOS has returned an IOBLOK indicating a 
condition code of 2 was received from the 
Start I/O for the operation. 


DMKSCNVU was unable to locate all of the 
virtual I/O control blocks for the channel 
program that was previously executed. The 
virtual I/O configuration was destroyed. 
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APPENDIX A: VM/370 MODULE FORMAT 


Every module for VM/370 is formatted in the following 
manner: 

MOD TITLE Card 

ISEQ 73, 80 Validate source seq. 


Module Prol ogue 


The prologue contains a heading for each of the topics 
listed in the order that they appear below, even if the 
topic does not apply to the given module. Topic 
headings start in column three and are followed by one 
blank line. The text beneath each heading should start 
in column ten. The reguired topics are as follows: 

MODULE NAME - The actual name of the module (that is, 
the label of the START or first CSECT card) 

FUNCTION - A brief (one or two sentence) description of 
the purpose of the module 

ATTRIBUTES - A list of things such as whether or not 
the module is reentrant or serially reusable , resident 
or pageable, an how it is called (via an SVC, EALR, or 
GOTO) . 

ENTRY POINTS - A list of the name of each entry point, 
followed by a short explanation of the reason that the 
entry point is called. Also included is a list of all 
fields that are referenced or modified by an external 
routine. 

ENTRY CONDITIONS - State any registers that must be 
loaded by the caller and what values they contain. If 
general registers contain parameters, state their 
symbolic values and their meanings. 


EXIT CONDITIONS, NORMAL AND ERROR - State any of the 
callers registers that are modified and what values 
they contain, if a meaningful condition code is set. 


and indicate if the module does not return to its 
caller. 

CALLS TO OTHER ROUTINES - A list of any external 
routines or modules that are called. Include any exits 
to DISPATCH via a GOTO. 

EXTERNAL REFERENCES - A list of any tables, control 
blocks or values that are referenced in this module but 
are defined elsewhere. 

TABLES/WORKEAREAS - A list of any temporary work or 
scratch areas. For example, the use of the BALRSAVE 
area in PSA or the SAVEWRK areas in the standard 
SAVEAREA for any purpose other than normal register 
saving and restoring. 

REGISTER USAGE - A list of the usage for each general 
register that has a consistent purpose through the 
module. Also list any unused registers and any 
registers used only for scratch or intermediate values. 

NOTES - Include any comments not relevant in another 
section such as descriptions or unusual coding 
techniques, formulas, or release dependencies. 

OPERATION - Include here a brief description, in 
general terms, of the logical steps performed by the 
module. The steps may be numbered so that branches and 
loops may be easily described. 

The prologue is used for most of the system's modules. 
However, in some cases a module consists of a 
collection of relatively unrelated subroutines that 
have been grouped together but contain little common 
code. In this case, the prologue page contains only 
the MODULE NAME section and a list of the subroutines 
that the module contains. Preceding each subroutine, 
there is a prologue exactly as described above, except 
that the heading MODULE NAME is replaced by the heading 
SUBROUTINE NAME. 

If CSECTS are large (more than 4096 bytes) it is 
preferable that code and referenced data reside in the 
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same page. The proper use of LTORG statements will 
accomplish this. 

EJECT 

label CSECT 

ENTRY Statements 
EXTRN Statements 
USING Statements 
Source Code 
Constants (See Note) 

LTORG (See Note) 

Working Storage (See Note) 

System DSECTS and EQUATES 
END 


& < 
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MOD is the 3 character module name without the 
component code. 

Label is the formal module name consisting of the 
component code and the Module Name. 

Note: Where possible, these are in the same storage 
page with the instructions. 



APPEJ8DIX_B 2 VM/370 CODING CONVENTIONS 


FORMAT: 


13 - 

col. 

1 

- labels 

14 - 

col. 

10 

- op code 


col. 

16 

- operands 

15 - 

col. 

31, 

36, 41, etc. - comments (See Item 2.) 



2. COMMENT: 

Approximately 75 per cent of the source code 
contains comments. Sections of code performing 
distinct functions are separated from each other 
by a comment section. 


3. CONSTANTS: 

Constants follow the executable code and precede 
the copy files and/or macros which contain dsects 
or system equates. Constants are defined in a 
section followed by a section containing 
initialized working storage, followed by working 
storage. Each of these sections are identified by 
a comment. Where possible for a module that is 
greater than a page, constants and working storage 
are within the same page in which they are 
referenced. 

4. No program modifies its own instructions during 
execution. 

5. No program uses its own unlabeled instructions as 
data. 

6. REGISTER USAGE: For CP, in general 

R egis ter Us e 

6 * RCHBLOK, VCHBLCK 

7 - RCUBLOK, VCUBLOK 

8 - RDEVBLOK,VDEVBLCK 

10 - IOBLOK 

11 - VMBLOK 

12 - Base register for modules 

called via SVC 


SAVEAREA for modules 
called via SVC 
Return linkage for modules 
called via BALR 
Base address for modules 
called via BALR 

For Virtual to Real address translation: 

1 - Virtual Address 

2 - Real Address 

7. When describing an area of storage in mainline 
code, a copy file, or a macro, DSECT is issued 
containing DS instructions. 

8. Meaningful names are used instead of self-defining 

terms for example 5,X*02*,C'I 1 ) to represent a 
quantity (for example absolute address, offset, 
length, register, etc.) . All labels, 

displacements, and values are symbolic. All bits 
should be symbolic and defined by EQU. For 
example: 

VMSTATUS EQU X 1 02• 

To set a bit, use: 

01 BYTE,BIT 

Where BYTE = name of field, EIT is an EQU symbol. 
To reset a bit, use: 

NI BYTE,255-BIT 

To set multiple bits, use: 

10 BYTE,BIT1+BIT2 


All registers are referred to as: 
R0, R1 , .. R15. 
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All lengths of fields or blocks are symbolic, i.e. 
length of VMBLOK is: 

VMBLOKS Z EQU *-VMBLCK 


9. Avoid absolute relative addressing in branches and 
data references, (that is, location counter value 
(*) or symbolic label plus or minus a 

self-defining term used to form either a 

displacement or offset). 

10* When using a single operation to reference 
multiple values, specify each value referenced, 
for example: 

LM R2,R4,CONT SET R2=C0N1 
SET R3=C0N2 
SET R4=C0N3 


CONI 

DC 

p'i» 

C0N2 

DC 

F'2' 

CON 3 

DC 

F' 3' 


11* Do not use PRINT NOGEN* 

12. Module Names: Control Section Names and External 
References are as follows: 

Control Section or Module Name 

The first three letters of the name are the 
assigned component code. 

Example: DMK 
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The next three letters of the Module Name identify 
the module and must be unique. 

Example: DSP 

This three letter unique module identifier is the 
label of the TITLE card. 

Each entry point or external reference must be 
prefixed by the six letter unique identifier of 
the module. 

Example: DMKDSPCH 

13. TITLE Card: 

DSP TITLE * DMKDSP VM/370 DISPATCHER VERSION 1 
LEV.EL 0* 

14. PTF Card Example: 

CP/CMS: PUNCH 'xxxxxxxx APPLIED* 

Where xxxxxxxx = APAR Number Response 

15. Error messages: 

There should not be any insertions into the 
message at execution time and the length of the 
message should be resolved by the assembler. If 
insertions must be made, the message must be 
assembled as different DC statements, and the 
insert positions are to be individually labeled. 

16. For all RX instructions use ',* to specify the 
base register when indexing is not being used, 

i.e. 

L R2,AB (,R4) 





o ^ o 

APPENDIX C. CP EQUAII SYMBOLS 


CP DEVICE CLASSES, TYPES, MODELS AND FEATURES 


CLASTERM 

EQU 

X' 80' 

Terminal Device Class 

TYP2700 

EQU 

X' 40' 

2700 Bisync line 

TYP2955 

EQU 

TYF2700 

2955 Communications Line 

TYPTELE2 

EQU 

X * 20 * 

Telegraph Terminal Control Type II 

TYPTTY 

EQU 

X'20» 

Teletype Terminal 

TYPIEB1 

EQU 

X' 10' 

IBM Terminal Control Type I 

TYP2741 

EQU 

X* 18' 

2741 Communications Terminal 

TYP1050 

EQU 

X' 14 • 

1050 Communications Terminal j 

TYPOfiDEF 

EQU 

X' 1C 

Terminal device type is undefined 

TYP3210 

EQU 

X'OO' 

3210 Console 

TYP3215 

EQU 

TYP3210 

3215 Console 

TYP2150 

EQU 

TYP3210 

2150 Console 

TYP1052 

EQU 

TYP3210 

1052 Console 

CLASGRAF 

EQU 

X' 40' 

Graphics Device Class 

TYP2250 

EQU 

X' 80' 

2250 Display Unit 

TYP2260 

EQU 

X' 40' 

2260 Display Station 

TYP2265 

EQU 

X' 20* 

2265 Display Station 

TYP3066 

EQU 

X' 10' 

3066 Console 

TYP 1053 

EQU 

X' 08' 

1053 Printer 

TYP3277 

EQU 

X' 04' 

3277 Display Station 

TYP3284 

EQU 

X' 02' 

3284 Printer 

TYP3286 

EQU 

TYP3284 

3286 Printer 

CLASORI 

EQU 

X' 20' 

Unit Record Input Device Class 

TYPRCR 

EQU 

X' 80' 

Card Reader 

TYP2501 

EQU 

X' 81' 

2501 Card Reader 

TYP2540R 

EQU 

X' 82' 

2540 Card Reader 

TYP3505 

EQU 

X' 84' 

3505 Card Reader 

TYP1442R 

EQU 

X' 88' 

1442 Card Reader/Punch 

TYP2520R 

EQU 

X' 90' 

2520 Card Reader/Punch 

TYPTIBER 

EQU 

X' 40' 

Timer 

TYPTR 

EQU 

X' 20' 

Tape Reader 

TYP2495 

EQU 

X * 21' 

2495 Magnetic Tape Cartridge Reader 

TYP2671 

EQU 

X' 22' 

2671 Paper Tape Reader 

TYP 1017 

EQU 

X' 24' 

1017 Paper Tape Reader 

CLASORO 

EQU 

X' 10* 

Unit Record Output Device Class 

TYPPUN 

EQU 

X' 80' 

Card Punch Device 

TYP2540P 

EQU 

X'82' 

2540 Card Punch 

TYP3525 

EQU 

X' 84' 

3525 Card Punch 

TYP1442P 

EQU 

X'88 ' 

1442 Card Punch 

TYP2520P 

EQU 

X' 90' 

2520 Card Punch 
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TYPPBT 

EQU 

X* 

40' 

Printer 

TYP1403 

EQU 

X* 

4 1 ' 

1403 Printer 

TYP3211 

EQO 

X' 

42 1 

3211 Printer 

TYP1443 

EQO 

X* 

44 1 

1443 Printer 

TYPTP 

EQO 

x« 

20* 

Tape Punch 

TYP1018 

EQO 

X 1 

24' 

1018 Paper Tape Punch 

FTRUCS 

EQO 

X 1 

01' 

OCS Feature 

CLASTAPE 

EQO 

x« 

08' 

Magnetic Tape Device Class Onits 

TYP2401 

EQO 

x» 

80' 

2401 Tape Drive 

TYP2415 

EQO 

x f 

40' 

2415 Tape Drive 

TYP2420 

EQO 

X* 

20' 

2420 Tape Drive 

TYP3410 

EQO 

x' 

08' 

3410 Tape Drive 

TYP3420 

EQO 

X' 

10' 

3420 Tape Drive 

FTR7TRK 

EQO 

X* 

80' 

7-Track Feature 

FTRDIDHS 

EQO 

x« 

40' 

Dual Density Feature 

FTRTBANS 

EQO 

X* 

20' 

Translate Feature 

FTRDCONV 

EQO 

x' 

10' 

Data Conversion Feature 

CLASDASD 

EQO 

x« 

04 • 

Direct Access Storage Device Class 

TYP2311 

EQO 

X* 

80' 

2311 Disk Storage Drive 

TYP2314 

EQO 

X' 

40' 

2314 Disk Storage Facility 

TYP2319 

EQO 

TYP2314 

2319 Disk Storage Facility 

TYP2321 

EQO 

X' 

20' 

2321 Data Cell Drive 

TYP3330 

EQO 

X' 

10' 

3330 Disk Storage Facility 

TYP2301 

EQO 

X 1 

08' 

2301 Parallel Drum 

TYP2303 

EQO 

X* 

04' 

2303 Serial Drum 

TYP2305 

EQO 

X 1 

02' 

2305 Fixed Head Storage Device 

FTR2311T 

EQO 

X* 

20' 

(= VDEV23IT) Top half of 2314 used as 

FTR231IB 

EQO 

X' 

10' 

(= VDEV231B) Bottom Half of 2314 used 

FTRRSRX, 

EQO 

X • 02' 

Reserve/Release are valid CCW op codes 
(control unit has a 2-channel switch) 


CLASSPEC 

EQU 

X* 02' 

Special 

Devices 

TYPCTCA 

EQU 

X' 80 • 

Channel 

to Channel Adapter 








MACHINE USAGE 


Bits defined 

in standard 

extended 

PSW 


EXTMCDE 

EQU 

X' 08 * 


Bit 

12 

- 

Extended Mode 

MCHEK 

EQU 

X 1 04' 


Eit 

13 

- 

Machine check enabled 

WAIT 

EQU 

X' 02' 


Bit 

14 

- 

Wait state 

PROEMODE 

EQU 

X'01 • 


Bit 

15 

- 

Problem state 

Bits defined 

in extended 

PSW 





PERMODE 

EQU 

X' 40* 


Bit 

01 

- 

PER enabled 

M0DE31 

EQU 

X' 08' 


Eit 

04 

- 

31 bit mode addressing 

TRANMODE 

EQU 

X' 04' 


Bit 

05 

- 

Translate mode 

IOMASK 

EQU 

X' 02' 


Bit 

06 

- 

Summary I/C Mask 

EXTMASK 

EQU 

X'01 • 


Bit 

07 

- 

Summary external mask 

Bits defined 

in channel 

status word - 


CSW 

ATTN 

EQU 

X' 80' 


Eit 

32 

- 

Attention 

SM 

EQU 

X' 40' 


Bit 

33 

- 

Status modifier 

CUE 

EQU 

X' 20' 


Eit 

34 

- 

Control unit end 

BUSY 

EQU 

X' 10' 


Bit 

35 

- 

Busy 

CE 

EQU 

X' 08' 


Eit 

36 

- 

Channel end 

DE 

EQU 

X' 04' 


Bit 

37 

- 

Device end 

UC 

EQU 

X' 02' 


Eit 

38 

- 

Unit check 

UE 

EQU 

X'01' 


Bit 

39 

- 

Unit exception 

PCI 

EQU 

X' 80' 


Eit 

40 


Program-ccntrcl interrupt 

IL 

EQU 

X' 40' 


Bit 

41 

- 

Incorrect length 

PRGC 

EQU 

X' 20« 


Bit 

42 

- 

Program check 

PRTC 

EQU 

X* 10* 


Eit 

43 

- 

Protection check 

CDC 

EQU 

X' 08' 


Bit 

44 

- 

Channel data check 

CCC 

EQU 

X' 04' 


Eit 

45 

- 

Channel control check 

IFCC 

EQU 

X' 02' 


Bit 

46 

- 

Interface control check 

CHC 

EQU 

X'01' 


Eit 

47 

• 

Chaining check 

Bits defined 

in channel 

command word 

- 

CCW 

CD 

EQU 

X '80' 


Eit 

32 

- 

Chain data 

CC 

EQU 

X' 40* 


Bit 

33 

- 

Command chain 

Sill 

EQU 

X'20' 


Eit 

34 

- 

Suppress incorrect length 

SKIP 

EQU 

X' 10* 


Bit 

35 

- 

Suppress data transfer 

PCIF 

EQU 

X *08 • 


Eit 

36 

- 

Program-control interrupt 

IDA 

EQU 

X' 04' 


Bit 

37 

- 

Indirect data address 

Eits defined 

in sense byte 0 

-- Common 

to most devices 

CMDREJ 

EQU 

X^O* 


Eit 

0 - 


Command reject 

INTREQ 

EQU 

X 1 40* 


Bit 

1 - 


Intervention reguired 

BUSCUI 

EQU 

X '20' 


Eit 

2 - 


BUS out 

EQCHK 

EQU 

X 1 10* 


Bit 

3 - 


Eguipment check 

DATACHK 

EQU 

X 1 08 1 


Eit 

4 - 


Data check 


indication 

fetch 
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EXTENDED CONTRCL REGISTERS 


Bits defined in Control register 0 


BLKMPX 

EQU 

Byte 0 

X' 80' 

Bit 

00 


Enable block multiplexing 

SSMSUPP 

EQU 

X' 40' 

Bit 

01 

- 

Enable SSM suppression 

PAGE4K 

EQU 

Byte 1 

X' 80' 

Bit 

08 


Use 4K pages 

PAGE2K 

EQU 

X* 40' 

Bit 

09 

- 

Use 2 K pages 

SEG1M 

EQU 

X' 08' 

Bit 

12 

- 

Use 1M segments 

CKCMASK 

EQU 

Byte 2 

X' 08 • 

Bit 

20 

_ 

Mask on clock comparator intercept 

CPTMASK 

EQU 

X' 04' 

Bit 

21 

- 

Mask on CPU timer intercept 

INTMASK 

EQU 

Byte 3 

X' 80' 

Eit 

24 

__ 

Mask on interval timer intercept 

KEYMASK 

EQU 

X' 40' 

Bit 

25 

- 

Mask on operator key intercept 

SIGMASK 

EQU 

X' 20' 

Bit 

26 

— 

Mask on external signals 2-7 

Bits defined 

PERSUBR EQU 

in control 
Byte 0 

X* 80' 

register ( 

Bit 

9 

00 


Monitor successful branches 

PERIFET 

EQU 

X'40' 

Bit 

01 

- 

Monitor instruction fetches 

PERSALT 

EQU 

X' 20' 

Bit 

02 

- 

Monitor storage alteration 

PERGPRS 

EQU 

X* 10' 

Bit 

03 

- 

Monitor register alteration 

Bits defined 

HARDSTOP EQU 

in Control 
Byte 0 
X'80 • 

register 

Bit 

14 

00 


Check stop control 

SYNCLOG 

EQU 

X' 40* 

Bit 

01 

- 

Synchronous logout control 

IOLCG 

EQU 

X'20' 

Bit 

02 

- 

I/O logout control 

RECOVRPT 

EQU 

X' 08' 

Bit 

04 

- 

Recovery report mask 

CONFGRPT 

EQU 

X' 04' 

Eit 

05 

- 

Configuration report mask 

DAMAGRPT 

EQU 

X' 02' 

Bit 

06 

- 

External damage report mask 

WARRGRPT 

EQU 

X'01' 

Bit 

07 

- 

Warning condition report mask 

ASYRELOG 

EQU 

Byte 1 

X' 80* 

Eit 

08 


Asynchronous extended logout control 

ASYNFLOG 

EQU 

X' 40' 

Bit 

09 

- 

Asynchronous fixed logout control 



/ \ 
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CONTROL PROGRAM USAGE 


Eits defined for TRANS macro 


ERING 

EQU 

X * 80' 

Bring requested page 

DEFER 

EQU 

X' 40' 

Defer execution until page in storage 

LOCK 

EQU 

X' 20' 

Lock page for I/O operation 

IOERETN 

EQU 

X* 10' 

Return I/O errors tc caller 

SYSTEM 

EQU 

X' 08' 

Call to DMKPTRAN for system virtual machine space 

Bits defined 

for terminal I/O 

ERRMSG 

EQU 

X• 04 * 

*256 Control program error message 

PRIORITY 

EQU 

X' 02' 

*256 Queue and start this message immediately 

VMGENIO 

EQU 

X'01' 

*256 Virtual machine gererated I/O request 

LOGDROP 

EQU 

X' 80' 

LOGOUT and drop line after output message 

LCGHCLD 

EQU 

X * 40' 

LCGCUT & hold line after output message 

NORET 

EQU 

X' 20' 

Return immediately after call 

DFRET 

EQU 

X ' 10 ' 

FRET Buffer after write 

NOAUTO 

EQU 

X* 08' 

No automatic carriage return 

EDIT 

EQU 

X* 08' 

Edit input for corrections 

ALARM 

EQU 

X' 04' 

Sound the alarm 

UCASE 

EQU 

X • 04' 

Translate input tc upper case 

OPERATOR 

EQU 

X' 02' 

Message for operator 

NOTIME 

EQU 

X'01' 

Do not time stamp message 
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APPENDIX D. DASD RECORD FORMATS 


RECORD 0, 8 BYTES (PAGE EIT MAP) 


Used to flag pages that are in use or have bad 
recording area. Devices that do no use all 64 bits (64 
pages per cylinder) have the unused bits turned on. 


Ex amp l es 



57 pages/cylinder 3330 


|E0 00 00 00 00 00 00 7F| 


24 pages/cylinder 2305 


|E0 00 00 FF FF FF FF FF| 


* The first three pages of cylinder 0 are always 
flagged in use, since they are used by CP. Cn all 
other cylinders, the first byte hex 'OO* unless the 
disk area is flagged bad. Record 0 of all tracks 
ether than track 0 is initialized to hex , 0C I . 


Al l Page Rec ords, 409 6 Bytes Each 


o 


2314 and 2319 32 pages/cylinder 
3330 series 57 pages/cylinder 
2305 24 pages/cylinder 

Cylinder 0 contains less pages because this area 
is used by CP. 


RECORD 1 (24 BYTES) 


IPL record — Puts system into wait state if storage 
device is IPLed. 


100020000 0000000C 03000000 20000000 00000000 000000001 


RECORD 2, 4096 BYTES 


Check point record — this is the CHECKPOINT program 
load at CP IPL time to retrieve and save control 
information for a warm start. 
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RECORD 3 


4 byte key of V0L1 
80 byte data record 

Key 

VOL 1 ] 

Record 


Bytes ,- t- 

1—20 1E5D6D3F1 xx- 

I 

21-40 |0040- 


->xxF000 00000005 00C0C000| 


41-60 |4000->OOC3D7 F3F7F040 40404040 40->40| 

I I 

61-80 | 40->40 | 


Where: 

xx—>xx is a 6 byte label 

Bytes 13-16 is a pointer to the VTOC 

Bytes 46—50 identify the system 

Eytes 52—55 is a pointer to the active directory 




/- 
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RECORD 4 


1024 bytes Track 0 Cylinder 0 

Allocation byte map — used to identify Cylinder 1 
usage. Each byte identifies one cylinder. 


C i— > all 0 <—i 

i-1-1— + - + n 

100000100 040200->FF 0000->0000| 

I- JL -+_J-1 

* 

* FF dfines the last cylinder + 1 that can be 

allocated. This varies depending on the device. 

00 = temporary 
01 = permanent 
02 = T-disk 
04 = directory 


RECORD 5 


44 bytes key Track 0, Cylinder 0 96 bytes data area 

Format 4 OS DSCB type label — used to be compatible 
with OS. 



44 Key 








RECORD 6 


44 bytes key Track 0, 
Format 5 OS DSCB type 

r05!05!051 051 00 ] 

44 Byte Key 


Cylinder 0 96 bytes data area 
lafcle for compatibility with OS. 

i-, 

| CS FORMAT 5 LABEL | 

96 Byte Data Area 


RECORD F3 

4096 bytes — 1 page, track 0 or track 1 


2314 RECORD LAYOUT 


CYLINDER 0, TRACK 0 


R0 R1 R2 Key R3 


R4 Key 


R5 Key R6 


| Page11 |Check|V|VOL1 |Alloc| 
| Bit |P | Point|O|Label|Byte | 
| Map |L | IL| |Map | 

III 111 I I 

| 8 | 24 | 409614| 80 | 10241 

■ i ii a 


|Format| |Format 
I 4 I I 5 

i I I 

I I I 

44| 96 |44| 96 


F3 Record is reserved for CPsytem use. Referred to as 

filler record. Cy lind er 0, Track 1 


RECORD F4 

1624 bytes. Track 1 <2314, 2319 only) 

F4 used only on 2314 and 2319 devices to align Record 4 
in proper position on track. 

RECORD 4 

824 bytes track 1, cylinder 0 =2314, 2319 only) 

First segment of Record 4 to be used for paging. 


R0 RF3 RF4 R4 

i-1 i-1 i-1 i-» 

| 111 PAGE | | FILLER | | | 

I I—I I —I I —I I 

| 8 || 4096 | | 1624 | |824 | 

i_i i_i i_i i_i 


ALL CYLINDERS EXCEPT 0, TRACK 0 


R0 R1 R2 

[page ”| | | ] 

|Eit Map|— | |—| | 

| 8 | | 4096 | | 2472 | 

I_I L_I I_I 


These records appear as above formats if cylinder is 0. 
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Track 1 


3330 SERIES RECORD LAYOUT 


R0 


R2 


R3 


Track 2 


R0 


R4 


R5 


I I—I I—I I 

| 8 || 3272 | | 3296 | 


R4 


r 
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R0 
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—i 

i 

i— 

i 
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1 

i 

_i 
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Note: Track 0 to 4 are repeated for tracks 5 to 9 
= R9_R16), 10 to 14, =R 17_R24) , and 15 to 19 =R25_R32). 
The last record is R32. 
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-i i 
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1 __ 1 

| | 
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1 1 
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